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Einleitung 


Spiele ohne Grenzen 


Der Commodore 64 kann für sehr viele, überaus nützliche 
Dinge eingesetzt werden. So werden bei entsprechenden 
Fragen Anwendungen genannt wie Adressen verwalten, die 
Video- oder Schallplattensammlungen ordnen, die Heizung 
im Haushalt steuern, Vokabeln pauken, die Buchführung 
machen, Programmiersprachen lernen oder einfach die neue 
Technik beherrschen. Oft nur hinter vorgehaltener Hand wird 
zugegeben, daß man auch Spielen auf dem Computer nicht 
abgeneigt gegenübersteht. Tatsache ist jedoch, daß nahezu 
jeder Besitzer eines C 64 Spiele zur Entspannung, Anregung 
oder zum Vergnügen verwendet, sich 60 Prozent sogar zu 
einem überwiegenden Teil nur mit Spielen beschäftigt. 

Die logische Konsequenz daraus liegt vor Ihnen, ein Son¬ 
derheftausschließlich dem Homo ludens gewidmet, also dem 
spielenden Menschen. Sollten Sie zu dieser durchaus zahl¬ 
reichen Spezies gehören, wird Ihnen dieses dritte Sonder¬ 
heft ein wahrer Quell für Ihren Spieltrieb sein. 

Wir haben dieses Sonderheft in neun Abschnitte unterteilt. 
Die erste Rubrik besteht aus den Sportspielen Golf, Billiard 
und Tontaubenschießen. Golf und besonders Billiard zeigen, 
was man durch geschickte Sprite-Steuerung alles erreichen 
kann, beispielsweise Bewegung von sieben Billiardkugeln in 
Realzeit. Tonti verlangt ein scharfes Auge sowie eine schnelle 
Hand und ist für angehende Scharfschützen gedacht. 

Geschoßen wird auch in der zweiten Rubrik bei Radar und 
Panzerkrieg. Hier sind allerdings feindliche Raumschiffe und 
Panzer das bevorzugte Ziel. 

Denken ist dann wieder bei Memory, Wator und Barre ange¬ 
sagt. Schulen Sie Ihr Gedächtnis, verfeinern Sie Ihr Verständ¬ 
nis für ökologische Gleichgewichte und versuchen Sie den 
Computer am Ziehen zu hindern. 

Einige ganz besondere Leckerbissen erwarten Sie in der 
vierten Rubrik, den Spielegeneratoren. Haben Sie alle Bilder, 
Schwierigkeitsstufen und Ebenen gemeistert, schneidern 
Sie sich einfach schwierigere und noch kompliziertere Bilder. 
Roboservant und Stonerescue für den C 64 auf der einen, 
Mousetrap und Circle Circuit für den VC 20 auf der anderen 
Seite, lassen der eigenen Fantasie Raum für das Entwickeln 
noch verzwickterer Spielstufen. 

An die Anhänger der Abenteuerspiele wurde mit Zauber¬ 
schloß II, Dark Tower und Buch der Weisheit im fünften 
Abschnitt gedacht. Befreien Sie die Menschheit vom wieder 
auferstandenen Zauberer, von der Schreckensherrschaft 
des Bösen oder finden Sie das Buch der Weisheit. 

Zurück an den heimischen Wohnzimmertisch gelangt man 
bei Mensch ärgere Dich nicht und Monopoly. Sollten Familien¬ 
mitglieder oder Freunde keine Lustzum Spielen haben, nimmt 
der Computer bereitwillig deren Stelle ein. 

Risiko und Shugun heißen die Vertreter der Taktikspiele. 

Fingerspitzengefühl ist bei Tödliches Dioxin, Little Blue, Hot 
Food, Libra und Spion (VC 20) in der achten Rubrik zu bewei¬ 
sen. Tödliches Dioxin und Libra stellen unterirdische Höhlen¬ 
systeme dar, mit Erdbeben, Laserfallen und Schlingpflanzen, 
die ein Durchkommen extrem erschweren. Versuchen Sie bei 
Hot Food mit Ihrem Gebiß alles Eßbare aufzuschnappen, 
doch Vorsicht vor Zitronen. Dieses Programm ist ein Lecker¬ 
bissen für alle Spielefans. 


Sollten Sie nach dem Eintippen und Ausprobieren dieser 
Spiele, wider Erwarten, noch den Wunsch hegen »professio¬ 
nelle« Spiele zu erwerben, so geben wir Ihnen mit der Markt¬ 
übersicht aller in Deutschland zum Zeitpunkt der Druckle¬ 
gung käuflichen Spiele eine wohl einmalige Auswahlhilfe zur 
Hand. 

Vor dem Vergnügen, in den Genuß der Programme zu kom¬ 
men, steht (Abtipp-) Arbeit. Da die hier veröffentlichten 
Spiele alle eine hohe Qualität besitzen, bedingt das eine 
gewisse Länge (Ausnahmen bestätigen die Regel). Nun hat 
die Erfahrung gezeigt, daß gerade bei langen Programmen 
die Fehlerhäufigkeit beim Eintippen mit der Zeit steigt. Um 
dennoch auch die »Giganten« sicher zu bewältigen, ist jede 
einzelne Zeile mit einer Prüfsumme versehen, die Sie sofort 
nach dem abschließenden Return darüber informiert, ob 
noch ein Tippfehler vorliegt. Für Basic-Programme über¬ 
nimmt diese Arbeit der neue Checksummer V3, für Maschi¬ 
nenprogramme der MSE. Der Checksummer ist tatsächlich 
neu, denn er erkennt jetzt auch Zahlendreher. Bisher ergab 
die Eingabe von 273 statt 237 dieselbe Prüfsumme, den¬ 
noch erschöpfte sich der Versuch, das Programm laufen zu 
lassen, in einem »Illegal Quantity Error«. Damit ist jetzt 
Schluß! Sollten Sie den Checksummer aus früheren Sonder¬ 
heften (Tips & Tricks, Abenteuerspiele) oder dem 64'er 
Stammheft besitzen, verwenden Sie diesen bitte nicht, son¬ 
dern nur den in diesem Sonderheft abgedruckten. Beim 
MSE, zur Eingabe von Maschinenprogrammen, ertönt ein 
Gong nc. jeder richtig eingegebenen Zeile. Bei einem Feh¬ 
ler werden Sie aufgefordert, es nocheinmal zu probieren. Es 
hat sich gegenüber der alten Version nichts geändert. Sie 
können also den MSE aus dem 64'er Stammheft verwenden. 

Für alle, die zwar an den Spielen interessiert sind, und trotz 
Checksummer und MSE keine Zeit und Muse haben, die 
Listings abzutippen, gibt es wie immer den Leserservice. 
Sämtliche Programme sind auf Diskette erhältlich. Es gibt 
zwei Disketten, jeweils beidseitig beschrieben. 

Auf der Diskette 1 (Bestellnummer LG 85S31) befinden 
sich die Spiele Golf, Billard, Tonti, Panzer-Krieg, Radar, 
Memory, Wator, Barre und Roboservant. 

Auf der Diskette 2 (Bestellnummer LG 85S32) die Spiele 
Stone Rescue, Circle Circuit, Mousetrap, Zauberschloß II, 
Dark Tower, Buch der Weisheit, Mensch ärgere Dich nicht, 
Monopoly, Risiko, Shugun, Tödliches Dioxin, Little Blue, Hot 
Food, Libra und Spion. 

Aufgrund der Länge einiger Spiele konnten von Panzer- 
Krieg, Buch der Weisheit, Little Blue und Libra nur die 
Beschreibungen in diesem Sonderheft abgedruckt werden. 
Sie befinden sich jedoch auf den Disketten. 

Wir wünschen dem Leser viel Spaß bei der Anwendung 
dieser einmaligen Spiele. (aa) 
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Checksummer 
64 — Neu 

Der Checksummer 64 V3 überprüft 
jede Basic-Zeile direkt nach der Ein¬ 
gabe, erkennt Fehleingaben und auch 
Vertauschungen von Zahlen und Zif¬ 
fern, und erspart deshalb eine auf¬ 
wendige Fehlersuche. 

Der Checksummer 64 V3 ist ein kleines Maschinenpro¬ 
gramm, das Sie sofort unterrichtet, ob Sie die jeweilige Pro¬ 
grammzeile korrekt eingegeben haben. 

So gehen Sie vor: 

1. Programm abtippen und speichern. 

2. Starten mit RUN 

3. Nach kurzer Zeit sehen Sie am Bildschirm: 

CHECKSUMMER 64, CHECKSUMMER AKTIVIERT, 

AUSSCHALTEN MIT POKE 1,55, ANSCHALTEN MIT POKE 
1,53, READY. 

4. Anschalten des Checksummer 64 V3 mit POKE 1,53. 

5. Test: Geben Sie in einer freien Zeile ein: »1 REM« und 
drücken die RETURN-Taste. Am Bildschirm oben links sollten 
Sie die Prüfsumme <176 > sehen. 

6. Geben Sie ein Listing aus unserem Heft ein. Nach jeder 
Zeile wird die Zahl, die im Listing in Klammern < > steht, in 
den Bildschirm eingeblendet. Stimmen die Zahlen nicht über¬ 
ein, so liegt vermutlich ein Eingabefehler vor. Die Zahl in den 
Klammern, und auch die Klammern selbst, dürfen beim 
Abtippen nicht mit eingegeben werden! 

7. Dieser neue Checksummer 64 V3 bemerkt, im Gegen¬ 
satz zu den bisherigen, auch Vertauschungen von Zahlen und 
Buchstaben. 

8. Unsere Basic-Listings enthalten keine Steuerzeichen 
mehr. Diese werden ersetzt durch Klartext und stehen zwi¬ 
schen geschweiften Klammern. Deshalb sind weder die 
Klammern noch was dazwischen steht, abzutippen, sondern 
die in Tabelle 1 aufgeführten Tasten zu drücken. Auf Ihrem 
Bildschirm erhalten Sie dann wieder die entsprechenden 
Grafikzeichen (siehe Bild 1 und 2). 

9. Alle Grafikzeichen werden ebenfalls ersetzt durch unter¬ 
strichene oder überstrichene Großbuchstaben. Unterstri¬ 
chene Buchstaben bedeuten, daß Sie die SHIFT-Taste und 
den angegebenen Buchstaben drücken müssen, überstri¬ 
chene jedoch die Commodore-Taste mit dem Buchstaben. 
Auch hier erhalten Sie am Bildschirm das entsprechende Gra¬ 
fikzeichen und nicht etwa das im Listing erkennbare Zeichen 
(siehe Bild 1 und 2). 

Checksummer VC 20 V3 

Der Checksummer VC 20 V3 ist im Prinzip genauso auf¬ 
gebaut wie der Checksummer 64. Da beim VC 20 jedoch 
nicht die Möglichkeit besteht, das ROM softwaremäßig zu mo¬ 
difizieren, mußte ein anderer Weg als beim Commodore 64 
gewählt werden, um die Checksumme zu generieren. 

In ihrer Funktionsweise unterscheiden sich der Checksum¬ 
mer VC 20 und der Checksummer 64 nicht. Es gelten fol¬ 
gende Sonderregelungen bei der Benutzung des Checksum¬ 
mer VC 20: 

— Da der Basic-Bereich nicht belegt werden soll, ist das Pro¬ 
gramm im Kassettenpuffer abgelegt. 

— Angeschaltet wird der Checksummer VC 20 mit »SYS 
955«. 


CTRL steht für Control-Taste, so bedeutet [CTRL-A], daß Sie die 

Control-Taste und die Taste »A« drücken müssen. Im folgenden steht: 

(DOWNj 

Taste neben rechtem Shift, Cursor unten 

jUP] 

Shift-Taste 8 Taste neben rechtem Shift; Cursor hoch 

!C LR) 

Shift-Taste 8 2. Taste ganz rechts oben 

(INST) 

Shift-Taste 8 Taste ganz rechts oben 

(HOME) 

2. Taste von ganz rechts oben 

(DEL) 

Taste ganz rechts oben 

(RIGHT) 

Taste ganz rechts unten 

(LEFT) 

Shift-Taste 8 Taste unten rechts 

(SPACE) 

Leertaste 

(Fl) 

grauer Tastenblock rechts 

(F3) ■ 

grauer Tastenblock rechts 

(FS) 

grauer Tastenblock rechts 

(F7J 

grauer Tastenblock rechts 

(F2) 

grauer Tastenblock rechts 8 Shift 

IF4) 

grauer Tastenblock rechts 8 Shift 

(F6) 

grauer Tastenblock rechts 8 Shift 

(FS) 

grauer Tastenblock rechts 8 Shift 

(RETURN) 

Shift-Taste 8 Return 

(BLACK) 

Control-Taste 8 1 

(WHITE) 

Control-Taste 8 2 

(RED) 

Control-Taste 8 3 

(CYAN) 

Control-Taste 8 4 

(PURPLE) 

Control-Taste 8 5 

(GREEN) 

Control-Taste 8 6 

(BLUE) 

Control-Taste 8 7 

(YELLOW) 

Control-Taste 8 8 

(RVSONl 

Control-Taste 8 9 

(RVOFF) 

Control-Taste 8 0 

(ORANGE) 

Commodore-Taste 8 1 

(BROWN) 

Commodore-Taste 8 2 

(LIG.RED) 

Commodore-Taste 8 3 

(GREY 1) 

Commodore-Taste 8 4 

(GREY 2) 

Commodore-Taste 8 5 

(LIG.GREEN) 

Commodore-Taste 8 6 

" G.BLUE) 

Commodore-Taste 8 7 

[GREY 3) 

Commodore-Taste 8 8 

Wenn Sie sich erst einmal an die in Klartext geschriebenen Steuerzei- 

chen gewöhnt haben, werden Sie den Vorteil dieser Schreibweise 

erkennen. Der zu dem jeweiligen Steuerzeichen gehörende Klartext 

ist so verfaßt, daß Sie leicht die Taste beziehungsweise die Tasten- 

kombination finden, die Sie drücken müssen. 

Die Steuerbefehle im Klartext 


— Abschaltung des Checksummer VC 20 wird mit »SYS 
58459« vollzogen. 

Achtung: Nehmen Sie keine Kassetten-Operationen vor, 
wenn der Checksummer VC 20 eingeschaltet ist. Da das 
Betriebssystem den Kassettenpuffer mit Daten belegt, kann 
der Checksummer VC 20 überschrieben werden, was zur 
Folge hat, daß sich der Computer bei aktiviertem Checksum¬ 
mer VC 20 »aufhängt«. Wollen Sie deshalb ein Programm auf 
(von) Kassette abspeichern (laden), so müssen Sie erst den 
Checksummer VC 20 abschalten (SYS 58459). 

Daraufhin kann der Kassettenpuffer mit Daten überschrie¬ 
ben werden, ohne daß der Computer »aussteigt«. 

Als Sicherung wird bei der Initialisierung geprüft, ob das 
zuletzt angesprochene Peripherie-Gerät der Kassettenrecor¬ 
der war. Ist das der Fall, so werden die Betriebssystemroutinen 
LOAD und SAVE für die Benutzung gesperrt. Der Rechner mel¬ 
det bei Aufruf einer dieser beiden Routinen READY, ohne wei¬ 
tere Aktionen durchzuführen. Diese Sicherung kann man nach 
der Tipparbeit aufheben, wenn man den Checksummer VC 20 
mit SYS 58459 abschaltet. Dadurch wird der Kassettenpuffer 
für andere Daten freigemacht. Weiterhin wird dann durch 
gleichzeitiges Drücken der Tasten »Run-Stop & Restore« 
erreicht, daß die Betriebssystemroutinen LOAD und SAVE wie¬ 
der eingerichtet werden. 

— Bei Benutzung einer Diskettenstation brauchen Sie nicht 
darauf zu achten, daß bei LOAD beziehungsweise SAVE der 
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C 64/VC 20 


Eintipphilfe 


Checksummer VC 20 überschrieben wird, da der Kassetten¬ 
puffer für die Diskettenstation normalerweise nicht genutzt 
wird. Deshalb können Sie die beiden Routinen weiterhin nor¬ 
mal nutzen, sofern der Rechner bei der Initialisierung des 
Checksummer VC 20 feststellt, daß das zuletzt angespro¬ 
chene Peripherie-Gerät nicht der Kassettenrecorder war. 

— Bedingt durch den anderen Aufbau des Checksummer VC 
20 wird anders als beim Checksummer 64 nach der LOAD- 
Routine keine Checksumme ausgegeben. 

— Wird eine Zeile gelöscht, also eine Zahl zwischen 0 und 
65999 eingegeben, und danach Return gedrückt, so wird 
eine Checksumme ausgegeben, die aber keine Bedeutung 
hat. 

Sie können die Programme auch weiterhin ohne den Check¬ 
summer eintippen. (F. Lonczewski/gk) 

Hinweis: [13 SPACEJ bedeutet 13mal die Leertaste drücken 


REM ******************************* 
REM * 

REM * 

REM * 

REM * 

REM * 

REM * 


1 
2 

3 

4 

5 

6 
7 

S REM * 


< 139 > 





* 

<051 > 

CHECKSUMMER 

64 V3 

* 

< 153> 




* 

<053> 

WRITTEN 

MAERZ 

1985 BY 

* 

<210> 




* 

<055> 

FRANK 

LONCZEWSKI 

* 

<039> 




* 

<057> 


10 PRINT"{CLR,11SPACE,RVSONJCHECKSUMMER 64 

V3<RVOFF>" 

11 PRINT"<2D0WN,9SPACE>EINEN MOMENT, BITTE 

12 FOR 1=828 TO 864:READ ArPOKE I,A:PS=PS+ 
A+l:NEXT I 

13 IF PSO5802 THEN PR I NT 11 PRUEFSUMMENFEHLE 
R IN ZEILEN 20-22":END 

14 SYS 828:PS=0:FOR 1=58464 TO 58583:READ 
A:POKE I,A:PS=PS+A+1:NEXT I 

15 IF PS<>16267 THEN PRINT"PRUEFSUMMENFEHL 
ER IN ZEILEN 22-30":END 

16 POKE 1,53:POKE 42289,96:POKE 42290,228 

17 PRINT"<4D0WN,9SPACE>CHECKSUMMER AKTIVIE 
RT. " 

18 PRINT"{2D0WNJAUSSCHALTEN : POKE1,55” 

19 PRINT" {DOWN > ANSCHALTEN-C2SPACE > : POKE 1,5 
3":NEW 

20 DATA 169,0,133,254,162,1,189,93,3,133,2 
55,160,0,177,254 


< 147> 
<194> 

< 130> 
<018> 
< 100 > 
<084> 


<15 

<1Z 


' 


<107> 

<180> 


< 185> 
<089> 


21 DATA 145,254,136,208,249,230,255,165,25 

5,221,95,3,208,238,202 <042> 

22 DATA 16,230,96,160,224,192,0,160,2,169, 

0,170,133,254,177 <084> 

23 DATA 95,240,40,201,32,208,3,200,208,245 

,133,255,138,41,7 <249> 

24 DATA 170,240,14,72,165,255,24,42,105,0, 

202.208.249.133.255 <078> 

25 DATA 104,170,232,165,255,24,101,254,133 

,254,76,111,228,192,4 <005> 

26 DATA 48,219,198,214,165,214,72,162,3,16 

9,32,157,1,4,189 <1 77 > 

27 DATA 212,228,32,210,255,208,12,0,92,72, 

32,201,255,170,104 <065> 

28 DATA 144,1,138,96,202,16,228,166,254,16 

9,0,32,205,189,169 <125> 

29 DATA 62,32,210,255,104,133,214,32,108,2 

29.169.141.32.210.255 <08B> 

30 DATA 76,128,164,9,60,18,19 <034> 


© 64 "er 

Dieser neue Checksummer 64 V3 erkennt auch 
Vertauschungen von Zahlen. 


10 REM*»**»*»******** < 154 > 

11 REM* * <060> 

12 REM* CHECKSUMMER * <159> 

13 REM* * <062> 

14 REM* V3 VC20 * <216> 

** 15 REM* * <064> 

16 REM* WRITTEN * <066> 

17 REM* MAERZ 1985 * <015> 

18 REM* BY * <122> 

19 REM*F. LONCZEWSKI* <107> 

20 REM*************** <164> 


21 PRINT"{CLR,SPACE,RVSON >CHECKSUMMER V3 V 

C—20 {RVQFF >" <079> 

22 PRINT"C2DOWNJEINEN MOMENT, BITTE..." <141> 

23 FOR 1=827 TO 1019:READ A:POKE I,A <109> 

24 PS=PS+A+1:NEXT I <205> 

25 IF PS<>24464 THEN PRINT"{DOWNJPRUEFSUMM 

ENFEHLER !":END <080> 

26 SYS 981:PRINT"CHECKSUMMER AKTIVIERT." <083> 

27 PRINT"AN :SYS981" <161> 

28 PRINT"IDOWN>AUS:SYS58459, BEI CAS-t4SPA 

CEJSETTE ZUSAETZLICHC5SPACE>RUN/STOP & 
RESTORE" <229> 

29 PRINT"CDOWNJBEI AKTIVIERTEM CHECK-SUMME 

R KEIN"; <069> 

30 PRINT" CASSETTEN-BETRIEB (LOAD, SAVE)<2 

SPACEJERLAUBT!":NEW <023> 

31 DATA 32,95,3,134,122,132,123,32,115,0,1 

70,240,243,162,255 <192> 

32 DATA 134,58,144,10,162,0,134,255,32,121 

,197,76,225,199,162 <039> 

33 DATA 1,134,255,76,156,196,166,255,224,1 

,240,3,76,96,197 <185> 

34 DATA 160,2,169,0,170,133,254,177,95,240 

,40,201,32,208,3 <143> 

35 DATA 200,208,245,133,253,138,41,7,170,2 

40,14,72,165,253,24 <249> 

36 DATA 42,105,0,202,208,249,133,253,104,1 

70,232,165,253,24,101 <040> 

37 DATA 254,133,254,76,119,3,192,4,48,219, 

198,214,165,214,72 <199> 

38 DATA 162,3,169,32,157,1,4,189,209,3,32, 

210,255,202,16 <253> 

39 DATA 242,166,254,169,0,32,205,221,169,6 

2,32,210,255,104,133 <240> 

40 DATA 214,32,135,229,169,141,32,210,255, 

162,0,134,255,240,148 <235> 

41 DATA 9,60,18,19,169,59,141,2,3,169,3,14 

1,3,3,165 <084> 

42 DATA 186,201,1,208,16,169,116,141,48,3, 

141,50,3,169,196 <197> 

43 DATA 141,49,3,141,51,3,173,136,2,141,17 

0,3,96 < 079 > 

© 64'er 


Der neue Checksummer VC 20 V3 erkennt auch 
Vertauschungen von Zahlen. 


5 PRINT CHR$(14) 

<242> 

10 PRINT 

ICLRV 

<254> 

20 PRINT 

*********** ***** ** lT '' 

<130> 

30 PRINT 

{4DQWN,2SPACE > JESTCSPACE,BLUE,6SP 


ACE> " 


<022> 

40 PRINT 


<108> 

© G4'er 




Bild 1. So könnte ein Teil eines Listings abgedruckt sein. In 
Zeile 10 müssen Sie nach den Anführungsstrichen die 
CLEAR/HOME-Taste drücken und nicht die Klammern mit 
dem Wort CLR. In Zeile 20 drücken Sie nach den Anführungs¬ 
strichen die Commodore-Taste und den Buchstaben Q, 
gefolgt von mehreren SHIFT und Stern-Taste, und zum Schluß 
die Commodore-Taste und den Buchstaben W. In Zeile 30 ist 
es viermal die Cursor-nach-unten-Taste, gefolgt von zweimal 
die Leertaste, dann SHIFT und T und normal EST, zum Schluß 
noch einmal die Leertaste, die Farbtaste Blau (Control und 7) 
und sechsmal die Leertaste. Zeile 40 besteht lediglich aus 
mehreren Grafikzeichen, die mit der Commodore-Taste und B 
erzeugt werden. 


5 PRINTCHR*(14) 

10 PRINT'TT' 

20 PRINT" I--4" 

30 PR INT "SM«« I EST 3 

40 PRINT"V.V.V.V.V.V.V.V.V.V.V.VaV.V»" 


Bild 2. Auf dem Bildschirm oder Ihrem Drucker sieht das 
Listing (Bild 1) so aus. 
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Eintipphilfe 


C 64 


MSE - Abtippen 
sicher und 
leicht gemacht 

Ähnlich wie der »Checksummer« ist 
auch der MSE ein Hilfsmittel bei der 
Eingabe von Listings, diesmal jedoch 
bei reinen Maschinensprache-Pro¬ 
grammen. 

Im Gegensatz zum »Checksummer« aber ist die Eingabe 
nicht ohne den MSE möglich. Der MSE verringert die Tipp¬ 
arbeit um ein Drittel und schließt Fehleingaben vollkommen 
aus. Außerdem können Sie die Werte blind eingeben, ohne 
andauernd auf den Bildschirm schauen zu müssen. Dies wird 
durch akustische Meldungen realisiert. 

MSE ist ein Maschinenspracheditor, mit dem ein Vertippen 
ausgeschlossen ist. Eine abgetippte Zeile wird nur angenom¬ 
men, wenn sie richtig ist. Eine Checksumme am Ende jeder 
Zeile prüft, ob die richtigen Werte in der richtigen Zeile an der 
richtigen Stelle stehen. Wenn nicht, ertönt ein Warnsignal, 
und man beseitigt den Fehler. 

War die Zeile korrekt, erklingt ein Gong, und die nächste 
Zeilennummer wird ausgegeben. Damit ist also auch »blin¬ 
des« Eintippen möglich; Sie können sich voll auf den Text kon¬ 
zentrieren. 


weiteren Angaben mehr erforderlich. Das Programm kann 
dann ganz normal wieder geladen und gestartet werden. 
Wenn Sie nicht alles auf einmal tippen wollen, können Sie 
jederzeit unterbrechen und den eingetippten Teil mit »CTRL- 
S« abspeichern. Wollen Sie Weiterarbeiten, laden und starten 
Sie MSE wieder. 

Geben Sie auf die Frage nach der Startadresse aber jetzt 
»CTRL-L« ein, um Ihr Teilprogramm zu laden. Jetzt können Sie 
mit »CTRL-N« die Adresse eingeben, an der Sie weitertippen 
müssen. Wenn Sie sich nicht gemerkt haben, wie weit Sie 
gekommen sind, geben Sie nach dem Laden »CTRL-M« ein. 

Auf die Frage nach der Startadresse antworten Sie mit der 
Anfangsadresse, die links in der Kopfzeile auf dem Bildschirm 
steht. Nun wird Ihr Programm aufgelistet. Mit »SPACE« wird 
das Listen fortgesetzt, mit »STOP« abgebrochen. Das Ende 
Ihres Programmteils erkennen Sie sehr einfach daran, daß nur 
noch der Wert »AA« in der Zeile steht. Die Adresse dieser 
Zeile müssen Sie anschließend mit »CTRL-N« eimgeben. Das 
Programm ist nur mit »STOP/RESTORE« zu verlassen. Spei¬ 
chern Sie aber vorher unbedingt immer Ihre« Text ab. 
Hinweise zum Abtippen 

Vor dem Abtippen oder späteren Wiederladen des MSE- 
Laders müssen Sie unbedingt folgende Zeile eingeben: 
POKE 43,1: POKE 44,32: POKE 8192,0: NEW 

Starten Sie das Programm mit RUN. Fehlerhafte Zeilen wer¬ 
den angezeigt und müssen korrigiert werden, bis der Lader 
zum »READY« durchläuft. Jetzt müssen Sie das fertige MSE- 
Programm abspeichern. Dazu brauchen Sie nur »RETURN« 
zu drücken, weil die erforderlichen Angaben schon auf dem 
Bildschirm stehen. (Kassettenbesitzer müssen in Zeile 343 
die letzte Zahl in »1« abändern.) Ab jetzt können Sie »MSE 
V1.0* direkt, also ohne den DATA-Lader, benutzen. MSE VI.0 
wird ganz normal mit »,8« geladen (keine POKEs notwendig). 

(N. Mann / D. Weineck / gk) 


So arbeitet man mit MSE 

Laden und starten Sie MSE. Zuerst wird der Programm¬ 
name und die Start- und Endadresse erfragt. Diese Angaben 
entnehmen Sie dem Kopf des jeweiligen abgedruckten 
Listings. MSE meldet sich dann mit der Zeilennummer der 
ersten Zeile. Wenn Sie die Zeile richtig eingegeben haben, 
erscheint die nächste Zeilennummer und so weiter bis zum 
Ende. Zum Schluß wird das fertige Programm mit »CTRL-S« 
auf Diskette oder Kassette abgespeichert. Dazu sind keine 


MSE-Befehle: 

DEL löscht die letzte Eingabe 

CTRL-S speichert das eingetippte Programm ab. 

CTRL-L lädt ein Programm. Start- und Endadresse werden automa¬ 
tisch ermittelt. 

CTRL-M listet den Speicherinhait. Abbruch mit STOP-Taste, weiter mit 
Leertaste. 

CTRL-N erlaubt die Eingabe einer neuen Adresse zum Weitertippen. 
CTRL-P gibt ein MSE-Listing auf dem Drucker aus. 


100 REM **************************** <091> 

110 REM * * < 159 > 

120 REM * MSE LADER * <206> 

130 REM * * <179> 

220 REM **************************** <211> 

230 REM <036> 

240 DIM H(75): FOR 1=0 TO 9 <113> 

250 H(4B+X > =1: H(65+1) = 1 + 10:NEXT <041> 

260 FOR 1=2048 TO 3755 : READ A* <198> 

270 H=ASC(LEFT*(A*,1)):L=ASC(RIGHT*(A*,1>) <199> 
280 D=H(H)*16+H(L):S=S+D:POKE I,D <219> 

290 A=A+1:IF A<20 THEN NEXT:A=-1 <141> 

300 PRINT " ZEILE:";1000+Z; <011> 

310 READ V :Z=Z+1:IF V=S THEN 330 <218> 

320 PRINT"PRUEFSUMMENFEHLER !":STOP <138> 

330 IF A<0 THEN 341 <221> 

340 S=0:A=0:PRINT:NEXT <046> 

341 PRINT" -CCLRJPS43,1: Pfi44,8: Pfl.45,172: Pfi46 

, 14 < 010 > 

342 POKE 631,19:POKE 632,13:P0KE 633,13:P0 

KE 198,3 <249> 

343 PRINT"<3D0WN>SAVE"CHR$(34)“MSE V1.0"CH 

R*(34)",B <171> 

344 END <092> 


350 REM : 

360 REM ****************** 

370 REM * DATA * 

380 REM ****************** 

390 REM : 

1000 DATA 00,0B,08,0A,00,9E,32,30,36,31,00 
,00,00,A2,08,A9,36,85,A4,A9, 1247 

1001 DATA 08,85,A5,A9,00,85,A6,A9,B0,85,A7 
,A0,00,B1,A4,91,A6,C8,D0,F9, 2888 

1002 DATA E6,A5,E6,A7,CA,D0,F2,A9,36,85,01 
,4C,00,B0,20,D1,B1,A9,06,8D, 2787 

1003 DATA 21,D0,A9,03,8D,20,D0,8D,86,02,A0 
,B3,A9,74,20,FF,B1,A0,B3,A9, 2667 

1004 DATA B9,20,FF,Bl,A0,00,20,CF,FF,99,01 
,02,C8,C9,0D,D0,F5,88,F0,D2, 2912 

1005 DATA C0,0F,90,02,A0,0E,8C,00,02,20,EA 
,B1,A0,B3,A9,CF,20,FF,B1,20, 2323 

1006 DATA 8E,B4,B5,FC,85,62,20,8E,B4,85,FB 
,85,61,20,A7,B4,D0,20,A0,B3, 2864 

1007 DATA A9,E5,20,FF,Bl,20,8E,B4,85,60,20 
,8E,B4,85,5F,20,A7,B4,D0,0A, 2624 

1008 DATA A5,61,C5,5F,A5,62,E5,60,90,06,20 
,43,B3,4C,3A,B0,A9,AA,A0,00, 2379 

1009 DATA 91,FB,E6,FB,D0,02,E6,FC,20,3F,B2 


< 111 > 

< 149> 
<078> 

< 169> 

< 151 > 

< 119> 
<054> 

< 144> 
<237> 
<217> 
<013> 
<199> 
<091 > 

< 167> 
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Der MSE zum bequemen Abtippen von Assemblerprogrammen. Beachten Sie 
den Checksummer auf Seite 6. 
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Eintipphilfe 


,90,EF,4C,FB,B4,A2,02,86,58, 3118 <152> 

1010 DATA A9,A6,A0,9D,20,F2,B1,20,E4,FF,F0 

,FB,C9,30,90,0C,C9,47,B0,08, 2970 <231> 

1011 DATA C9,3A,90,0B,C9,41,B0,07,C9,14,D0 

,0F,4C,0B,B1,20,D2,FF,A6, 58, 2322 <121> 

1012 DATA 95,F7,C6,58,D0,D2,60,AE,8D,02,F0 

,26,C9,0C,D0,03,4C,0B,B6,C9, 2685 <057> 

1013 DATA 13,D0,03,4C,8B,B5,C9,0D,D0,03,4C 

,BA,B4,C9,10,D0,03,4C,68,B5, 2282 <225> 

1014 DATA C9,0E,D0,06,20,5F,B4,4C,64,B1,4C 

,92,B0,A5,F9,20,02,B1,0A,0A, 2132 <208> 

1015 DATA 0A,0A,85, F9,A5,F8,20,02,B1,05, F9 

,60,C9,3A,90,02,69,08,29,0F, 1950 <092> 

1016 DATA 60,A6,59,E0,08,90,1F,A6,58,E0,02 

,B0,06,20,D2,FF,4C,8E,B0,C6, 2509 <1B8> 

1017 DATA 59,A0,14,A9,92,20,F2,B1,CA,D0,FA 

,84,57,68,68,4C,8B,Bl,A6,D3, 2891 <197> 

1018 DATA E0,0B,B0,03,4C,92,B0,20,D2,FF,A6 

,58,E0,02,90,09,C6,59,20,D2, 2468 <049> 

1019 DATA FF,C6,58,D0,F9,4C,BE,B0,48,4A,4A 

,4A,4A,20,59,B1,68,29,0F,C9, 2419 <035> 

1020 DATA 0A,90,02,69,06,69,30,4C,D2,FF,A2 

,FC,9A,20,D1,Bl,20,48,B2,20, 2261 <073> 

1021 DATA EA,B1,20,9F,B2,A5,FC,20,4E,B1,A5 

,FB,20,4E,B1,20,ED,B1,A9,3A, 2860 <14B> 

1022 DATA A0,20,20,F2,B1,A9,00,85,59,20,8E 

,B0,20,ED,B1,A4,59,20,EF,B0, 2530 <233> 

1023 DATA 91,FB,CB,84,59,C0,08,90,EC,20,10 

,B2,A9,12,20,D2,FF,20,8E,B0, 2657 <105> 

1024 DATA 20,EF,B0,C5,FF,F0,0D,20,43,B3,A9 

,14,A0,14,20,F2,B1,4C,A2,B1, 2665 <034> 

1025 DATA A9,92,20,D2,FF,20,33,B2,20,E0,B2 

,20,3F,B2,90,9F,4C,8B,B5,A9, 2648 <123> 

1026 DATA 93,20,D2,FF,A2,00,A9,03,9D,00,D8 

,9D,00,D9,9D,00,DA,9D,00,DB, 2476 <237> 

1027 DATA E8,D0,EF,60,A9,0D,2C,A9,20,4C,D2 

,FF,20,D2,FF,98,4C,D2,FF,20, 2965 <160> 

1028 DATA E4,FF,F0,FB,60,84,5D,85,5C,A0,00 

,Bl,5C,F0,06,20,D2,FF,C8,D0, 3100 <077> 

1029 DATA F6,60,A5,FB,85,5A,A0,00,84,5B,B1 

,FB,18,65,5A,85,5A,90,02,E6, 2606 <156> 

1030 DATA 5B,06,5A,26,5B,CB,C0,08,90,EC,A5 

,5A,65,5B,85,FF,60,18,A5,FB, 2467 <219> 

1031 DATA 69,08,85,FB,90,02,E6,FC,60,A5,FB 

,C5,5F,A5,FC,E5,60,60,A0,B3, 3106 <1B3> 

1032 DATA A9,FB,20,FF,B1,A0,01,B9,00,02,20 

,D2,FF,CC,00,02,C8,90,F4,A9, 2692 <098> 

1033 DATA 10,ED,00,02,AA,20,ED,Bl,CA,D0,FA 

,A5,62,20,4E,Bl,A5,61,20,4E, 2453 <236> 

1034 DATA Bl,20,ED,B1,A5,60,20,4E,B1,A5,5F 

,20,4E,B1,A9,9F,20,D2,FF,20, 2575 <03B> 

1035 DATA EA,B1,24,5E,10,01,60,A9,12,20,D2 

,FF,A2,2B,20,ED,B1,CA,D0,FA, 2646 <161> 

1036 DATA A9,92,4C,D2,FF,A5,D6,C9,16,B0,01 

,60,A9,A0,85,A4,A9,78,85,A6, 2945 <204> 

1037 DATA A9,04,85,A5,85,A7,A2,13,A0,27,B1 

,A4,91,A6,88,10,F9,CA,F0,19, 2671 <208> 

1038 DATA 18,A5,A4,69,28,85,A4,90,02,E6,A5 

,18,A5,A6,69,28,B5,A6,90,E0, 2503 <25i> 

1039 DATA E6,A7,4C,B6,B2,A9,91,4C,D2,FF,A9 

,0F,8D,1B,D4,A9,00,BD,05,D4, 2776 <000> 

1040 DATA A9,F7,8D,06,D4,A9,11,8D,04,D4,A9 

,32,8D,01,D4,A9,00,8D,00,D4, 2413 <126> 

1041 DATA A0,80,20,09,B3,A9,10,8D,04,D4,60 

,A2,FF,CA,D0,FD,88,D0,F8,60, 2914 <240> 

1042 DATA A9,0F,8D,18,D4,A9,2D,BD,05,D4,A9 

,A5,8D,06,D4,A9,21,8D,04,D4, 2385 <119> 

1043 DATA A9,07,8D ,01 , D4, A9,05., 8D , 00, D4, A0 

,FF,20,09,B3,A9,20,8D,04,D4, 2250 <078> 

1044 DATA A9,00,8D,01,D4,8D,00,D4,60,38,20 

,F0,FF,8A,48,98,48,18,A0,06, 2179 <175> 

1045 DATA A2,18,20,F0,FF,A0,B4,A9,0A,20,FF 

,Bl,20,12,B3,20,E4,FF,F0,FB, 2931 <093> 

1046 DATA A2,ID,A9,14,20,D2,FF,CA,D0,FA,68 

, ,A8,68,AA,18,4C,F0,FF,0D,0D, 2704 <08B> 

1047 DATA 0D,20,20,20,20,20,20,20,4D,41,53 

,43,48,49,4E,45,4E,53,50,52, 1144 <216> 

1048 DATA 41,43,4B,45,20,2D,20,45,44,49,54 

,4F,52,20,0D,0D,20,20,20,20, 1023 <038> 

1049 DATA 20,20,20,20,56,4F, 4E , 20,4E , 2E, 4D 

,41,4E,4E,20,26,20,44,2E,57, 1128 <206> 


1050 DATA 45,49,4E,45,43,4B,00,0D,0D,0D,20 

,20,20,50,52,4F,47,52,41,4D, 1102 <117> 

1051 DATA 4D,4E,41,4D,45,20,3A,20,00,0D,0D 

,20,20,20,53,54,41,52,54,41, 1073 <095> 

1052 DATA 44,52,45,53,53,45,20,3A,20,24,00 

,0D,0D,20,20,20,45,4E,44,41, 1014 <129> 

1053 DATA 44,52,45,53,53,45,20,20,20,3A,20 

,24,00,92,05,20,50,52,4F,47, 1171 <217> 

1054 DATA 52,41,4D,4D,20,3A,20,00,12,20,20 

,2A,2A,2A,20,46,41,4C,53,43, 1024 <027> 

1055 DATA 48,45,20,45,49,4E,47,41,42,45,20 

,2A,2A,2A,20,20,92,00,0D,0D, 1058 <098> 

1056 DATA 2A,2A,2A,20,45,4E,44,45,20,2A,2A 

,2A,00,13,05,20,20,12,44,92, 920 <14B> 

1057 DATA 49,53,4B,20,4F,44,45,52,20,12,54 

,92,41,50,45,0D,00,13,20,20, 1151 <035> 

1058 DATA 49,2F,4F,20,2D,20,46,45,48,4C,45 

,52,00,20,Dl,B1,20,48,B2,A0, 1606 <012> 

1059 DATA B3,A9,CF,20,FF,Bl,20,BE,B4,85,FC 

,20,8E,B4,85,FB,C5,61,A5,FC, 3207 <251> 

1060 DATA E5,62,90,23,A5,FB,C5,5F,A5,FC,E5 

,60,B0,19,20,A7,B4,D0,14,60, 2860 <112> 

1061 DATA 20,A7,B4,F0,0C,85,F9,20,A7,B4,F0 

,05,85,F8,4C,EF,B0,68,68,20, 2749 <0B8> 

1062 DATA 43,B3,4C,5F,B4,20,CF,FF,C9,4C,D0 

,09,20,Dl,Bl,20,48,B2,4C,0B, 2372 <046> 

1063 DATA B6,C9,0D,60,A9,00,85,5E,20,5F,B4 

,20,EA,B1,20,0D,B5,24,5E,30, 2042 <120> 

1064 DATA 05,20,E4,FF,F0,FB,20,El,FF,F0,26 

,20,9F,B2,24,5E,10,09,20,4E, 2435 <198> 

1065 DATA B5,20,0D,B5,20,60,B5,20,33,B2,20 

,3F,B2,90,D7,A0,B4,A9,28,20, 2190 <207> 

1066 DATA FF,Bl,20,E4,FF,C9,0D,D0,F9,A9,00 

,85,5E,A5,61,85,FB,A5,62,85, 3056 <240> 

1067 DATA FC,20,E0,B2,4C,64,B1,A5,FC,20,4E 

,B1,A5,FB,85,FF,20,4E,B1,A9, 3003 <221> 

1068 DATA 20,A0,3A,20,F2,B1,A0,00,20,ED,B1 

,B1,FB,20,4E,B1,C8,C0,08,90, 2566 <070> 

1069 DATA F3,20,ED,Bl,24,5E,30,03,A9,12,2C 

,A9,20,20,D2,FF,20,10,B2,A5, 2190 <059> 

1070 DA' FF , 20,4E, Bl , A9,92,20, D2, FF, 4C, EA 

,B1,A9,FF,85,B8,85,B9,A9,04, 3073 <029> 

1071 DATA 85,BA,20,C0,FF,A2,FF,4C,C9,FF,20 

,CC,FF,A9,FF,4C,C3,FF,20,5F, 3315 <1B9> 

1072 DATA B4,A9,80,85,5E,20,4E,B5,20,48,B2 

,A2,24,A9,2D,20,D2,FF,CA,D0, 2596 <111> 

1073 DATA FA,20,EA,Bl,20,EA,B1,20,60,B5,4C 

,C1,B4,20,B8,B5,A6,5F,A4,60, 2812 <015> 

1074 DATA A9,61,20,DB,FF,B0,0A,20,B7,FF,29 

,BF,D0,03,4C,FB,B4,A9,01,20, 2577 <201> 

1075 DATA C3, FF, 20,68, B6, A0, B4, A9,4F, 20 , FF 

,Bl,20,F9,B1,4C,FB,B4,20,68, 2921 <237> 

1076 DATA B6,A9,37,A0,B4,20,FF,B1,20,F9,B1 

,A2,08,C9,44,F0,06,A2,01,C9, 2717 <213> 

1077 DATA 54,D0,F1,A9,01,A8,20,BA,FF,A0,00 

,E0,01,F0,1A,A9,40,8D,20,02, 2403 <101> 

1078 DATA A9,3A,8D,21,02,B9,01,02,99,22,02 

,C8,CC,00,02,90,F4,C8,C8,D0, 2182 <127> 

1079 DATA 0C,B9,01,02,99,20,02,C8,CC,00,02 

,D0,F4,98,A2,20,A0,02,4C,BD, 2018 <025> 

1080 DATA FF,20,B8,B5,A5,BA,C9,08,90,33,A6 

,B9,86,57,A9,01,20,C3,FF,A9, 2800 <022> 

1081 DATA 60,85,B9,20,C0,FF,B0,28,A5,BA,20 

,B4,FF,A5,B9,20,96,FF,20,A5, 2911 <053> 

1082 DATA FF,85,61,A5,90,4A,4A,B0,13,20,A5 

,FF,85,62,20,AB,FF,A5,57,85, 2663 <214> 

1083 DATA B9,A9,00,20,D5,FF,90,03,4C,A3,B5 

,86,5F,84,60,A5,BA,C9,01,D0, 2639 <131> 

1084 DATA 0A,AD,3D,03,85,61,AD,3E,03,85,62 

,4C,FB,B4,A9,13,20,D2,FF,A2, 2300 <120> 

1085 DATA IC,20,ED,Bl,CA,D0,FA,60, 1230 <214> 

© G4'er 


MSE (Schluß). Dieses Listing können Sie (müssen aber 
nicht) mit dem neuen Checksummer 64 V3 in diesem Heft 
eingeben. 
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C 64 


Sportspiele 


Golf 

Reines Basic und doch ein vollwerti¬ 
ges Sportspiel — »Golf« demonstriert, 
weiche Möglichkeiten sich durch ge¬ 
schickte Sprite-Steuerung bieten. 

Das Ergebnis zeigt, daß auch von Basic aus kompliziertere 
Bewegungsabläufe möglich sind. Allerdings wurden so ziem¬ 
lich alle Möglichkeiten zur Programmbeschleunigung an¬ 
gewandt, was natürlich auf Kosten der Übersichtlichkeit geht. 
Interessierte werden sich aber wohl an den REM-Zeilen 
orientieren können, so daß auf eine detaillierte Beschreibung 
der Programmtechnik verzichtet werden kann. 

Zum Spielablauf aber einige Bemerkungen: 

Es wird in zwei Bildern gespielt, wahlweise mit einem oder 
mit zwei Spielern. Die Schlagrichtung wird durch einen Joy¬ 
stick an Port 2 oder über die Tasten CURSOR LEFT / RIGHT 
eingestellt, die Schlagstärke mit FIRE oder der SPACE-Taste. 
Solange FIRE oder SPACE betätigt werden, wächst die 
Schlagstärke, nach Loslassen beginnt die Ballbewegung. 

Im ersten Bild wird der Ball weit geschlagen, als Flugbahn 
ergibt sich eine Parabel. Dieses Bild ist besonders durch die 
sich zufällig ändernde Landschaft interessant. Der Verlauf der 
Bodenkurve und die Positionen der Bäume und des Sees sind 
bei jedem Spiel anders, ohne daß sich aber der Schwierig¬ 
keitsgrad entscheidend ändert. Das erste Bild ist meist in fünf, 
äußerst selten in vier und maximal in sechs Schlägen bei 
optimalem Spiel zu schaffen. 

Wird der See getroffen, muß wieder von vorn bei der Aus¬ 
gangsposition begonnen werden. 

Außer beim großen Baum sind die Stämme für den Ball ein 
undurchdringliches Hindernis, während beim Blattwerk die 
Flugbahn nicht sicher vorherzusehen ist. 

Wird der gekennzeichnete Bereich um die Fahne erreicht, 
erscheint das zweite Bild, welches in etwa eine Vergrößerung 
dieses Bereiches darstellt. An entsprechender Stelle liegt 
auch der Ball. 

Im zweiten Bild kann dieser nicht mehr hochgeschlagen, 
sondern nur noch gerollt werden, so daß die zufällig angeord¬ 
neten Sandfelder, die die Bewegung stark abbremsen, mög¬ 
lichst umgangen werden sollten. Die Spielfläche ist hier meist 
in zwei Richtungen geneigt. Sie steigt immer vertikal nach 
oben (also in den Bildschirm hinein) an, während das horizon¬ 
tale Gefälle durch den rechten Bereich des ersten Bildes 
bestimmt wird. 

Dadurch wird die Bahn des Balles etwas kompliziert, aber 
auch interessant. Es ist einige Übung erforderlich, bis man 
hier ein gutes Augenmaß entwickelt hat. 

Das Programm hat insgesamt einen für ein Basic-Programm 
recht hohen Spielwert und kann durchaus als Anregung zur 
Programmierung eigener Basic-Spiele dienen. 

(Bernhard Tertelmann / ev) 


2 REM * B.TERTELMANN * <13B> 

3 REM * OSTENDORF 36 * <184> 

4 REM * 4435 HORSTMAR * 

***************** <106 > 

5 PRINT"{CLR,GREY 3>* SOLF *":V=5324B:POKE 

V+21,0:PQKE V+32,11:P0KE V+33,U:G0T0 1 
5 <083> 

6 REM V+16 FUER BAEUME UND BALLBEWEGUNB <229> 

7 IF Z>W THEN Z=Z AND W:POKE V6,C <247> 

8 RETURN <066> 

9 IF D-C>W THEN POKE V6,PEEK(V6)OR 16:C=W+ 

1:RETURN <I44> 

10 IF D<C THEN POKE V6.PEEK(V6>AND NOT 16: 

C=0 <234> 


11 RETURN 

15 V6=V+16:V0=V+30:V1=V0+1:0=21.9:W=255:M= 
40:SX=.8:SY=.8:S=54272:J=56320:B=2040 

16 DIM PX(38> ,P<50) : FOR 1=0 TO 38: READ P7. < 
I):NEXT 

17 FOR 1=0 TO 7:READ R(I),G(I),B<I),H(I):N 
EXT:N=20 

18 FOR 1=0 TO 10:READ P(I):P(N+I)=-P(I):P( 
N-I> =P(I):P(M-I>=-P (I>:P(M+I> =P(I):NEXT 

20 FOR 1=832 TO 864:READ Q:POKE I,Q:NEXT:F 
OR 1=1 TO 989:POKE 1,0:NEXT 
25 FOR 1=1 TO 1+33:READ Q:POKE I,Q:NEXT:FO 
R 1=12800 TO 1+46:READ Q:POKE I,Q:NEXT 
30 FOR 1=1 TO I+38:POKE I,0:NEXT:FOR 1=1 T 
0 1+297:READ Q:POKE I,Q:NEXT 
35 POKE 924,24:POKE 927,60:POKE 930,60:POK 
E 933,24:POKE V+42,5:P0KE V+43,1:REM BA 
LL 

40 DEF FN B (X)=0+(SIN(X/2)+COS(X/4))/2:REM 
BODENKURVE FUER l.BILD 
42 DEF FN H(X)=K+SIN(X/5)/2+(X-A)*L:REM 
HORIZONT FUER 2.BILD 

45 POKE V+37,10:POKE V+3B,0:POKE B,200:POK 
E B+3,203:POKE B+4,14 
50 POKE S,0:POKE S+6,0:POKE S+7,0:POKE S+9 
,0:POKE S+10,8 

55 POKE S+13,0:POKE S+14,0:POKE S+19,9:P0K 
E S+20,0:POKE S+24,15 
60 PRINT"tCLR,BLUE,4D0WN>":POKE V+33,6:P0K 
E V+32,11 

62 PRINT TAB(14>" U*1U*II <2BPACF>U*l" 

65 PRINT TAB(14)" = £2SPACE> = — f7FPftr.F>—" 

68 PRINT TAB (14) " .-.♦-1- —{2SPACEIS*" 

70 PRINT TAB (14) " — — —£2SPACE>-" 

72 PRINT TAB (14) 11 J-*.K.J.*J(.J*.K K CDOION>•' 

75 PRINT TAB(14)"************C6D0WN,BLACK> 


80 PRINT TAB (8) " 1 SPIELER.TASTE UDO 

WN>" 

82 PRINT TAB(8) "2 SPIELER.TASTE 2":I 

=10 


85 GE T A*:IF A*=”1"0R AS="2"THEN 90 

86 A=_-600:FOR K=0 TO 38: POKE A+P7. (K) , I TI: 
NEXT 

87 FOR K=0 TO 11:POKE 55750+K,I TI:NEXT:1=7 
-(1=7)*3:GOTO 85 

90 SS=VAL(AS):BS(1)=999:BS(2)=999:SM(1)=0: 
SM(2)=0:SP=0 

95 S(1)=0:S(2)=0:SP=SP+1:FOR N=1 TO SS:POK 
E S+B,15:POKE S+12,5:P0KE "S+15.150 

99 REM VORBEREITUNG BILD 1 

100 POKE V+33,9:PRINT"<CLR>":POKE V+33,6:P 
OKE V+32,11:POKE V+23,42:P0KE V+29,232 

105 POKE V+28,7:POKE V+40,5:POKE V+41,5:P0 
KE V+44,0:POKE V+45,15:P0KE V+46,15 
110 POKE B+1,201:POKE B+2,202:POKE B+5,204 
:POKE B+6,13:POKE B+7,15 
115 Q=RND(TI> :A=G*9999:A7.=Q*20:X=A+A7.:H=FN 
B (X) 

120 Y=FN B(X+10):IF Y+1<H THEN 115 
125 IF Y>H THEN H=Y 

130 Z=A7.+55297+INT(H)*M:F0R 1=0 TO 8: POKE 
Z+I,14:NEXT 

135 Z=Z+41:FOR 1=0 TO 6:POKE Z+I,14:NEXT:L 
=A7.+ 1024:R=L+10 

140 K=0:FOR X=A+37 TO A+39:IF FN B(X>>=22 
THEN K=1 

145 NEXT:Y=56173:FOR 1=0 TO 2:FOR X=0 TO K 
:POKE Y+I+X*M,8:NEXT:NEXT 
150 POKE V6,1:POKE V,64:P0KE V+1,FN B(A+38 
)*8+35 

155 K=1: IF AX>14 THEN K=3:G0T0 165 
160 IF A7.>7 THEN K=2 

165 X7.(K-1)=A7.+B:F0R I=K TO 3: XX (I) =RND (1) 
*(11 + I*6-XX(1-1)> +XX(1-1> +6:NEXT 
170 ON K GOTO IBS,180 

175 XX(1)=RND(1)*(AX—12)+4:XX(2)=RND(1)*(A 
X—8—XX(1))+XX(1)+6:GOTO 185 
180 XX(1)=RND(1)*(AX—6)+4 
185 XX=RND(1)*3+1 

190 YX=RND(1)*3+1:IF YX=XXTHEN 190 

195 K=6—XX—YX:X=XX(XX>:Z=X*8+1B:C=3:GOSUB 


<069> 

< 185> 

< 107> 

< 150> 
<158> 
<250> 
< 100 > 
<051 > 


< 193> 
<025> 
<252> 
<059> 

< 186> 

<065> 

<062> 
<092> 
<214> 
<050> 
<218> 
<221 > 

< 187> 

<241 > 

<204> 

<160> 

<032> 

<021 > 

< 161 > 


< 020 > 
<241 > 


<034> 

< 187> 

<031 > 

<169> 

<154> 

< 010 > 

< 124> 

< 012 > 

<098> 

<062> 

<214> 

<099> 

< 120 > 

< 011 > 

< 159> 

<006> 

< 165> 
<061 > 
<053> 


7:POKE V+2,Z:POKE V+3,FN B(X+A)*B+8 <108> 


Listing zu »Golf«. Verwenden Sie zur Eingabe bitte nur 
den Checksummer in diesem Heft. 
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C 64 




245 



309 

310 


315 

319 

320 

325 

330 

335 

340 

345 

350 

355 

360 

365 

370 

375 

3B0 



X=XX(YX> :Z=X*B+18:C=5:G0SUB 7:P0KE V+4 
,Z:POKE V+5,FN B<X+A>*8+29 
X=XX(K):Z=X*8+8: C=41:GDSUB 7:PDKE V+6, 
ZrPDKE V+10,Z 

Z=FN B(X+A)*8+8:POKE V+7,Z:POKE V+11,Z 
:POKE V+8,0 

POKE V+12,132:P0KE V+13,73:POKE V+14,1 
80:POKE V+15,63 

X=A:FOR 1=1024 TO 1063:IF I>L AND I<R 
THEN Y=H:GOTO 230 
Y=FN B(X) 

YX=Y:POKE I+M*YX,B(8*(Y-YX)>:FOR Y=YX+ 
1 TO 24:POKE I+M*Y,160:NEXT:X=X+1:NEXT 
PRINT"<BLACK>":ON SS GOSUB 670,680:L=A 
X+2iR=L+10 

PRINT TAB(5)"{RED,4D0WNJS<RVSON>V{2SPA 
CE >E{RVOFF >P": PR I NT TAB < 5) " {RVSON >V<4S 
PACE>r" 

PRINT TAB(5)"{RVSON,2SPACE,BREY 2,14SP 
ACE>":PRINT TAB(3)" 

PRINT TAB(5)"{RVSON,RED>F{4SPACE>B{BLA 
CK>":POKE V+21,W:Z=931:P=0:U=5 
REM SPIEL BILD 1 
C=0:X=A:XX=0:D=14 

POKE S+6,0:Y=FN B(X):E=Y*8+37:X=0 
POKE V+8,D—C:POKE V+9,E:P0KE V+27,0:GO 
SUB 650:IF XX>38 THEN 310 
GOSUB 550:F=2*SGN(T):K=F:G=G*T:G=G*G:T 
=P(P>/T:POKE V+27,16 

POKE Z,0:POKE S+4,129:Y=PEEK(V0)+PEEK( 
VI) 

D=D+K:IF D<14 OR D>328 THEN POKE S+5,9 
:POKE S+4,0:POKE S+4,17:K=-K:D=D+K+K 
IF PEEK(V0)AND 14 THEN POKE S+18,0:POK 
E S+18,129:K=-K:D=D+K+K 
X=X+F:Y=E+X*(X/G—T):IF Y>240 THEN 300 
GOSUB 9:POKE V+8,D-C:POKE V+9,Y:IF NOT 
PEEK(VI)AND 16 THEN 2B0 
XX=D/8+.5:IF XX>L AND XX<R THEN POKE V 
+9,H*8+40:GOTO 500 

POKE S+l1,0:POKE S+l1,17:X=XX-2+A:D=XX 
*8-2:GOSUB 9:GOTO 260 
REM ENDE BILD 1 

PRINT"{3D0WN>":FOR 1=0 TO 28:FOR K=0 T 
O 4:PRINT"tRIGHTJ";CHRS(20):NEXT:PRINT 
"{6UP >" 

POKE S+18,16:POKE S+18,17:F0R T=0 TO 5 
0:NEXT:NEXT 

REM VORBEREITUNG BILD 2 

POKE V+21,0:PRINT“{CLR>“:POKE V+33,9:P 

OKE V,207:POKE V+1,120:POKE V+28,1 

POKE B+l,13:POKE B+2,15:P0KE B+5,205:P 

OKE B+6,205:POKE B+7,205 

POKE V+40,15:POKE V+41,15:P0KE V+44,7: 

POKE V+45,13:POKE V+46,7 

FOR I=V+10 TO V+13:POKE I,RND(1)*140+2 

5:1=1+1:POKE I,RND(1)*85+120:NEXT 

POKE V+14,RND(1)*62:POKE V+15,RND(1)*8 

5+120:POKE V6,12B 

E=<Y-19)*50+35:D=INT((RND(1)+XX-39)*10 
4+15):C=0:GOSUB 9 

POKE V+8,D-C:POKE V+9,E:P0KE S+8,5:P0K 
E S+l2,96 

POKE V+2,132:POKE V+3,73:P0KE V+4,180: 
POKE V+5,63 

XX=(FN B(A+39)—FN B(A+37))*7:Q=SGN(XX) 

: L=0/9:K=6-0-Q:Q=Q*SX:POKE 55720,0 
X=A:FOR 1=1024 TO 1063:Y=FN H(X):YX=Y: 
FOR T=0 TO YX—1:POKE I+T*M,160:NEXT 
POKE I+M*YX,H(8*(Y-YX>):X=X+1:NEXT 
POKE S+15,15:ON SS GOSUB 670,680:POKE 
V+23,192:POKE V+29,102:POKE V+21,247 
GOSUB 650:GOSUB 550:G=G/4+l:F=P(P):POK 
E Z,0:POKE S+4,129 
REM SPIEL BILD 2 

I=PEEK(V0)+PEEK(VI):FOR I=G TO 1 STEP- 
.07:X0=D:Y0=E:IF I<3 THEN D=D+Q:E=E+SY 
D=D+T*I:IF D<14 OR D>330 THEN POKE S+l 
8,0:POKE S+18,17:T=—P(P+10):D=X0 
IF PEEK (VI) AND 16 THEN IF EO09 THEN E 
=FN H((D-14)/8+A)*B+M:1=1-.1:GOTO 415 
H=PEEK(V0):E=E—F*I:IF E>237 THEN POKE 
S+18,0:POKE S+18,17:F=—P(P):E=Y0 
IF H AND 16 THEN IF NOT H AND 1 THEN I 
= I—■4:POKE S+l1,0:POKE S+11,129 



410 

<061 > 

415 

< 137> 

420 

<057> 

425 

<173> 

430 

<239> 

434 

<220> 

435 

< 174> 

440 

<088> 

445 


450 

<048> 

455 

<034> 

460 

<236> 

465 

< 181 > 
<094> 

470 

<087> 

475 

<203> 

480 


489 

<200> 

490 

< 157> 

499 

< 190> 

500 

<079> 

505 

< 118> 

510 

<040> 

515 

< 136> 


< 199> 

49 

550 

<248> 

555 


560 

<228> 

565 


570 

< 171 > 

575 

<215> 

580 

< 139> 

585 


590 

<241 > 

595 


600 

<056> 

605 

<249> 

610 

<054> 

615 

< 133> 

620 

< 137> 

625 

<026> 

630 


635 

< 196> 

640 

<097> 

<223> 

649 


650 

<056> 

655 

<228> 

<073> 

660 

< 147> 

669 

<208> 

670 


675 

< 189> 

679 

< 168> 

680 


685 

<002> 

690 


IF E<126 AND E>120 THEN IF D<211 AND D 
>205 THEN 435 <225> 

D=INT(D+.5>:YX=E+.5:GOSUB 9:P0KE V+8,D 
—C:POKE V+9,YX:NEXT <193> 

IF PEEK(VI)AND 16 THEN IF E<109 THEN P 
OKE V+9,YX+3:E=E+3 <201> 

IF E<160 THEN IF D<250 AND D>170 THEN 
POKE 1448,87:POKE V+21,246:GOTO 380 <097> 

POKE 1448,32:POKE V+21,247:GOTO 380 <162> 

REM SPIELENDE UND AUSWERTUNG <016> 

POKE V+8,208:POKE V+9,123:GOSUB 650:PO 
KE S+12,0:POKE S+13,89:P0KE V+32,2 <004> 

POKE S+l1,0:POKE S+l1,65:GOSUB 490:POK 
E V+33,8:GOSUB 490:POKE V+32,11 <094> 

GOSUB 490:POKE V+33,9:GOSUB 490:POKE V 
+21,0:POKE S+l1,0:POKE S+13,0:NEXT N <157> 
FOR 1=1 TO SS:SM(I)=SM(I)+S(I>:IF S(I) 

<BS(I> THEN BS(I> =S(I> <173> 

NEXT:PRINT"{CLR,4D0WN >“:POKE V+33,8:ON 
SS GOSUB 700,705 <218> 

PRINT TAB(5)"<6D0WN>V0N VORN. 

TASTE V":PRINT TAB(5)"(PUNKTE AUF 0)" <159> 

PRINT TAB (5) " {DOWN>WEITER.TAST 

E W ODER FIRE" <117> 

GET A*:IF PEEK(J)AND 16 THEN IF A*<>"V 
"AND A*< >"W"THEN 470 <116> 

IF A*="V"THEN 60 <042> 

GOTO 95 <036> 

REM TONERZEUGUNG BEI SPIELENDE <007> 

FOR 1=0 TO 3:FOR F=20 TO 50:POKE S+8,F 
:NEXT:NEXT:RETURN <048> 

REM TON UND RAMENFARBE, WENN SEE GE-TR 
OFFEN <059> 

POKE S+5,9:POKE S+6,5B:P0KE V+32,8:P0K 
E S+4,0:POKE S+4,129 <140> 

FOR 1=10 TO M STEP.3:POKE S+l,I:NEXT:P 
OKE V+32,11 <025> 

FOR 1=25 TO 70 STEP.3:POKE S+l,I:NEXT: 

POKE V+32,8:POKE S+4,128 <210> 

FOR 1=0 TO 300:NEXT:POKE S+5,5:P0KE V+ 

32,11:GOTO 255 <0B2> 

REM EINGABE WINKEL UND SCHLAGSTAERKE <124> 
POKE S+l,W:POKE S+5,2:P0KE S+4,32:POKE 
Z,R(U):POKE S+4,33:P0KE S+l,30 <234> 

F=NOT PEEK(J):IF F AND 16 THEN 595 <230> 

IF F AND 4 THEN P=P+(P=M)*P+1:GOTO 635 <082> 
IF F AND 8 THEN 630 <049> 

GET A*:IF A#=""THEN 555 <002> 

IF A$="{LEFT>"THEN P=P+(P=M)*P+1:GOTO 
635 <190> 

IF A*="{RIGHT>"THEN 630 <019> 

IF A*<>" "THEN 555 <251> 

FOR 1=0 TO 180:NEXT <040> 

I=B53:T=0:G=2:S(N)=S(N)+1 <013> 

IF G>13 THEN G=Gtl:GOTO 620 <075> 

G=G+.23:IF T>7 THEN T=0:1=1+1:IF 1=856 
THEN 1=1011 <165> 

IF 1=1013 THEN F=G(T)OR l:POKE I,F:POK 
E I+3,F:POKE I+6,F:G0T0 620 <130> 

POKE I,G(T):POKE 1+3,G(T>:POKE 1+6,G(T 
> . <046> 

T=T+1:GET A«:IF NOT PEEK(J)AND 16 OR A 
*=" "THEN 600 <092> 

T=P(P+10):ON SS GOSUB 670,685:POKE S+4 
,0:POKE S+5,5:RETURN <077> 

P=P-(P=0)*M—1 <172> 

YX= 11 —9*P (P): XX.= 11.5+10*P (P+10) : AX=XX / 

8:U=XXAND 7 <070> 

POKE Z,0:Z=896+AX+3*YX:POKE Z,R(U):GOT 
0 555 <233> 

REM GESCHWINDIGKEITS-SKALA LOESCHEN <133> 

POKE 1019,1:POKE 1016,1:POKE 1013,1:PO 
KE 1018,0:POKE 1015,0:POKE 1012,0 <103> 

POKE 1017,0:PDKE 1014,0:POKE 1011,0:PO 
KE 861,0:POKE 858,0:POKE 855,0 <081> 

POKE 860,0:POKE 857,0:POKE B54,0:POKE 
859,128:POKE 856,128:POKE 853,128:RETU 
RN <111> 

REM BILDSCHIRMKOPF FUER 1 SPIELER <U7> 

PRINT"{HOME>" <142> 

PRINT TAB(9)"{RVSON>SPIEL"SP TAB(24)”{ 

RVOFF JSCHLAEGE:"S(1):RETURN <176> 

REM BILDSCHIRMKOPF FUER 2 SPIELER <159> 

POKE 1041+N*24,81:POKE 55313+N*24,15 <177> 

PRINT"{HOME>" <157> 

PRINT"{2RIGHT>1.SPIELER"S(1)TAB(18)"{R 
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VSON>"SP"{LEFT,SPACE >"TAB(26)"{RV0FF>2 
.SPIELER"S(2):RETURN 

699 REM AUSWERTUNG FUER 1 SPIELER 

700 GOSUB 675:PRINT TAB(13)"{2D0WNJBESTES 
SPIEL''BS <1>:PRINT TAB ( 13) " {DOWN>SUMME" 
SM(1):RETURN 

704 REM AUSWERTUNG FUER 2 SPIELER 

705 GOSUB 690:PRINT“{2D0WN,SPACEIBESTES SP 
."BS(1)TAB(25)“BESTES SP.“BS<2> 

710 PRINT"{DOWN,SPACE JSUMME"SM <1)TAB <25>"S 
UMME-SMC2):RETURN 

755 DATA-88,—89,—90,—50, — 10,30,70,71,72,32 
,-8,-9,-85,-86,-87,-47,-7,33,73,74 

760 DATA 75,35,-5,-45,-84,-44,-4,36,76,77, 
78,79,39,-1,,-41,-81,-80,-79 

765 DATA 192,128,160,99,96,192,227,119,48, 
224,247,120,24,240,248,226 

770 DATA 12,248,98,249,6,252,121,239,3,254 
,111,228,3,255,100,160 

774 REM SIN-TABELLE 

775 DATA.001,.156,.309,.454,.588,.707,.809 
,.891,.951,.986,.999 

779 REM SPRITE 'SKALA LINKS' 

780 DATA 226,57,200,166,8,74,162,57,206,16 
2,32,66,226,57,194 

785 DATA 8,66,16,255,255,255,128,,,128,,,1 

28.. .255.255.255 

789 REM SPRITE 'SKALA RECHTS' 

790 DATA 115,156,231,66,4,165,115,136,231, 
18,136,161,115,136,231 

795 DATA 132,33,8,255,255,255,,,1,,,1,,,1, 
255,255,255, 

799 REM SPRITE 'FAHNE' 

800 DATA,12,,,13,,,13,64,,13,64,,13,16,,13 
,84,,13,80,,13,, 

805 DATA 12,,,12,,,12,,,12,,,12,,,12,,,12, 
,,63 

809 REM SPRITE 'TANNE' 

810 DATA 8,,,8,,,42,,,34,,,168,128,,170,12 
8,2,170,128,2,170 

815 DATA 160,10,46,160,10,190,168,10,62,40 
,,60,,,60,,,60,, 

819 REM SPRITE 'KLEINER BAUM' 

820 DATA,170,,2,170,128,10,170,168,10,42,1 
68,42,168,168,34,130,170,42,42 

825 DATA 170,40,170,42,168,138,170,162,40, 
162,40,170,170,170,170,168,138,186 

830 DATA 160,170,186,,40,60,,,60,,,60,,,60 

11 1 60 .. . 60 ... 60 ., 

834 REM SPRITE 'GROSSER BAUM - LAUB' 

835 DATA 31,240,,59,254,,59,255,,125,207,1 
28,124,191,224,126,127,224,223,127 

840 DATA 112,227,63,176,125,63,176,62,30,1 

12.1.153.176.. 3.224..1.224, 

845 DATA,,24,,,118,,,205,,,240,,,,,,,,,,,, 

849 REM SPRITE 'GROSSER BAUM - STAMM' 

850 DATA,,,4,,,4,,,2,48,,3,64,,1,128,,32,1 
28 

855 DATA 128,28,192,64,2,192,64,1,225,128, 
0,102,64,,124,,,120,, 

860 DATA 112,,6,112,,9,240,,48,240,,,112,0 
,,112,,,112,,,112,, 

864 REM SPRITE 'SANDFELDER' 

865 DATA,2,170,,,,,85,85,,,,10,170,170,,,, 
5,85 

870 DATA 85,,,,42,170,170,,,,85,B5,85,,,,4 
2,170,168, 

875 DATA,,85,85,80,,,,170,170,128,,,,85,85 
,64,,,,170,170,, 

885 REM MIT DEN VARIABLEN SX UND SY KANN I 
N ZEILE 15 FUER BILD 2 DAS GEFAELLE 

886 REM IN X- UND Y—RICHTUNG GETRENNT E 
INGESTELLT WERDEN. 

890 REM FUER S/W-GERAET ODER -MONITOR B 
ITTE FOLGENDE ZEILEN AENDERN 

891 REM 100 POKEV+33,8... 

892 REM 145 ...POKEY+I+X*M,12... 

893 REM 320 ...POKEV+33,8... 

894 REM 435 ...POKEV+32,0 

895 REM 440 ...POKEV+33,12... 

896 REM 445 ...POKEV+33,8... 

897 REM 500 ...POKEV+32,12... 

898 REM 510 ...POKEV+32,12... 

900 REM-ZEILEN BRAUCHEN NICHT MIT EINGE- G 
EBEN ZU WERDEN! 
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6 64'er 


Listing zu »Golf« (Schluß) 


Tonti 

Sie konzentrieren sich. Langsam 
nähert sich ein Finger dem Feuer¬ 
knopf des Joysticks. Noch einmal wer¬ 
den die möglichen Folgen überdacht. 
Sie zögern. Doch dann, mit einem 
entschlossenen Druck, schießt der 
Feuerknopf nach unten. 

Krampfhaft umfaßt die andere Hand den Knüppel. Schon 
schießen von zwei Seiten ovale Gegenstände scheinbar auf¬ 
einander zu. Ihre Hand stößt nach vorne. Das Fadenkreuz 
ruckt nach oben, synchron zur schreckhaften Bewegung der 
nervösen Hand, um dann plötzlich seitlich auszubrechen. Der 
eine Diskus hängt für eine kaum wahrnehmbare Zeit direkt im 
Zentrum des Visiers. 

In diesem Augenblick zuckt der Gedanke »jetzt« durch die 
angespannten Nerven und wiederum bekommt der Feuer¬ 
knopf einen materialzermürbenden Schlag ausgeteilt. Ein 
peitschenknallartiges Geräusch martert Ihre Ohren. Aber zu 
spät. Mit grimmigen Augen sehen Sie die Tontauben unbe¬ 
schädigt vorbeifliegen. Hinter Ihnen drängt schon Ihr feixen¬ 
der Mitspieler, der jetzt sein Glück beim Tontaubenschießen 
versuchen will... 


Das Spiel 

Jetzt wissen Sie auch, warum das Spiel Tonti heißt, nämlich 
weil Tontauben abgeschossen werden sollen. Kommen wir 
jedoch zu den weniger dramatischen Erklärungen und den 
wichtigen Tips zum Abtippen. 

Tonti enthält zwei Spielarten und fünf Schwierigkeitsgrade, 
die von maximal fünf Spielern absolviert werden. 

Das Unterscheidungsmerkmal der Schwierigkeitsgrade ist 
allein die Geschwindigkeit der Tontauben. 

Spiel 1 gewählt: Der Spieler bestimmt den Schwierigkeits¬ 
grad, den er absolvieren möchte. 

Spiel 2 gewählt: Der Spieler absolviert alle fünf Schwierig¬ 
keitsgrade hintereinander. Nach jedem 
Durchgang wird das Zwischenergebnis 
(Name, Treffer, Punkte) angezeigt. 

Zu Beginn und am Ende jedes Spiels wird der Highscore 
angezeigt und gespeichert. 

Die Bestenliste ist unterteilt in Spiel 1 und Spiel 2. 

Spiel 1: Der Beste in jedem der fünf Grade ist mit 

Namen und Punktzahl verewigt. 

Spiel 2: Hier stehen die besten fünf Spieler, die alle 

fünf Grade absolviert haben. 

Spielablauf: 

Das Spiel Tonti wird geladen und durch RUN gestartet, 
wodurch sich »MC-CODE« lädt und das Spiel beginnt. Die 
Steuerung erfolgt über Joystick. Nur der Name muß mit 
»RETURN« abgeschlossen werden. 

Erscheint nach Eingabe von Spielart, Schwierigkeitsgrad, 
Spielerzahl und Namen das Spielfeld, so werden durch 
Knopfdruck am Joystick die Tauben, per Zufall 1 oder 2, 
geworfen. Nun muß das Fadenkreuz, welches sich, auch per 
Zufall, auf einem von drei festgelegten Punkten postiert, mit 
Hilfe des Joysticks zu den Tauben gesteuert und mit ihnen auf 
Deckungsgleichheit gebracht werden. In diesem Moment 
können sie dann, durch Druck auf den Feuerknopf, abge¬ 
schossen werden. 
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Hinweise zum Abtippen 

Tonti besteht aus vier Listings, von denen drei (Listing 1 bis 
3) mit dem MSE eingegeben werden müssen, den Sie in die¬ 
sem Heft ebenfalls finden. Bei Listing 4 hilft Ihnen der neue 
Checksummer, der alle Tippfehler nahezu ausschließt. Da 
Listing 1 im Originalzustand noch um einiges länger ist, haben 
wir zu einem Kniff gegriffen, um die Tipparbeit etwas zu ver¬ 
kürzen (um zirka 34%). Deshalb beachten Sie bitte die fol¬ 
genden Hinweise ganz genau: 


4. Und jetzt kommt die wichtigste Prozedur. Geben Sie fol¬ 
gende Zeile im Direktmodus, also ohne Zeilennummer, ein 
(gefolgt von der RETURN-Taste): 

SYS 57812"MC-CODE" ,8:P0KE 193,64:POKE 194,91:POKE 
174,153:P0KE 175,149:SYS 62957 
Das Programm wird nun unter dem Namen "MC-CODE" 
auf Diskette gespeichert. 

5. Laden Sie den MSE erneut und geben Sie die Listings 2 
und 3 ein. 


1. MSE laden und wie beschrieben starten. 6. Zum Schluß noch Listing 4 abgetippt (empfehlenswert ist 

2. Listing 1 (MC-CODE-P) eingeben und speichern. der Checksummer als Hilfe), speichern und starten. 

3. Nach dem Speichern das Programm mit RUN starten (vor¬ 
her RUN/STOP und RESTORE drücken). Sollte ein 

»Syntax-Error in 0« erscheinen, macht das nichts. (Werner Matner/Jürgen Knebel / gk) 
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9b 

0f 

00 

51 

00 

00 

b6 

0c41 

: 

2f 

ce 

ba 

e3 

14 

00 

00 

24 

8c 

0c49 

: 

00 

00 

40 

80 

00 

00 

46 

00 

83 

0c51 

: 

00 

12 

la 

Bc 

00 

9e 

00 

00 

57 


0c59 

: 

00 

44 

6c 

38 

95 

00 

00 

00 

f 7 

0c61 

: 

7a 

44 

45 

46 

00 

00 

00 

56 

c4 

0c69 

: 

00 

00 

95 

00 

00 

00 

7a 

00 

b9 

0c71 

: 

00 

64 

00 

00 

00 

49 

00 

00 

ee 

0c 79 

: 

99 

00 

00 

00 

7e 

00 

00 

88 

0b 

0cSl 


00 

00 

00 

6d 

00 

00 

8c 

00 

61 

0c89 

: 

00 

00 

71 

00 

00 

22 

00 

00 

f 7 

0c91 

: 

00 

07 

00 

00 

5e 

00 

00 

00 

fb 

0c99 

: 

43 

00 

00 

3a 

00 

00 

00 

lf 

62 

Bcal 

: 

00 

00 

30 

00 

00 

00 

15 

00 

02 

0ca9 

s 

00 

36 

00 

00 

00 

lb 

00 

00 

9d 

0cbl 

: 

64 

00 

00 

00 

49 

00 

00 

7d 

a5 

0cb9 

: 

00 

00 

00 

62 

00 

00 

70 

00 

cB 

0cc 1 

: 

00 

00 

55 

00 

00 

70 

00 

00 

9a 

0cc9 

: 

00 

55 

00 

00 

75 

00 

00 

00 

cb 

0cdl 

: 

5a 

00 

00 

5b 

00 

00 

00 

40 

17 

0cd9 

: 

00 

95 

cf 

03 

74 

00 

00 

00 

3f 

0cel 


a2 

cf 

03 

81 

00 

00 

00 

bB 

bd 

0ce9 

: 

cf 

03 

Bf 

00 

00 

00 

85 

cf 

d3 

0cf 1 

: 

03 

64 

00 

00 

00 

bf 

00 

cf 

c4 

0cf 9 

: 

03 

9e 

00 

00 

00 

91 

cf 

03 

ld 

0d01 

: 

70 

00 

00 

00 

89 

cf 

03 

68 

65 

0d09 

: 

00 

00 

00 

a0 

cf 

03 

7f 

00 

31 

0dll 

: 

00 

00 

Ba 

cf 

03 

69 

00 

00 

29 

Bdl 9 

: 

00 

C0 

cf 

03 

9f 

00 

00 

00 

cB 

0d21 

: 

a6 

cf 

03 

85 

00 

00 

00 

b3 

88 

8d29 

: 

cf 

03 

92 

00 

00 

00 

86 

00 

39 

0d31 

: 

00 

00 

bf 

04 

60 

7f 

7f 

bf 

21 

0d39 

: 

05 

60 

e0 

e0 

60 

bf 

03 

0c 

eb 

0d41 

: 

bf 

03 

06 

cf 

03 

31 

31 

71 

5f 

0d49 

: 

71 

bf 

03 

C0 

bf 

03 

eo 

lf 

c7 

0d51 

: 

lf 

cf 

03 

70 

00 

bf 

07 

C0 

c2 

0d59 

: 

00 

00 

00 

53 

bf 

03 

01 

bf 

5b 

0d61 

: 

03 

cB 

el 

el 

9e 

9e 

bf 

03 

5d 

0d69 

: 

C0 

e0 

e0 

60 

60 

bf 

04 

06 

f e 

0d71 

s 

07 

07 

07 

0e 

lc 

38 

70 

e0 

87 

0d79 

s 

C0 

C0 

e0 

00 

4e 

00 

00 

00 

b6 

0d81 

s 

2d 

00 

00 

9c 

00 

00 

00 

7b 

39 

0d89 

: 

00 

00 

8a 

00 

00 

00 

69 

00 

d2 

0d91 

: 

00 

b9 

00 

00 

00 

98 

00 

00 

33 

0d99 

: 

8b 

00 

00 

00 

6a 

00 

00 

51 

6e 

Bdal 

: 

00 

00 

00 

30 

00 

00 

b5 

00 

7e 

0da9 

: 

00 

00 

94 

00 

00 

5f 

00 

00 

c9 

0db 1 

: 

00 

3e 

00 

00 

85 

00 

00 

00 

29 

0db9 

: 

64 

00 

00 

47 

00 

00 

00 

26 

53 

Bdcl 

s 

00 

00 

7a 

00 

00 

00 

59 

00 

c5 

0dc9 

: 

00 

9d 

00 

00 

00 

7c 

00 

00 

7c 

0ddl 

: 

80 

00 

00 

00 

5f 

00 

00 

9e 

85 

0dd9 

: 

00 

00 

00 

7d 

00 

00 

92 

00 

d3 

0del 

: 

00 

00 

71 

00 

00 

a7 

00 

00 

7b 

Bde9 

s 

00 

86 

00 

Bb 

cf 

03 

70 

00 

75 

0df 1 


00 

00 

93 

cf 

03 

78 

00 

00 

c4 

Bdf 9 

: 

00 

86 

cf 

03 

6b 

00 

00 

00 

47 

0e01 

: 

83 

cf 

03 

68 

00 

00 

00 

86 

47 

0e09 

: 

cf 

03 

6b 

00 

00 

00 

89 

cf 

fb 

Bell 

: 

03 

6e 

00 

00 

00 

86 

cf 

03 

c5 

0el9 

: 

6b 

00 

00 

00 

9B 

cf 

03 

7d 

93 

0e21 

: 

00 

00 

00 

92 

cf 

03 

77 

00 

67 

0e29 

: 

00 

00 

80 

cf 

03 

65 

00 

00 

9f 

0e31 


00 

8a 

cf 

03 

6f 

00 

00 

00 

c2 

0e39 

: 

87 

cf 

03 

6c 

00 

00 

00 

9f 

35 

0e41 

: 

00 

00 

00 

bf 

03 

60 

00 

8e 

8a 

0e49 


00 

00 

bf 

03 

60 

00 

00 

30 

el 

0e51 

: 

00 

bf 

03 

03 

00 

00 

00 

82 

57 

0e59 

s 

cf 

00 

cf 

00 

03 

03 

67 

00 

02 

0e61 

: 

00 

00 

89 

cf 

03 

6e 

00 

00 

61 
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C 64 


Sportspiele 


Beib 1 ? 

: 

00 

9d 

00 

03 

0e 

lc 

0e 

03 

98 

1139 

: 

c7 

cf 

03 

07 

lf 

44 

ff 

cf 

lb 

1409 

; 

44 

cf 

05 

ff 

44 

ff 

Cf 

04 

78 

0e71 

: 

48 

e0 

b4 

05 

C0 

bf 

03 

03 

86 

1141 

: 

03 

07 

94 

ff 

44 

00 

00 

00 

b0 

1411 

• 

ff 

44 

44 

cf 

04 

bf 

03 

ff 

54 

0e79 

: 

00 

00 

7B 

00 

0 c 

0c 

5d 

00 

2e 

1149 

: 

43 

bf 

03 

ff 

03 

04 

74 

bf 

03 

1419 

* 

cf 

07 

bf 

03 

ff 

cf 

04 

ff 

4b 

0 eBl 

z 

00 

69 

00 

00 

bf 

03 

30 

72 

40 

1151 

: 

04 

44 

80 

C0 

f0 

48 

fe 

44 

60 

1421 

: 

44 

44 

cf 

04 

ff 

ff 

ff 

cf 

34 

0e89 

: 

00 

00 

00 

bf 

03 

06 

00 

00 

e 2 

1159 

: 

44 

44 

cf 

05 

C0 

e3 

cf 

03 

5d 

1429 

: 

05 

ff 

ff 

cf 

05 

ff 

ff 

cf 

18 

0e91 

: 

00 

12 

70 

38 

lc 

0e 

00 

00 

40 

1161 

: 

03 

14 

74 

ff 

44 

f 8 

e0 

cf 

be 

1431 

■ 

06 

ff 

cf 

21 

20 

70 

70 

fB 

BB 

0e99 

3 

3c 

00 

00 

29 

00 

00 

00 

0e 

17 

1169 

: 

14 

07 

03 

01 

cf 

04 

ff 

44 

44 

1439 

: 

48 

ff 

cf 

06 

80 

cf 

ff 

cf 

0c 

Beat 


00 

00 

5b 

00 

00 

00 

40 

00 

79 

1171 

: 

14 

07 

cf 

03 

4c 

C0 

cf 

ld 

b7 

1441 

: 

26 

01 

00 

00 

04 

0e 

0e 

lf 

0f 

0ea9 

: 

00 

92 

00 

00 

00 

77 

00 

00 

ae 

1179 

: 

44 

40 

C0 

cf 

04 

ff 

ff 

14 

99 

1449 

: 

14 

ff 

C0 

30 

0c 

03 

03 

0c 

9b 

0 eb 1 

: 

3B 

00 

00 

00 

ld 

00 

00 

50 

5c 

1181 

: 

04 

02 

02 

01 

01 

44 

ff 

ff 

37 

1451 

s 

30 

C0 

bf 

07 

80 

cf 

97 

01 

99 

0eb9 

: 

00 

00 

00 

35 

00 

00 

88 

00 

82 

1189 

: 

el 

cf 

03 

bf 

03 

ff 

3f 

0f 

56 

1459 


02 

04 

03 

04 

06 

09 

00 

a5 

93 

0 ecl 

: 

00 

00 

6d 

00 

00 

84 

00 

00 

99 

1191 

: 

03 

01 

01 

cf 

03 

0 c 

lf 

3f 

db 

1461 

s 

5a 

5a 

24 

99 

5a 

24 

a5 

80 

83 

0ec9 

: 

00 

74 

00 

00 

95 

00 

00 

00 

5d 

1199 

: 

cf 

05 

80 

e 0 

cf 

06 

f0 

cf 

b7 

1469 

: 

40 

20 

C0 

20 

60 

90 

cf 

70 

98 

Bsdl 

: 

7a 

00 

00 

41 

00 

00 

00 

26 

C0 

1 lal 

: 

57 

34 

lf 

07 

cf 

04 

ff 

ff 

5e 

1471 

- 

bf 

07 

01 

03 

0c 

30 

C0 

C0 

lb 

0ed9 

: 

00 

00 

7c 

00 

00 

00 

61 

00 

7e 

1 la9 

: 

e7 

Cl 

Cf 

03 

bf 

03 

44 

3c 

52 

1479 

: 

30 

0c 

03 

C0 

30 

0 c 

03 

03 

fe 

0ael 

3 

00 

60 

00 

00 

00 

45 

00 

00 

3c 

1 lbl 

■ 

08 

00 

00 

fe 

40 

C0 

80 

cf 

50 

1481 

• 

0 c 

30 

C0 

bf 

07 

80 

cf 

86 

8e 

3ee9 

: 

6e 

00 

00 

00 

53 

00 

00 

91 

b0 

llb9 

: 

62 

01 

cf 

06 

cl 

cf 

04 

04 

19 

1489 

: 

03 

cf 

04 

0f 

44 

ff 

cf 

03 

9c 

3ef 1 

: 

00 

00 

00 

76 

00 

00 

37 

00 

9d 

1 lc 1 

: 

74 

bf 

04 

44 

e6 

e0 

40 

80 

98 

1491 

: 

01 

44 

44 

ff 

01 

07 

lf 

7f 

55 

0et9 

s 

00 

00 

lc 

00 

00 

8e 

00 

00 

75 

Uc? 

s 

44 

44 

ff 

c7 

03 

01 

01 

01 

ff 

1499 

s 

bf 

03 

44 

e7 

e7 

42 

cf 

04 

ae 

0401 

: 

00 

73 

00 

00 

34 

00 

00 

00 

4e 

11dl 

: 

44 

41 

C0 

80 

80 

00 

00 

00 

11 

14al 

: 

C0 

e0 

40 

48 

f8 

f 8 

f0 

f0 

29 

0f09 

: 

19 

00 

82 

cf 

03 

79 

00 

00 

b9 

1 ld9 

: 

ff 

f 8 

40 

cf 

13 

01 

80 

80 

9b 

14a9 

: 

cf 

64 

bf 

07 

01 

03 

0 c 

30 

b9 

Ef 11 

: 

00 

81 

c4 

03 

7B 

00 

00 

00 

ae 

1 lei 

: 

40 

40 

40 

80 

80 

00 

02 

02 

76 

14b 1 

■ 

C0 

C0 

30 

0c 

03 

C0 

30 

0 c 

6e 

0f 19 

: 

86 

c4 

03 

7d 

00 

00 

00 

86 

04 

1 le9 

: 

04 

08 

04 

02 

02 

01 

cf 

07 

a8 

14b9 

s 

03 

03 

0c 

30 

C0 

80 

C0 

f0 

3c 

0f21 

: 

c4 

03 

7d 

00 

00 

00 

82 

cf 

7b 

llfl 

: 

08 

08 

10 

10 

20 

20 

10 

10 

67 

14c 1 

: 

fc 

bf 

03 

44 

cf 

04 

C0 

f0 

60 

0f 29 

: 

03 

79 

00 

00 

00 

8f 

cf 

03 

ab 

1 lf 9 

: 

02 

01 

01 

00 

00 

00 

01 

01 

c 2 

14c9 

: 

fc 

cf 

76 

01 

04 

lf 

3f 

7f 

51 

Bf 31 

: 

B6 

00 

00 

00 

90 

cf 

03 

87 

5a 

1201 

: 

41 

00 

00 

80 

80 

80 

00 

00 

04 

14dl 

; 

7f 

44 

44 

44 

07 

18 

63 

8c 

27 

0-f 39 

: 

00 

00 

00 

8e 

cf 

03 

85 

00 

36 

1209 

: 

ff 

7c 

20 

20 

20 

10 

10 

10 

35 

14d9 

■ 

91 

92 

48 

46 

C0 

30 

8c 

62 

13 

0f 41 

: 

00 

00 

B4 

cf 

03 

7b 

00 

00 

68 

1211 

: 

ff 

ff 

27 

07 

02 

02 

02 

04 

4b 

14el 

: 

12 

49 

89 

31 

cf 

07 

ff 

ff 

56 

0-f 49 

: 

00 

85 

cf 

03 

7c 

00 

00 

00 

28 

1219 

: 

44 

44 

cf 

00 

03 

03 

01 

01 

Sa 

14e? 

: 

f 8 

e 0 

C0 

80 

80 

00 

e0 

60 

le 

0451 

: 

Be 

c4 

03 

85 

00 

00 

00 

84 

41 

1221 

: 

01 

44 

44 

44 

41 

80 

00 

00 

45 

14f 1 

• 

cf 

72 

03 

04 

34 

01 

03 

0f 

c2 

0459 

: 

c4 

03 

7b 

00 

00 

00 

89 

cf 

44 

1229 

; 

00 

bf 

03 

ff 

71 

20 

20 

40 

e3 

1449 

• 

3f 

bf 

03 

44 

03 

0c 

30 

C0 

ab 

0461 

: 

03 

80 

00 

00 

00 

88 

cf 

03 

2 e 

1231 

: 

cf 

04 

83 

ef 

ef 

cf 

04 

80 

70 

1501 

: 

C0 

30 

0c 

03 

ff 

f 8 

f 8 

cf 

B8 

0469 

: 

74 

00 

00 

00 

81 

cf 

03 

78 

7c 

1239 

: 

ec 

ee 

cf 

05 

60 

e 0 

cf 

06 

89 

1509 

: 

04 

ff 

7f 

34 

0f 

03 

00 

00 

de 

0471 

: 

00 

00 

00 

Bb 

cf 

03 

82 

00 

02 

1241 

• 

60 

cf 

3d 

03 

e3 

cf 

04 

01 

07 

1511 

: 

00 

bf 

05 

44 

34 

0f 

00 

e 0 

60 

04 79 

: 

00 

00 

86 

cf 

03 

7d 

00 

00 

31 

1249 

• 

b7 

ef 

cf 

04 

el 

41 

fl 

bf 

61 

1519 

: 

fc 

bf 

04 

ff 

00 

00 

00 

80 

f 7 

0481 

: 

00 

Se 

cf 

03 

85 

00 

ld 

cf 

89 

1251 

- 

03 

44 

Be 

04 

02 

01 

ff 

ff 

a0 

1521 

: 

f0 

fe 

44 

44 

cf 

05 

C0 

fc 

b2 

04 B9 

: 

03 

14 

00 

63 

cf 

03 

5a 

00 

81 

1259 

; 

ff 

84 

02 

01 

01 

00 

ff 

ff 

dl 

1529 

: 

cf 

57 

01 

03 

03 

03 

01 

00 

91 

0491 

: 

lb 

c4 

03 

12 

00 

26 

cf 

03 

0d 

1261 

- 

cc 

80 

80 

00 

00 

80 

ff 

ff 

91 

1531 

: 

00 

00 

bf 

05 

ff 

3f 

0f 

31 

5a 

04 99 

3 

ld 

00 

40 

cf 

03 

37 

00 

61 

6d 

1269 

; 

7e 

18 

20 

40 

40 

20 

ff 

c3 

90 

1539 

: 

0C 

03 

cf 

04 

c6 

18 

e0 

cf 

8b 

04 al 

: 

c4 

03 

58 

00 

79 

cf 

03 

70 

0b 

127-1 

; 

04 

08 

08 

04 

02 

02 

e0 

cf 

44 

1541 

: 

04 

fe 

fc 

fc 

48 

f 8 

40 

e 0 

80 

04 a9 

: 

00 

3B 

cf 

03 

24 

00 

55 

cf 

02 

1279 

. 

06 

f 8 

30 

40 

80 

80 

40 

20 

5d 

1549 

: 

80 

cf 

65 

03 

34 

00 

00 

00 

5f 

04b 1 

: 

03 

4c 

00 

4b 

cf 

03 

42 

00 

62 

1281 


40 

08 

10 

10 

08 

04 

04 

08 

8c 

1551 

: 

01 

0f 

7f 

ff 

44 

00 

07 

3f 

54 

04b9 

: 

Bc 

c4 

03 

83 

00 

5b 

cf 

03 

7e 

1289 

- 

08 

cf 

07 

80 

40 

40 

40 

bf 

dl 

1559 

: 

bf 

0 a 

44 

fc 

f0 

ff 

fe 

fc 

c2 

04 cl 

: 

52 

00 

88 

cf 

03 

74 

00 

32 

cB 

1291 

; 

03 

a0 

cf 04 01 01 E iE 

6a 

1561 

: 

40 

C0 

00 

00 

00 

ff 

lf 

lf 

6c 

04c9 

: 

c4 

03 

29 

00 

3d 

cf 

03 

34 

2b 

1299 


80 

40 

80 

80 

cf 

10 

c9 

40 

f0 

1569 

: 

cf 

14 

03 

cf 

06 

ff 

ff 

3f 

de 

04dl 

: 

00 

16 

cf 

03 

0d 

00 

Bd 

cf 

d7 

12al 

. 

01 

cf 

03 

03 

lf 

ff 

00 

80 

9e 

1571 

: 

0f 

03 

00 

00 

00 

bf 

05 

ff 

14 

04 d9 

3 

03 

84 

00 

6a 

cf 

03 

61 

00 

06 

12a9 

. 

40 

40 

eo 

00 

92 

el 

01 

01 

68 

1579 

: 

14 

03 

bf 

07 

ff 

C0 

fc 

bf 

64 

04 el 

3 

la 

c4 

03 

11 

00 

13 

cf 

03 

a4 

12bl 

. 

02 

02 

04 

08 

3c 

44 

cf 

05 

c3 

1581 

: 

05 

ff 

00 

00 

C0 

fc 

bf 

03 

7f 

0fe9 

3 

0a 

00 

5b 

cf 

03 

52 

00 

2a 

db 

12b9 

. 

48 

B7 

08 

08 

08 

10 

10 

20 

4a 

1589 

; 

ff 

cf 

03 

e 0 

44 

ff 

ff 

cf 

ec 

044 1 

3 

c4 

03 

21 

00 

52 

cf 

03 

49 

cc 

12c 1 

. 

42 

4c 

00 

00 

00 

01 

01 

02 

42 

1591 

: 

05 

f 8 

ff 
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89 

e6 

20 

21 

fb 

aB 

60 

la 01 

: 

72 

72 

89 

ff 

21 

25 

B9 

ef 

50 

la09 

: 

01 

67 

a8 

ee 

11 

27 

b9 

6a 

cc 

lall 

s 

21 

62 

aB 

ea 

01 

77 

a9 

bf 

dd 

lal9 

: 

00 

01 

76 

8d 

3d 

01 

25 

89 

6d 

la21 

: 

ac 

01 

66 

a9 

ef 

01 

37 

89 

14 

1 a29 

: 

a9 

01 

77 

89 

fd 

21 

77 

a9 

7c 

la31 

: 

ff 

00 

77 

89 

ef 

31 

25 

B9 

6f 

la39 

: 

ac 

01 

67 

a 9 

ee 

05 

26 

89 

38 

la41 

s 

ac 

01 

46 

28 

ee 

21 

05 

09 

23 

la49 

: 

ac 

01 

66 

a9 

eb 

21 

37 

ad 

45 

la51 

: 

a9 

21 

66 

ac 

e6 

ld 

da 

76 

6a 

la59 

: 

77 

f 5 

9c 

76 

2c 

8c 

d3 

77 

26 

la 61 

s 

77 

fe 

ab 

76 

34 

9c 

88 

76 

4B 

la69 

: 

76 

fe 

ad 

76 

34 

f e 

88 

76 

e3 

la71 

: 

72 

8c 

ac 

76 

8d 

ff 

9f 

76 

67 

la79 

: 

56 

7f 

ac 

74 

29 

8c 

f e 

04 

43 

la81 

: 

57 

8d 

8c 

76 

00 

9e 

fe 

76 

6f 

la89 

: 

54 

fe 

ad 

76 

24 

ee 

b8 

66 

00 

la91 

: 

76 

ee 

bd 

77 

15 

fe 

88 

66 

15 

la99 

: 

00 

f e 

se 

60 

e7 

f e 

f a 

76 

96 

laal 

: 

57 

fe 

9c 

66 

24 

fe 

ee 

76 

4e 

laa9 

: 

77 

f e 

88 

7e 

12 

fe 

88 

76 

b9 

labl 

: 

00 

f e 

83 

76 

24 

ee 

ff 

76 

c8 

lab9 


66 

fc 

bd 

76 

34 

ea 

fe 

76 

5f 

lacl 

: 

56 

fe 

a8 

66 

25 

bc 

fe 

f 6 

af 

lac9 

: 

66 

fe 

Bd 

77 

24 

7f 

BB 

44 

ea 

lad 1 

: 

56 

ee 

ac 

44 

3c 

7e 

fa 

77 

e5 

lad9 

: 

7e 

f 4 

bd 

77 

64 

8d 

f 2 

76 

9b 

lael 

: 

76 

fe 

fb 

76 

75 

ff 

89 

77 

10 

lae9 
laf 1 

;C 


fd 

fd 76 

75 

ec 

ff 

ff 

89 

ee 

34 

7a 

laf 9 

: 

77 

73 

76 

ed 

77 

68 

f e 

ff 

3c 

lb01 

: 

25 

76 

8c 

8c 

77 

01 

ff 

ff 

95 

lb09 

: 

77 

71 

ff 

fd 

76 

74 

ef 

b9 

37 

lbll 

: 

67 

74 

af 

fc 

76 

14 

ff 

89 

59 

lb 19 

: 

67 

01 

ff 

eB 

77 

e7 

ff 

fb 

cc 

lb21 

s 

77 

74 

ff 

ac 

77 

64 

ff 

c9 

96 

lb29 

: 

77 

77 

ff 

S9 

77 

03 

ff 

89 

2f 

lb31 

: 

77 

01 

fe 

89 

76 

75 

ef 

ff 

ec 

lb39 

: 

77 

66 

ff 

fd 

77 

74 

ff 

fc 

b8 

lb41 

: 

77 

72 

ff 

fc 

e6 

64 

ff 

ff 

22 

lb49 

: 

f7 

66 

ff 

fc 

77 

75 

ff 

89 

49 

lb51 

: 

61 

77 

ff 

fc 

60 

78 

35 

72 

91 

' lb59 

: 

f e 

ef 

6d 

24 

fe 

a4 

04 

7b 

4b 

lb61 

: 

ff 

ff 

76 

23 

f e 

bc 

34 

00 

08 

lb69 

: 

fe 

ee 

76 

24 

f e 

ac 

76 

00 

30 

lb71 

: 

fe 

f a 

04 

24 

fe 

24 

77 

65 

2c 

lb79 

: 

be 

be 

f 7 

24 

fc 

a 0 

24 

76 

6b 

IbSl 

: 

8c 

ff 

05 

04 

fe 

88 

36 

76 

c9 

lb89 

: 

fe 

ec 

76 

25 

f e 

2c 

66 

30 

8b 

lb91 

: 

ee 

7e 

66 

25 

ff 

Bf 

76 

00 

53 

lb99 

: 

ee 

88 

76 

20 

ec 

6f 

76 

72 

76 

lbal 

s 

fe 

ef 

76 

36 

fe 

ac 

76 

66 

f 7 

lba9 

: 

fe 

ff 

76 

00 

f 6 

9a 

66 

00 

22 

lbbl 

: 

fe 

88 

76 

00 

f e 

ac 

66 

67 

4f 

lbb9 

: 

fe 

ee 

66 

25 

ee 

ac 

66 

66 

27 

lbcl 

: 

fe 

ea 

76 

24 

6e 

ad 

34 

76 

69 

lbc9 

: 

7e 

ee 

76 

25 

ff 

ac 

77 

00 

44 

lbdl 

s 

eB 

fe 

66 

24 

e8 

a4 

5c 

72 

60 

lbd9 

: 

ff 

fe 

7c 

15 

ff 

fc 

05 

7a 

0a 

lbel 

: 

fe 

f e 

76 

73 

fe 

fd 

57 

01 

aa 

lbe9 

: 

ff 

f d 

77 

75 

ff 

f d 

77 

01 

43 

lbf 1 

: 

ff 

fb 

47 

75 

f e 

54 

77 

64 

a8 

lbf 9 

: 

fd 

f 9 

fe 

65 

ff 

e8 

74 

77 

67 

1C01 

: 

3d 

fe 

04 

04 

ff 

89 

77 

75 

a4 

lc09 

: 

ff 

99 

7f 

55 

f e 

de 

67 

11 

f 6 

lcll 

: 

ef 

5c 

67 

74 

fe 

9c 

77 

01 

4b 

lcl9 

: 

ef 

89 

77 

40 

ff 

6f 

77 

73 

f 3 

lc 21 

: 

ff 

de 

77 

14 

ff 

fc 

77 

41 

37 

lc29 

: 

ff 

ff 

77 

01 

ff 

8b 

77 

01 

62 

lc31 

: 

ff 

89 

76 

01 

ff 

dd 

67 

75 

2a 

lc39 

: 

ff 

ee 

77 

75 

ff 

de 

77 

54 

a9 

lc41 

: 

ff 

fc 

77 

74 

6e 

ec 

57 

77 

c5 

lc49 

: 

7f 

ee 

77 

54 

ff 

fd 

77 

01 

77 

lc51 

: 

ef 

ff 

77 

14 

ee 

dB 

63 

ac 

fd 

lc59 

: 

00 

05 

83 

ea 

00 

07 

f a 

a5 

89 

lc 61 


01 

01 

88 

Sd 

00 

02 

6e 

be 

f e 


lc69 

: 

00 

04 

88 

8f 

00 

02 

88 

be 

2f 

lc7 1 

: 

eo 

04 

fe 

8a 

00 

87 

01 

8f 

e4 

lc79 

: 

00 

24 

09 

8e 

02 

Bf 

aa 

BB 

f 4 

lcSl 

: 

36 

01 

fb 

f a 

00 

36 

e8 

8c 

04 

lc89 

: 

00 

26 

80 

0f 

00 

06 

98 

8e 

4e 

lc91 

: 

10 

00 

98 

Bb 

01 

23 

88 

be 

02 

lc99 

: 

10 

76 

88 

ce 

06 

91 

88 

8c 

08 

leal 

: 

00 

21 

88 

ec 

00 

06 

88 

98 

75 

lca9 

: 

00 

01 

88 

fe 

00 

64 

88 

be 

ee 

lebl 

: 

00 

36 

88 

fe 

00 

02 

98 

Bd 

5c 

lcb9 

: 

00 

04 

8a 

8b 

00 

06 

8c 

8e 

4f 

1 cc 1 

: 

00 

24 

88 

8e 

04 

07 

8e 

88 

8b 

lcc9 

: 

80 

04 

BB 

cf 

00 

01 

02 

09 

8a 

lcdl 

: 

be 

36 

20 

98 

ce 

36 

06 

0a 

90 

lcd9 

: 

ac 

01 

2c 

8a 

cf 

00 

01 

0e 

7f 

lcel 

: 

eb 

a4 

00 

24 

88 

8d 

00 

07 

a6 

lce9 

: 

0f 

bf 

00 

01 

07 

89 

8f 

01 

f 5 

lef 1 

: 

03 

89 

bf 

00 

01 

05 

ff 

8f 

00 

lef 9 

: 

00 

8e 

09 

8e 

03 

27 

08 

Bf 

fd 

ld01 

: 

01 

0 e 

8a 

a9 

33 

20 

fa 

fa 

f 7 

1 d0? 

: 

01 

37 

89 

8f 

01 

27 

89 

0f 

88 

ldll 

: 

00 

26 

99 

af 

11 

06 

d9 

8a 

3e 

ldl9 

: 

00 

62 

89 

ff 

11 

77 

89 

Be 

bd 

ld21 

: 

05 

95 

89 

8d 

01 

06 

89 

ae 

c9 

ld29 

: 

01 

07 

89 

bf 

00 

01 

21 

89 

aB 

ld31 

: 

ff 

09 

25 

89 

bf 

00 

01 

37 

9e 

ld39 

: 

88 

ff 

01 

07 

99 

Bf 

01 

04 

04 

ld41 

: 

89 

8f 

01 

26 

8d 

8e 

01 

26 

35 

ld49 

: 

89 

Be 

02 

06 

Bb 

8d 

81 

04 

8e 

ld51 

: 

89 

Be 

01 

03 

89 

ff 

17 

21 

f 9 

ld59 

: 

89 

Be 

16 

2f 

eb 

24 

88 

8d 

b2 

ld61 

: 

0b 

62 

83 

e7 

72 

2d 

89 

89 

86 

ld69 

: 

00 

45 

88 

ca 

66 

36 

88 

8c 

db 

ld71 

: 

00 

47 

88 

ca 

00 

36 

88 

Bc 

7d 

ld79 

: 

76 

42 

88 

43 

01 

21 

88 

ac 

2f 

ldBl 

: 

81 

42 

8a 

c6 

72 

00 

f a 

89 

c5 

ld89 

: 

73 

72 

88 

fe 

60 

04 

88 

ae 

dd 

ld91 

: 

00 

63 

88 

ea 

10 

06 

98 

aB 

a7 

ld99 

: 

10 

43 

89 

eb 

00 

76 

98 

be 

be 

ldal 

: 

00 

66 

9e 

19 

00 

04 

88 

a9 

35 

lda9 

: 

00 

60 

88 

ca 

00 

10 

88 

89 

0 a 

ldbl 


00 

76 

80 

ec 

00 

76 

88 

be 

fd 

ldb9 

: 

00 

76 

88 

ea 

10 

01 

38 

B8 

b0 

ldcl 

: 

02 

43 

88 

ca 

04 

20 

88 

ac 

9d 

ldc9 

: 

00 

46 

Bc 

cf 

00 

06 

00 

08 

4a 

lddl 

: 

88 

00 

63 

89 

ca 

81 

76 

be 

73 

ldd9 

: 

aB 

10 

62 

be 

e 2 

2a 

26 

af 

71 

ldel 

: 

a6 

2a 

67 

89 

ae 

73 

2 e 

ae 

44 

lde9 

: 

ae 

22 

27 

aa 

af 

27 

37 

af 

38 

ldf 1 


af 

01 

27 

89 

af 

01 

77 

89 

10 

ldf 9 

: 

8f 

77 

27 

88 

26 

23 

26 

8b 

4a 

le01 

s 

af 

aa 

27 

89 

a6 

22 

27 

fb 

10 

le09 

: 

aa 

72 

72 

89 

ff 

27 

27 

89 

a3 

lei 1 

: 

af 

01 

27 

ae 

ae 

17 

27 

bf 

a0 

lel9 

: 

00 

af 

77 

26 

aa 

ee 

01 

37 

28 

le21 

: 

bf 

00 

ff 

01 

36 

Bf 

3f 

01 

df 

le29 

: 

27 

89 

ae 

01 

26 

af 

af 

05 

89 

le31 

: 

37 

89 

af 

01 

37 

89 

bf 

00 

f 8 

le39 

: 

27 

77 

af 

ff 

00 

37 

89 

af 

47 

le41 

: 

37 

27 

89 

ae 

21 

27 

af 

ae 

ab 

le49 

: 

05 

26 

89 

ae 

01 

06 

2a 

ae 

e 0 

le51 

: 

23 

05 

09 

ae 

01 

26 

af 

af 

6e 

le59 

: 

27 

37 

bf 

00 

ab 

37 

26 

be 

96 

le61 

: 

a6 

15 

da 

76 

77 

f 5 

9c 

76 

9e 

le69 

: 

0d 

8c 

d3 

77 

77 

fe 

ab 

76 

ab 

le71 

: 

34 

88 

88 

76 

76 

fe 

ad 

76 

dd 

le79 

: 

34 

f e 

88 

76 

72 

Bc 

ac 

76 

48 

le81 

: 

ad 

ff 

9d 

36 

12 

7f 

ac 

74 

15 

le89 

: 

28 

8c 

fe 

04 

77 

Bd 

Bc 

76 

3a 

le91 

: 

00 

9e 

fe 

76 

14 

fe 

ad 

76 

4c 

le99 

: 

04 

ee 

b8 

66 

14 

ee 

bd 

77 

ae 

leal 

: 

15 

f e 

88 

66 

00 

fe 

a8 

60 

80 

lea9 

: 

e7 

fe 

fa 

76 

57 

fe 

9e 

66 

51 

lebl 

: 

24 

fe 

ee 

76 

77 

f e 

88 

7e 

6d 

leb9 

s 

12 

fe 

88 

76 

00 

f e 

88 

76 

42 

lecl 

: 

24 

ee 

ff 

76 

76 

bc 

bd 

76 

5c 

lec9 

: 

34 

ea 

de 

76 

52 

f e 

a8 

66 

05 

ledl 

: 

25 

bc 

f e 

f 6 

76 

f e 

ad 

77 

fS 

led9 

: 

24 

ff 

88 

00 

56 

ee 

8c 

00 

2e 

leel 

: 

lc 

74 

da 

67 

4e 

e4 

ad 

67 

6c 

lee9 

: 

24 

Sd 

d2 

76 

46 

f e 

bb 

76 

Bf 

lef 1 

s 

35 

fb 

B9 

37 

65 

ff 

ad 

77 

69 

lef 9 

: 

35 

ff 

89 

77 

73 

Sf 

ad 

76 

d6 

lf01 

: 

ac 

ff 

ee 

77 

53 

76 

ad 

77 

eö 

lf 09 

: 

20 

f e 

ff 

25 

56 

8c 

8c 

77 

38 

lf 11 

: 

01 

ff 

ef 

77 

01 

ff 

ad 

76 

b0 

lf 19 

: 

24 

ef 

99 

67 

74 

af 

ac 

76 

ec 
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C 64 


Sportspiele 


1-F21 

- 

04 

ff 

89 

67 

01 

ff 

a8 

67 

f 6 

21f 1 

• 

89 

26 

21 

26 

8b 

af 

2B 

27 

C0 

24cl 

: 

06 

d4 

a9 

f0 

Sd 

17 

d4 

a9 

f 2 

lf 29 

: 

e7 

ff 

fb 

77 

66 

ff 

Bc 

67 

65 

21f 9 

: 

89 

a6 

22 

21 

bb 

a8 

72 

72 

32 

24c9 

: 

14 

Bd 

18 

d4 

a9 

12 

Bd 

00 

a6 

lf 31 

s 

24 

ff 

cb 

77 

77 

ff 

89 

77 

c3 

2201 

s 

89 

bf 

00 

21 

27 

88 

af 

01 

06 

24dl 

- 

d4 

a9 

27 

8d 

01 

d4 

a9 

81 

56 

lf 39 

: 

03 

ef 

89 

77 

01 

f e 

89 

76 

a8 

2209 

: 

27 

a8 

ae 

11 

27 

b9 

2e 

21 

8d 

24d9 

- 

Bd 

04 

d4 

a2 

ff 

a0 

ff 

c8 

88 

1-f 41 

: 

25 

ef 

ef 

77 

66 

ff 

ad 

67 

34 

2211 

s 

22 

a8 

ea 

01 

37 

a9 

bf 

00 

22 

24el 

- 

dB 

f d 

e8 

dB 

f 8 

a9 

b6 

Bd 

d7 

lf 49 

: 

24 

ef 

e8 

77 

62 

ff 

ac 

e4 

30 

2219 

: 

0t 

36 

Bf 

19 

01 

25 

89 

a6 

e9 

24e9 

: 

00 

d4 

a9 

57 

Sd 

01 

d4 

a2 

22 

lf 51 

: 

24 

ff 

fb 

f 7 

66 

ff 

ac 

77 

7b 

2221 

: 

01 

26 

a9 

ae 

01 

37 

89 

a9 

b9 

24f 1 

: 

64 

a0 

64 

c8 

dB 

fd 

e8 

dB 

la 

lf 59 

: 

35 

ff 

89 

61 

57 

ff 

ac 

60 

05 

2229 

: 

01 

37 

a9 

ad 

21 

37 

a9 

bf 

d8 

24f 9 

: 

f 8 

a9 

28 

8d 

00 

d4 

a9 

ea 

a5 

lf 61 

- 

28 

25 

72 

fe 

eb 

6d 

24 

fe 

51 

2231 

• 

00 

00 

37 

88 

af 

31 

27 

89 

44 

2501 

: 

Bd 

01 

d4 

60 

ad 

00 

de 

c9 

32 

lf 69 

: 

al 

04 

7b 

ff 

ff 

76 

23 

f e 

29 

2239 

: 

ac 

01 

27 

a9 

ae 

05 

26 

89 

24 

2509 

: 

7d 

dB 

15 

ee 

11 

B9 

ad 

11 

48 

lf 71 

: 

bc 

20 

00 

f e 

ea 

76 

20 

fe 

f e 

2241 

s 

ae 

01 

06 

3a 

be 

23 

05 

09 

64 

2511 

: 

B9 

c9 

c9 

b0 

05 

8d 

05 

dB 

7a 

lf 79 

: 

ac 

66 

00 

f e 

f a 

00 

24 

f e 

76 

2249 

: 

ac 

01 

26 

a9 

ab 

21 

37 

bf 

55 

2519 

s 

dB 

05 

a9 

c8 

8d 

11 

89 

60 

37 

ifai 

: 

24 

77 

65 

fc 

f 8 

f 7 

24 

fc 

34 

2251 

: 

00 

a9 

21 

26 

be 

a6 

2f 

ba 

86 

2521 

: 

c9 

7e 

dB 

15 

ce 

11 

89 

ad 

f 7 

lf 89 

: 

a0 

24 

76 

8c 

ff 

05 

04 

fe 

al 

2259 

: 

36 

27 

af 

ae 

36 

2d 

8e 

b3 

53 

2529 

• 

11 

89 

c9 

32 

90 

05 

8d 

05 

29 

lf 91 

: 

88 

34 

74 

fe 

e8 

76 

25 

fe 

05 

2261 

: 

37 

37 

bf 

00 

ab 

36 

34 

ae 

be 

2531 

: 

dB 

dB 

05 

a9 

32 

Bd 

11 

89 

c7 

lf 99 

s 

ac 

66 

30 

ee 

fc 

66 

25 

ff 

f a 

2269 

- 

88 

26 

26 

be 

ad 

36 

24 

ae 

e0 

2539 

: 

60 

c9 

77 

dB 

3d 

ee 

10 

89 

14 

lf al 

: 

9d 

76 

00 

ee 

88 

76 

20 

eB 

e6 

2271 

: 

88 

36 

32 

Be 

ac 

36 

ad 

bf 

25 

2541 

• 

ad 

09 

89 

c9 

04 

b0 

la 

ad 

98 

lfa9 

: 

6f 

66 

72 

f e 

ef 

76 

36 

ee 

31 

2279 

: 

00 

af 

36 

36 

3f 

ac 

34 

29 

22 

2549 

- 

10 

89 

c9 

00 

dB 

25 

18 

ad 

82 

lfbl 

: 

a8 

76 

66 

fe 

ff 

76 

00 

f 6 

af 

2281 

: 

8e 

be 

04 

37 

Bf 

8c 

76 

00 

8e 

2551 

: 

09 

89 

69 

04 

8d 

09 

89 

Sd 

5c 

lf b9 

: 

9a 

66 

00 

fe 

88 

76 

00 

fe 

a 0 

2289 

: 

be 

be 

36 

24 

be 

ad 

36 

24 

33 

2559 

: 

10 

dB 

ad 

10 

89 

Bd 

04 

dB 

f 5 

lfcl 

: 

ac 

66 

66 

fe 

ea 

64 

25 

ee 

5e 

2291 

: 

ae 

ba 

26 

36 

ae 

ad 

37 

lf 

60 

2561 

• 

60 

ad 

10 

89 

c9 

41 

b0 

05 

41 

lf c9 

: 

ac 

62 

64 

fe 

ea 

76 

20 

6a 

57 

2299 

: 

be 

88 

26 

00 

be 

a8 

22 

a7 

2e 

2569 

: 

Sd 

04 

dB 

60 

ea 

a9 

41 

Bd 

55 

lf dl 

: 

a9 

30 

76 

7e 

ea 

76 

21 

ff 

e7 

22 a 1 

: 

ae 

ba 

36 

27 

be 

be 

26 

24 

e2 

2571 

• 

10 

89 

60 

ad 

10 

89 

8d 

04 

9f 

lf d9 

: 

ac 

77 

00 

e8 

fe 

66 

24 

e8 

e3 

22a9 

; 

be 

ae 

36 

37 

be 

88 

3e 

12 

80 

2579 

5 

dB 

60 

c9 

7b 

dB 

46 

ce 

10 

f 6 

lf el 

: 

a0 

3c 

72 

ef 

e6 

6c 

25 

ef 

80 

22b 1 

: 

ae 

88 

36 

00 

be 

88 

36 

25 

84 

2581 

: 

B9 

ad 

09 

89 

c9 

04 

b0 

11 

f 6 

lf e9 

: 

ac 

05 

7a 

f e 

ee 

76 

33 

be 

83 

22b 9 

: 

ae 

af 

36 

26 

be 

ad 

26 

24 

cb 

2589 

: 

ad 

10 

89 

c9 

19 

90 

04 

8d 

lb 

lff 1 

s 

bd 

73 

01 

ff 

ed 

77 

25 

ff 

d7 

22c 1 

- 

aa 

ae 

36 

22 

be 

aB 

26 

25 

aB 

2591 

: 

04 

dB 

60 

a9 

19 

8d 

10 

89 

9c 

lf f 9 

: 

bd 

67 

01 

ff 

fa 

23 

25 

fe 

05 

22c9 

s 

be 

be 

b6 

26 

be 

ad 

37 

24 

d7 

2599 

: 

60 

ad 

10 

89 

c9 

ff 

dB 

13 

0b 

2001 

: 

20 

77 

66 

ff 

fb 

f e 

25 

ff 

c3 

22dl 

: 

bf 

00 

88 

22 

36 

ae 

ac 

22 

c7 

25a 1 

: 

ea 

ad 

09 

89 

e9 

04 

8d 

09 

de 

2009 

: 

a8 

76 

77 

ad 

f e 

04 

04 

bf 

lf 

22d9 

• 

2d 

7c 

ba 

27 

2e 

e4 

ad 

37 

07 

25a9 

: 

89 

8d 

10 

dB 

ad 

10 

89 

Sd 

b4 

2011 

: 

00 

89 

77 

77 

fe 

ab 

77 

25 

18 

22el 

: 

2c 

Bd 

b2 

36 

26 

be 

bb 

36 

fb 

25b 1 

: 

04 

dB 

60 

8d 

04 

dB 

60 

ad 

Bb 

2019 

: 

f e 

ac 

67 

31 

ef 

be 

27 

24 

47 

22e9 

: 

35 

bf 

00 

89 

37 

25 

ff 

ad 

27 

25b 9 

: 

10 

89 

8d 

04 

d0 

ad 

11 

89 

43 

2021 


f e 

8c 

77 

01 

ef 

89 

77 

20 

cd 

22f 1 


77 

35 

ff 

89 

37 

33 

af 

ad 

5b 

25c 1 


Bd 

05 

dB 

60 

c9 

76 

dB 

42 

29 

2029 

: 

ef 

6f 

67 

73 

ff 

ee 

77 

24 

b6 

22f 9 

- 

76 

aS 

ff 

ac 

35 

31 

76 

ad 

6b 

25c9 

: 

ee 

10 

89 

ce 

11 

89 

ad 

11 

32 

2031 

: 

ef 

ad 

77 

43 

ff 

ff 

77 

01 

ld 

2301 

s 

37 

28 

bc 

bf 

00 

25 

36 

Bc 

Be 

25dl 

: 

89 

c9 

32 

b0 

03 

ee 

11 

89 

eB 

2039 

: 

ff 

8b 

67 

01 

ff 

e9 

76 

01 

20 

2309 

. 

8c 

77 

01 

bf 

00 

ad 

37 

21 

16 

25d9 

: 

ad 

09 

89 

c9 

04 

b0 

19 

ad 

2c 

2041 


ff 

ad 

67 

67 

ff 

ee 

77 

35 

9d 

2311 

: 

ff 

ad 

36 

24 

af 

b9 

27 

34 

c7 

25el 

- 

10 

89 

c9 

00 

f 0 

03 

4c 

53 

27 

2049 

: 

af 

ac 

67 

60 

ff 

ea 

77 

24 

b2 

2319 

: 

af 

ac 

36 

14 

ff 

39 

27 

01 

19 

25e9 

: 

Bd 

18 

ad 

09 

89 

69 

04 

8d 

le 

2051 

: 

6e 

ac 

37 

73 

7f 

ee 

77 

24 

e7 

2321 

- 

ff 

aS 

67 

a7 

ff 

bb 

37 

26 

4a 

25f 1 

: 

09 

89 

Bd 

10 

dB 

4c 

53 

Bd 

fc 

2059 

: 

ff 

bd 

77 

01 

eb 

ff 

67 

24 

d9 

2329 

- 

bf 

00 

8c 

27 

25 

ff 

8b 

37 

df 

25f 9 

- 

ad 

10 

89 

c9 

41 

b0 

03 

4c 

88 

2061 

: 

ea 

a0 

6b 

ac 

20 

25 

a3 

ee 

a3 

2331 

: 

37 

ff 

89 

3f 

13 

af 

89 

37 

f 5 

2601 

: 

53 

Sd 

a9 

41 

8d 

10 

89 

4c 

c5 

2069 

s 

20 

6e 

f e 

a5 

21 

25 

aS 

ed 

ee 

2339 

: 

01 

f e 

89 

77 

25 

af 

ad 

37 

00 

2609 

: 

53 

8d 

c9 

75 

dB 

42 

ee 

10 

3f 

2071 

: 

20 

66 

f e 

be 

20 

34 

88 

ee 

ff 

2341 

: 

26 

bf 

00 

bd 

27 

24 

bf 

00 

91 

2611 

: 

89 

ee 

11 

89 

ad 

11 

89 

c9 

a4 

2079 

: 

00 

62 

88 

be 

00 

24 

fe 

ea 

97 

2349 

: 

a3 

37 

24 ff 

Kr- 7A n 

bf 

a3 

2619 

: 

c8 

90 

03 

ce 

11 

89 

ad 

09 

ea 

2081 

: 

00 

ee 

a9 

ad 

60 

64 

29 

ee 

c4 

2351 

: 

00 

bb 

b7 26 ff ac 3, 

35 

8e 

2621 

- 

89 

c9 

04 

b0 

19 

ad 

10 

89 

fB 

2089 

: 

02 

6f 

fa 

88 

76 

21 

ff 

f e 

81 

2359 

; 

bf 

00 

89 

27 

37 

bf 

00 

ac 

2a 

2629 

- 

c9 

00 

f0 

03 

4c 

53 

8d 

18 

55 

2091 

: 

00 

76 

e8 

ec 

00 

66 

88 

ef 

d9 

2361 

: 

26 

29 

85 

12 

be 

af 

2d 

04 

e6 

2631 

- 

ad 

09 

89 

69 

04 

Bd 

09 

B9 

d6 

2099 

: 

20 

66 

98 

ac 

30 

60 

a8 

eb 

28 

2369 

: 

be 

a4 

04 

lb 

bf 

00 

bf 

00 

d9 

2639 

: 

8d 

10 

dB 

4c 

53 

Bd 

ad 

10 

04 

20a 1 

: 

21 

61 

88 

be 

30 

36 

88 

ee 

21 

2371 

- 

36 

23 

be 

bc 

00 

00 

be 

ae 

d8 

2641 

- 

B9 

c9 

41 

b0 

03 

4c 

53 

8d 

10 

20a9 

: 

26 

95 

88 

ac 

00 

25 

8B 

ec 

77 

2379 

- 

36 

24 

be 

ac 

26 

00 

be 

ba 

d9 

2649 

: 

a9 

41 

8d 

10 

89 

4c 

53 

Sd 

5c 

20b 1 

: 

20 

66 

88 

bc 

00 

21 

88 

f e 

e7 

23B1 

: 

00 

24 

be 

25 

37 

05 

be 

9a 

b3 

2651 

- 

c9 

7a 

dB 

3c 

ce 

10 

89 

ce 

44 

20b9 

: 

28 

64 

ae 

be 

20 

36 

88 

fe 

e9 

2389 

- 

b7 

a9 

3b 

8d 

11 

dB 

a9 

7d 

cf 

2659 

: 

11 

89 

ad 

11 

89 

c9 

32 

b0 

cd 

20c 1 

: 

00 

66 

bB 

ec 

00 

24 

aS 

ef 

64 

2391 

; 

Bd 

18 

dB 

a9 

96 

8d 

00 

dd 

25 

2661 

■ 

03 

ee 

11 

89 

ad 

09 

89 

c9 

2e 

20c9 

: 

20 

76 

ac 

ae 

00 

64 

88 

ee 

48 

2399 

: 

a9 

00 

8d 

20 

dB 

20 

44 

e5 

95 

2669 

: 

04 

b0 

0d 

ad 

10 

89 

c9 

19 

65 

20dl 

: 

34 

77 

ac 

88 

80 

24 

B8 

ef 

28 

23a 1 

- 

a 0 

06 

a9 

00 

99 

00 

89 

c8 

00 

2671 

- 

b0 

03 

ee 

10 

89 

4c 

53 

Bd 

c4 

20d9 

: 

21 

62 

a9 

f e 

36 

20 

aß 

ee 

5a 

23a9 

; 

C0 

32 

dB 

f 6 

a9 

lc 

Bd 

0a 

5b 

2679 

: 

ad 

10 

89 

c9 

ff 

f 0 

03 

4c 

f 6 

20el 

: 

36 

6e 

2a 

ac 

25 

2c 

82 

af 

8c 

23|bl 

. 

89 

a9 

40 

Bd 

0e 

89 

a9 

92 

ca 

2681 

: 

53 

8d 

ad 

09 

89 

e9 

04 

8d 

3a 

20e9 

: 

05 

26 

fb 

a4 

24 

24 

8c 

ad 

86 

23b 9 

. 

8d 

0b 

89 

8d 

0f 

89 

a9 

02 

c8 

2689 

: 

09 

89 

8d 

10 

d0 

4c 

53 

8d 

94 

20 fl 

: 

20 

27 

ad 

bf 

00 

25 

27 

89 

el 

23c 1 

- 

8d 

27 

dB 

a9 

06 

8d 

28 

dB 

5a 

2691 

s 

c9 

79 

dB 

3c 

ce 

10 

89 

ee 

44 

20f 9 

: 

af 

01 

27 

89 

bf 

00 

01 

05 

2e 

23c9 

- 

a9 

00 

8d 

29 

dB 

20 

97 

e0 

29 

2699 

: 

11 

89 

ad 

11 

89 

c9 

cB 

90 

27 

2101 

s 

ad 

af 

00 

ae 

a9 

ae 

05 

25 

ca 

23dl 

- 

a5 

8d 

c9 

55 

b0 

0c 

a9 

55 

17 

26a 1 

: 

03 

ce 

11 

B9 

ad 

09 

89 

c9 

5e 

2109 

s 

21 

bf 

00 

01 

2e 

aa 

ad 

33 

7f 

23d9 

; 

8d 

10 

89 

a9 

b4 

Bd 

11 

89 

15 

26a9 

: 

04 

bB 

0d 

ad 

10 

89 

c9 

19 

a5 

2111 

: 

20 

f a 

f a 

01 

37 

ad 

af 

01 

2f 

23el 

- 

d0 

la 

c9 

aa 

b0 

0c 

a9 

ff 

98 

26b 1 

: 

b0 

03 

ee 

10 

89 

4c 

53 

Bd 

04 

2119 

: 

27 

89 

af 

24 

26 

9d 

af 

35 

ee 

23e9 

- 

8d 

10 

89 

a9 

b4 

8d 

11 

89 

25 

26b9 

: 

ad 

10 

89 

c9 

ff 

f0 

03 

4c 

36 

2121 

: 

26 

ad 

ae 

20 

66 

89 

bf 

00 

7f 

23f 1 

; 

d0 

0 a 

a9 

aa 

8d 

10 

89 

a9 

59 

26c 1 

: 

53 

8d 

ad 

09 

e9 

e9 

04 

8d 

7a 

2129 

s 

25 

37 

89 

be 

05 

95 

89 

ad 

a2 

23f 9 

; 

c8 

Bd 

11 

89 

20 

97 

e0 

a5 

8b 

26c 9 

: 

09 

89 

8d 

10 

dB 

4c 

53 

8d 

d4 

2131 

: 

01 

26 

89 

ae 

25 

26 

8d 

bf 

b7 

2401 

• 

Bd 

c9 

7f 

b0 

07 

a9 

02 

Bd 

4a 

26dl 

: 

c9 

7f 

dB 

23 

ee 

16 

89 

ad 

13 

2139 

: 

00 

01 

25 

89 

bf 

00 

25 

25 

0f 

2409 

; 

03 

89 

dB 

2 a 

a9 

01 

8d 

03 

29 

26d9 

: 

16 

89 

c9 

05 

b0 

01 

60 

ee 

39 

2141 

■ 

8d 

bf 

00 

25 

77 

88 

bf 

00 

0d 

2411 

: 

89 

20 

97 

e0 

a5 

8d 

c9 

7f 

99 

26el 

: 

11 

89 

ad 

11 

89 

c9 

cB 

90 

6f 

2149 

: 

00 

27 

bd 

af 

01 

34 

8d 

af 

89 

2419 

: 

b0 

0e 

ad 

0a 

89 

Bd 

12 

89 

dd 

26e9 

: 

03 

ce 

11 

e9 

ad 

11 

89 

Bd 

6d 

2151 

: 

25 

26 

Sd 

ae 

01 

26 

89 

8e 

47 

2421 

: 

ad 

0b 

89 

8d 

13 

89 

dB 

26 

75 

26f 1 

: 

05 

dB 

a9 

00 

Bd 

16 

89 

60 

39 

2159 

: 

26 

26 

ad 

8d 

81 

34 

89 

ae 

ed 

2429 

; 

ad 

0e 

89 

8d 

14 

89 

ad 

0f 

54 

26f 9 

: 

ad 

17 

89 

c9 

01 

f0 

04 

c9 

09 

2161 

• 

25 

27 

ad 

bf 

00 

37 

21 

ad 

17 

2431 

• 

89 

8d 

15 

89 

dB 

18 

ad 

0a 

90 

2701 

: 

02 

dB 

01 

60 

ad 

03 

89 

c9 

64 

2169 

- 

ae 

36 

2e 

03 

02 

8B 

01 

0b 

9d 

2439 

: 

89 

Bd 

12 

89 

ad 

0b 

89 

8d 

b3 

2709 

: 

01 

f0 

03 

d0 

50 

ea 

ad 

14 

98 

2171 

• 

00 

03 

02 

04 

00 

lc 

92 

00 

lf 

2441 

: 

13 

89 

ad 

Be 

89 

Sd 

14 

89 

ae 

2711 

: 

89 

c9 

40 

d0 

2a 

18 

ad 

09 

d5 

2179 

■ 

00 

40 

92 

ff 

b4 

00 

00 

40 

0a 

2449 

: 

ad 

0f 

89 

8d 

15 

89 

ad 

00 

e6 

2719 

: 

89 

69 

02 

8d 

09 

89 

8d 

10 

bc 

2181 

; 

92 

cf 

lb 

88 

8a 

00 

43 

88 

99 

2451 

- 

89 

8d 

06 

89 

ad 

01 

89 

8d 

78 

2721 

: 

dB 

1B 

ad 

08 

89 

69 

02 

8d 

71 

21B9 

: 

ca 

10 

06 

98 

8a 

00 

43 

89 

b9 

2459 

: 

07 

89 

c9 

01 

dB 

07 

a9 

f e 

al 

2729 

: 

08 

89 

8d 

15 

dB 

ad 

12 

89 

d2 

2191 

: 

cb 

00 

36 

98 

be 

00 

46 

8e 

lf 

2461 

: 

8d 

fa 

5f 

dB 

10 

c9 

02 

dB 

56 

2731 

: 

8d 

02 

dB 

ad 

13 

89 

8d 

03 

63 

2199 

■ 

19 

00 

04 

88 

89 

00 

40 

8B 

6f 

2469 

■ 

07 

a9 

ff 

Bd 

fa 

5f 

dB 

05 

ee 

2739 

: 

dB 

a9 

01 

8d 

17 

89 

60 

18 

3f 

21al 

: 

ca 

00 

10 

88 

89 

00 

76 

80 

f 4 

2471 

: 

a9 

0f 

8d 

f a 

5f 

ad 

10 

89 

lb 

2741 

s 

ad 

08 

89 

69 

01 

Bd 

08 

89 

32 

21 a9 

: 

ec 

00 

36 

88 

be 

00 

76 

B8 

0b 

2479 

■ 

Sd 

04 

dB 

ad 

11 

89 

Bd 

05 

90 

2749 

: 

Bd 

15 

dB 

ad 

12 

89 

8d 

00 

ee 

21bl 


ca 

10 

00 

8B 

8c 

02 

43 

88 

8b 

2481 

: 

d0 

a9 

04 

Bd 

15 

dB 

8d 

08 

f 7 

2751 

: 

dB 

ad 

13 

89 

Bd 

01 

dB 

a9 

65 

21b9 

* 

ca 

04 

02 

es 

Bc 

00 

46 

88 

0a 

2489 

: 

89 

a9 

00 

8d 

10 

dB 

a9 

fd 

c3 

2759 

: 

01 

Bd 

17 

89 

60 

18 

ad 

08 

a5 

21 cl 

: 

cb 

06 

00 

08 

8c 

00 

43 

89 

79 

2491 

: 

Bd 

f 8 

5f 

Bd 

f 9 

5f 

ad 

00 

75 

2761 

: 

B9 

69 

01 

Bd 

08 

89 

ad 

15 

be 

21c9 

: 

ca 

01 

36 

9e 

88 

00 

42 

9e 

44 

2499 

: 

de 

c9 

70 

90 

02 

dB 

f 7 

a9 

62 

2769 

: 

dB 

ad 

12 

89 

8d 

00 

dB 

ad 

3d 

21dl 

: 

c2 

22 

24 

a9 

a4 

0a 

27 

89 

2d 

24a 1 

: 

fd 

8d 

f 8 

5f 

8d 

f 9 

5f 

ad 

10 

2771 

: 

13 

89 

Bd 

01 

dB 

ad 

14 

89 

aa 

21d9 

• 

ae 

63 

2c 

a8 

ac 

00 

25 

a8 

0a 

24a9 

■ 

00 

de 

c9 

70 

90 

f 9 

a9 

00 

17 

2779 

: 

c9 

40 

dB 

2 a 

18 

ad 

09 

89 

02 

21 el 

- 

af 

23 

77 

a9 

bf 

00 

01 

27 

83 

24b 1 

. 

8d 

25 

89 

a9 

80 

Bd 

04 

d4 

97 












21e9 


89 

ab 

01 

37 

89 

8c 

23 

23 

3f 

24b9 

: 

a9 

64 

8d 

05 

d4 

a9 

00 

Sd 

4e 
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Sportspiele 


C 64 


2781 : 

69 

02 

Bd 

09 

89 

Bd 

10 

d0 

57 

2789 : 

ad 

14 

89 

Bd 

02 

d0 

ad 

15 

de 

2791 : 

89 

Bd 

03 

d0 

18 

ad 

08 

89 

de 

2799 : 

69 

02 

Bd 

08 

89 

Bd 

15 

d0 

63 

27 a 1 : 

a9 

02 

Bd 

17 

89 

60 

18 

ad 

e? 

27 a9 : 

08 

89 

69 

02 

Sd 

08 

89 

3d 

6b 

27b 1 : 

15 

d0 

ad 

14 

89 

Bd 

02 

dB 

cb 

27b9 : 

ad 

15 

89 

8d 

03 

d0 

a9 

02 

66 

27c 1 : 

8d 

17 

89 

60 

ad 

19 

B9 

c9 

a6 

27c9 : 

01 

d0 

01 

60 

ad 

18 

89 

c9 

d4 

27dl : 

01 

f8 

25 

20 

97 

e0 

a5 

8d 

ca 

27d9 : 

c9 

c8 

90 

03 

ce 

13 

89 

ee 

14 

27el : 

12 

89 

ad 

13 

e9 

8d 

01 

dB 

33 

27e9 : 

ad 

12 

89 

8d 

00 

d0 

c9 

fe 

5f 

27 f 1 : 

d0 

05 

a9 

01 

Bd 

18 

89 

60 

4f 

27f 9 : 

20 

97 

e0 

a5 

8d 

c9 

7f 

b0 

58 

2801 : 

03 

ea 

ea 

ea 

ee 

12 

89 

ad 

92 

2809 : 

13 

89 

Bd 

01 

d0 

ad 

12 

89 

3a 

2811 : 

Bd 

00 

d0 

c9 

00 

d0 

0d 

18 

f 7 

2819 : 

ad 

09 

89 

69 

01 

ed 

09 

89 

3e 

2821 : 

8d 

10 

d0 

60 

c9 

4b 

dB 

fb 

29 

2829 : 

ad 

09 

89 

e9 

01 

8d 

09 

89 

ae 

2831 : 

Sd 

10 

d0 

ad 

08 

89 

e9 

01 

27 

2839 : 

8d 

08 

89 

Bd 

15 

d0 

a9 

01 

5f 

2841 : 

8d 

19 

89 

60 

ad 

0d 

89 

c9 

c6 

2849 : 

01 

d0 

01 

60 

ad 

0c 

39 

c9 

f 4 

2851 : 

01 

-f0 

35 

20 

97 

e0 

a5 

Bd 

4e 

2859 : 

c9 

c8 

90 

03 

ce 

15 

89 

ce 

64 

2861 : 

14 

89 

ad 

15 

89 

8d 

03 

dB 

fb 

2869 : 

ad 

14 

89 

8d 

02 

d0 

c9 

ff 

02 

2871 : 

d0 

0b 

ad 

09 

89 

e9 

02 

Bd 

5e 

2879 : 

09 

89 

8d 

10 

d0 

c9 

5a 

f0 

53 

2881 : 

01 

60 

a9 

01 

8d 

0c 

89 

60 

5d 

2889 : 

20 

97 

e0 

a5 

8d 

c9 

7f 

b0 

e8 

2891 : 

03 

ea 

ea 

ea 

ce 

14 

89 

ad 

30 

2899 : 

15 

89 

Sd 

03 

d0 

ad 

14 

89 

14 

28 a 1 : 

8d 

02 

d0 

c9 

0f 

f0 

01 

60 

da 

28a9 : 

ad 

08 

89 

e9 

02 

8d 

08 

89 

ba 

28b 1 : 

8d 

15 

d0 

a9 

01 

Bd 

0d 

89 

f 6 

28b 9 : 

a9 

0b 

8d 

f 9 

07 

60 

4c 

cf 

cf 

28c 1 : 

00 

90 

20 

25 

8b 

20 

94 

8e 

df 

28c9 : 

ad 

03 

89 

c9 

02 

f0 

f0 

a9 

52 

28dl : 

00 

Bd 

la 

89 

ad 

08 

89 

c9 

24 

28d9 : 

05 

•f 3 

09 

20 

e3 

8f 

a9 

01 

dB 

28el : 

c9 

01 

f0 

03 

20 

60 

8f 

20 

4b 

2Se9 : 

a0 

8c 

20 

a0 

8c 

a6 

fb 

a4 

23 

28-f 1 : 

fc 

c8 

d0 

fd 

eB 

dB 

f 8 

ad 

99 

2Sf 9 : 

19 

E9 

c9 

01 

f0 

07 

ad 

0d 

81 

2901 : 

89 

c9 

01 

d0 

01 

60 

ad 

23 

d9 

2909 ; 

89 

c9 

01 

f0 

ld 

ad 

00 

de 

ce 

2911 : 

c9 

70 

b0 

16 

ee 

23 

89 

ad 

8 b 

2919 : 

28 

89 

c9 

00 

f0 

0c 

c9 

05 

19 

2921 : 

d0 

0b 

a9 

6f 

8d 

f 8 

5f 

ee 

cb 

2929 : 

05 

89 

4c 

6a 

90 

a9 

6f 

8d 

82 

2931 : 

f 9 

5f 

d0 

f 3 

ee 

la 

89 

ad 

ce 

2939 : 

la 

89 

cd 

06 

89 

ea 

ea 

a9 

3b 

2941 -. 

00 

ed 

la 

89 

20 

e0 

Bf 

20 

47 

2949 : 

aE 

8c 

20 

60 

8f 

20 

a0 

8c 

d9 

2951 : 

a6 

fb 

a4 

fc 

cS 

d0 

fd 

e8 

9a 

2959 : 

d0 

f 8 

ad 

19 

89 

c9 

01 

dB 

C0 

2961 : 

08 

ad 

0d 

B9 

c9 

01 

dB 

01 

9e 

2969 : 

60 

ad 

26 

89 

c9 

01 

f0 

16 

ef 

2971 : 

ad 

23 

89 

c9 

01 

d0 

0f 

ee 

fc 

2979 : 

29 

89 

ad 

29 

89 

c9 

le 

90 

78 

2981 : 

3b 

a9 

01 

8d 

26 

89 

ad 

23 

2f 

2989 : 

89 

c9 

02 

f0 

2f 

bf 

05 

ea 

70 

2991 : 

ad 

00 

de 

c9 

70 

b0 

22 

ee 

a2 

2999 : 

23 

39 

ad 

28 

89 

c9 

00 

f0 

ba 

29 al : 

18 

c9 

05 

d0 

17 

ad 

24 

89 

7c 

29a9 : 

c9 

01 

f0 

0d 

a9 

6f 

8d 

f 8 

0f 

29b 1 : 

5f 

a9 

01 

Bd 

24 

89 

ee 

05 

2b 

29b 9 : 

89 

4c 

cf 

00 

90 

ad 

25 

89 

7a 

29c 1 : 

c9 

01 

f0 

0d 

a9 

6f 

8d 

f 9 

29 

29c9 : 

5f 

a9 

01 

8d 

25 

89 

ee 

05 

53 

29dl : 

89 

4c 

cf 

00 

90 

78 

a9 

7e 

e5 

2?d9 : 

8d 

14 

03 

a9 

91 

Bd 

15 

03 

46 

29el : 

58 

60 

ad 

le 

d0 

8d 

28 

89 

c6 

29e9 : 

ad 

fB 

5f 

c9 

6f 

dB 

14 

ee 

cf 

29-f 1 : 

2c 

89 

ad 

2c 

89 

c9 

0f 

dB 

97 

29f 9 : 

20 

ee 

2c 

89 

a9 

6d 

8d 

f 8 

fb 

2a31 t 

5f 

d0 

16 

c9 

6d 

d0 

12 

ee 

0b 

2a09 : 

2c 

89 

ad 

2c 

89 

c9 

le 

dB 

ec 

2a 11 : 

08 

ee 

2c 

39 

a9 

6c 

Bd 

f8 

f 3 

2al9 : 

5f 

ad 

f 9 

5f 

c9 

6f 

d0 

14 

3d 

2a21 s 

es 

2d 

B9 

ad 

2d 

89 

c9 

0f 

22 

2a29 : 

d0 

20 

ee 

2d 

89 

a9 

6d 

Sd 

21 

2a31 : 

f 9 

5 f 

d0 

16 

c9 

6d 

dB 

12 

40 

2a39 : 

es 

2d 

39 

ad 

2d 

89 

c9 

le 

58 

2a41 : 

d0 

03 

ee 

2d 

89 

a 9 

6c 

Sd 

29 

2=49 : 

f 9 

5f 

ad 

03 

89 

c9 

02 

f0 

8e 

7a51 -. 

19 

ad 

2a 

89 

c9 

01 

f0 

0f 

83 


2a59 

s 

ad 

23 

99 

c9 

01 

d0 

08 

a9 

3d 

2a61 


0! 

Bd 

2a 

89 

20 

35 

92 

4c 

73 

2a69 

: 

31 

ea 

ad 

2a 

E9 

c9 

02 

f0 

91 

2a71 

: 

13 

c9 

01 

f0 

12 

ad 

23 

89 

f 5 

2a79 

: 

c9 

01 

dB 

08 

a9 

01 

Bd 

2a 

25 

2 5.81 

: 

B7 

20 

35 

92 

4c 

31 

ea 

ad 

0f 

2 *89 

: 

23 

89 

c9 

02 

dB 

08 

a9 

02 

lb 

2a91 

: 

Bd 

2a 

89 

20 

35 

92 

4c 

31 

15 

2a99 

: 

ea 

ad 

f a 

5f 

8d 

2b 

89 

a9 

b0 

2aal 

: 

6e 

Bd 

f a 

5f 

a9 

80 

8d 

04 

5d 

2aa9 

: 

d4 

a 9 

80 

8d 

00 

d4 

a9 

19 

a3 

2abl 

: 

Bd 

01 

d4 

a9 

09 

Bd 

05 

d4 

e4 

2ab9 

: 

a9 

Bf 

Bd 

06 

d4 

a9 

0f 

Sd 

00 

2acl 

: 

18 

d4 

a9 

81 

Bd 

04 

d4 

a2 

6f 

2ac9 

: 

fa 

30 

00 

c8 

dB 

fd 

eB 

dB 

6f 

2adl 

s 

fB 

a9 

82 

8d 

0b 

d4 

a9 

40 

6f 

2ad9 

: 

Bd 

07 

d4 

a9 

04 

Bd 

08 

d4 

cb 

2ael 

: 

a9 

0a 

Bd 

0c 

d4 

a9 

0f 

8d 

66 

2ae9 

: 

Bd 

d4 

a9 

83 

8d 

0b 

d4 

a 2 

05 

2af 1 

: 

f0 

a 0 

00 

c8 

dB 

fd 

e8 

dB 

8d 

2af 9 

: 

f 8 

ad 

2b 

89 

8d 

fa 

5f 

60 

b3 

2b31 


00 

00 

00 

06 

85 

eb 

08 

b4 

03 

2b09 

: 

d7 

06 

85 

eb 

08 

b4 

d7 

09 

5a 

2b 11 

: 

c4 

eb 

0 a 

f 7 

d7 

09 

c4 

eb 

fd 

2b 19 

: 

08 

b4 

d7 

09 

c4 

eb 

0a 

f 7 

56 

2b21 

: 

eb 

0a 

f 7 

eb 

09 

c4 

eb 

0a 

07 

2b 29 

: 

f 7 

eb 

0a 

f 7 

eb 

0b 

9e 

eb 

01 

2b31 

: 

0d 

0a 

d7 

0b 

9e 

eb 

0 a 

f 7 

fc 

2b39 

: 

d7 

0d 

0a 

eb 

0d 

0a 

eb 

11 

8a 

2b41 

: 

67 

eb 

10 

6d 

eb 

11 

67 

d7 

e4 

2b 49 

: 

0d 

0a 

eb 

0d 

0a 

eb 

11 

67 

0b 

2b51 

: 

eb 

10 

6d 

eb 

11 

67 

d7 

0d 

e3 

2b59 

: 

0a 

eb 

0d 

0a 

d7 

0d 

0a 

eb 

c3 

2b61 

: 

0d 

0a 

d7 

0d 

0a 

eb 

0d 

0a 

53 

2b 69 

: 

9b 

00 

00 

0f 

03 

42 

eb 

04 

e0 

2b71 

: 

5a 

eb 

03 

42 

eb 

03 

42 

eb 

82 

2b79 

: 

04 

5a 

eb 

03 

42 

eb 

03 

42 

la 

2bBl 

s 

eb 

04 

5a 

eb 

03 

42 

eb 

03 

7a 

2b 89 

: 

42 

eb 

04 

5a 

f 9 

04 

5a 

f 8 

28 

2b91 

: 

04 

5a 

e4 

03 

42 

eb 

04 

5a 

a4 

2b99 

: 

eb 

03 

42 

eb 

03 

42 

eb 

04 

0e 

2bal 

: 

5a 

f 9 

04 

5a 

f S 

04 

5a 

e4 

27 

2ba9 

: 

03 

42 

eb 

04 

5a 

eb 

03 

42 

de 

2bbl 

: 

eb 

03 

42 

eb 

04 

5a 

f 9 

04 

2f 

2bb9 

: 

5a f8 04 5a u" 03 

42 

eb 

23 

2bcl 

: 

04 

5a 

eb 

03 

42 

eb 

03 

42 

62 

2bc9 

: 

eb 

04 

5a 

eb 

03 

42 

eb 

03 

c 2 

2bdl 

: 

42 

eb 

04 

5a 

d7 

03 

42 

eb 

cc 

2bd9 

: 

04 

5a 

f 9 

04 

5a 

f 8 

04 

5a 

3b 

2bel 

: 

e4 

03 

42 

eb 

04 

5a 

eb 

03 

le 

2be9 

: 

42 

eb 

03 

42 

eb 

04 

5a 

eb 

4a 

2bf 1 

: 

03 

42 

eb 

03 

42 

eb 

04 

5a 

b9 

2bf 9 

: 

eb 

03 

42 

eb 

03 

42 

eb 

04 

6e 

2c01 

: 

5a 

f 9 

04 

5a 

fB 

04 

5a 

e4 

87 

2c09 

: 

00 

00 

0f 

06 

85 

eb 

08 

b4 

cf 

2c 11 

: 

d7 

06 

85 

eb 

08 

b4 

d7 

09 

62 

2c 19 

: 

c4 

eb 

0a 

f 7 

d7 

09 

c4 

eb 

05 

2c21 

: 

08 

b4 

d7 

09 

C4 

eb 

0a 

f 7 

5e 

2c29 

: 

eb 

0a 

f 7 

eb 

09 

c4 

eb 

0a 

0f 

2c31 

: 

f 7 

eb 

0a 

f 7 

eb 

0b 

9e 

eb 

09 

2c39 

: 

Bd 

0 a 

d7 

0b 

9e 

eb 

0a 

f 7 

04 

2c41 

: 

d7 

0d 

0a 

eb 

0d 

0 a 

eb 

11 

92 

2c 49 

: 

67 

eb 

10 

6d 

eb 

11 

67 

d7 

ec 

2c51 

: 

0d 

0a 

eb 

0d 

0a 

eb 

11 

67 

13 

2c59 

: 

eb 

10 

6d 

eb 

11 

67 

d7 

0d 

eb 

2 c 61 

: 

0a 

eb 

0d 

0a 

d7 

0d 

0a 

eb 

cb 

2c 69 

: 

0d 

0 a 

d7 

0d 

0a 

eb 

0d 

0a 

5b 

2c71 

s 

9b 

ac 

00 

cl 

b9 

9f 

92 

Bd 

99 

2c79 

: 

01 

d4 

c8 

b9 

9f 

92 

8d 

00 

12 

2cBl 

: 

d4 

cB 

b9 

9f' 

92 

8d 

03 

cl 

41 

2c89 

: 

cB 

Bc 

00 

cl 

a9 

11 

Sd 

04 

31 

2c91 

: 

d4 

ad 

00 

cl 

c9 

66 

dB 

05 

91 

2c99 

: 

a9 

00 

Bd 

00 

cl 

60 

ac 

01 

7a 

2cal 

: 

cl 

b9 

05 

93 

8d 

08 

d4 

c8 

fl 

2ca9 

: 

b9 

05 

93 

Bd 

07 

d4 

c8 

b9 

29 

2cbl 

: 

05 

93 

8d 

04 

cl 

c8 

8c 

01 

fa 

2cb9 

: 

cl 

a9 

81 

8d 

0b 

d4 

ad 

01 

71 

2c c 1 

: 

cl 

c9 

9f 

dB 

05 

a9 

03 

8d 

2d 

2cc9 

: 

01 

cl 

60 

ac 

02 

cl 

b9 

a4 

b7 

2cdl 

s 

93 

8d 

0f 

d4 

c8 

b9 

a4 

93 

9d 

2cd9 

s 

8d 

0 e 

d4 

CB 

b9 

a4 

93 

Bd 

e6 

2cel 

s 

05 

cl 

c8 

8c 

02 

cl 

a9 

21 

a 2 

2ce9 

: 

8d 

12 

d4 

ad 

02 

cl 

c9 

69 

92 

2cf 1 


dB 

05 

a9 

03 

8d 

02 

cl 

60 

bf 

2cf 9 

: 

89 

ef 

01 

67 

89 

ff 

01 

47 

d2 

2d01 


ff 

ef 

00 

6e 

6 b 

ee 

43 

67 

dB 

2d09 


6a 

ef 

01 

6e 

ea 

ef 

73 

62 

3a 

2d 11 


f a 

fa 

01 

77 

ef 

ef 

01 

67 

09 

2dl9 


89 

6f 

66 

66 

df 

ef 

77 

66 

e8 

2d21 


ff 

a9 

00 

Bd 

04 

d4 

8d 

0b 

da 

2d29 


d4 

8d 

12 

d4 

a9 

05 

8d 

15 

06 


2d31 

: 

d4 

Bd 

0c 

d4 

a9 

50 

8d 

16 

e9 

2d39 

: 

d4 

a9 

f 6 

Bd 

17 

d4 

a9 

68 

el 

2d41 

: 

Bd 

13 

d4 

8d 

05 

d4 

a9 

36 

49 

2d49 

s 

8d 

14 

d4 

a9 

0f 

8d 

0d 

d4 

86 

2d51 

: 

a9 

74 

Bd 

06 

d4 

a9 

08 

8d 

2 e 

2d59 

: 

02 

d4 

Bd 

09 

d4 

a9 

Bc 

Bd 

32 

2d61 

: 

03 

d4 

a9 

64 

Bd 

0a 

d4 

a9 

95 

2d69 

s 

2f 

8d 

18 

d4 

a 0 

00 

a9 

00 

b0 

2d71 

: 

99 

00 

cl 

c8 

C0 

10 

dB 

f 8 

55 

2d79 

: 

20 

0d 

94 

20 

3a 

94 

20 

67 

el 

2d81 

: 

94 

78 

a9 

2a 

8d 

14 

03 

a9 

da 

2d89 

: 

95 

8d 

15 

03 

58 

60 

ee 

03 

d5 

2d91 

: 

cl 

ad 

03 

cl 

c9 

ff 

d0 

05 

0c 

2d99 

: 

a9 

01 

8d 

06 

cl 

ee 

04 

cl 

0e 

2dal 

: 

ad 

04 

cl 

c9 

ff 

d0 

05 

a9 

e8 

2da9 

: 

01 

Bd 

07 

cl 

ee 

05 

cl 

ad 

e4 

2db 1 

: 

05 

cl 

c 9 

ff 

d0 

05 

a9 

01 

e7 

2db9 

: 

8d 

08 

cl 

ad 

06 

cl 

c9 

01 

08 

2dcl 

: 

d0 

0d 

a9 

10 

Bd 

04 

d4 

20 

11 

2dc9 

: 

0d 

94 

a9 

00 

Bd 

06 

cl 

ad 

f 6 

2dd 1 

: 

07 

cl 

c9 

01 

d0 

0d 

a9 

80 

68 

2dd9 

: 

Bd 

0b 

d4 

20 

3a 

94 

a9 

00 

14 

2del 

: 

Bd 

07 

cl 

ad 

08 

cl 

c9 

01 

d0 

2de9 

: 

d0 

0d 

a9 

20 

Bd 

12 

d4 

20 

ab 

2df 1 

: 

67 

94 

a9 

00 

8d 

08 

cl 

4c 

c5 

2df 9 

: 

31 

ea 

cf 

0f 

00 

ff 

00 

00 

75 


Listing 1. »MC-CODE-P« (Schluß). 
Geben Sie das Listing mit dem 
MSE ein, der in diesem Heft 
abgedruckt ist. 


Programm : hi-1 4f54 4f97 


4f 54 

: 

4e 

54 

49 

20 

0d 

20 

36 

30 

2e 

4f 5c 

: 

30 

20 

0d 

54 

4f 

4e 

54 

49 

b6 

4f 64 

: 

20 

0d 

20 

38 

30 

30 

20 

0d 

39 

4f6c 

: 

54 

4f 

4e 

54 

49 

20 

0d 

20 

90 

4f 74 

: 

31 

32 

30 

30 

20 

0d 

54 

4f 

2b 

4f 7c 


4e 

54 

49 

20 

0d 

20 

31 

36 

4e 

4f 84 

: 

30 

30 

20 

0d 

54 

4f 

4e 

54 

18 

4f Sc 

: 

49 

20 

0d 

20 

32 

34 

30 

30 

13 

4f 94 

: 

20 

0d 

00 

30 

30 

20 

0d 

00 

79 


Listing 2. Hi-Score 1 von »Tonti« 


Programm : hi-2 4f54 4f9c 


4f 54 

S 

4e 

54 

49 

31 

0d 

20 

32 

32 

44 

4f 5c 

: 

38 

31 

36 

20 

0d 

54 

4f 

4e 

0c 

4f 64 

: 

54 

49 

32 

0d 

20 

31 

37 

31 

56 

4f 6c 

: 

37 

32 

20 

0d 

54 

4f 

4e 

54 

08 

4f 74 

: 

49 

33 

0d 

20 

31 

31 

37 

36 

84 

4f 7c 

: 

30 

20 

0d 

54 

4f 

4e 

54 

49 

d6 

4fS4 

: 

34 

0d 

20 

38 

36 

34 

30 

20 

54 

4f Bc 

: 

0d 

54 

4f 

4e 

54 

49 

35 

0d 

df 

4f 94 

: 

20 

36 

30 

30 

30 

20 

0d 

00 

la 

Listing 

3. Hi-Score 2 von 

i »Tonti 

a 
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C 64 


Sportspiele 


4000 

4010 

4100 

4110 

4120 

4200 

4210 

4220 

4230 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

6000 

6004 

6006 

6010 

6020 


6030 

6040 

6050 


6052 


6055 


6057 


6060 


IF A=3 THEN 6000 
IF A>0 THEN 5000 

DATA 169,128,141,4,212,169,128,141,0, 
212,169,25,141,1,212,169,9,141,5,212 
DATA 169,15,141,6,212,169,15,141,24,2 

12.169.129.141.4.212.96 

FQR 1=49900 TD 49935:READ X:POKE I,X: 
NEXT 

DATA 169,0,133,253,169,216,133,254,16 
0,0,165,2,145,253,200 

DATA 208,251,230,254,165,254,201,220, 
208,241 

DATA 230,2,165,2,201,8,208,4,169,1,13 

3.2.96 

FOR 1=49850 TO 49887:READ X:POKE I,X: 
NEXT 

A=A+1:IF A=1 THEN LOAD"MC—CODE",8,1 
OPEN 1,8,0,"HI-l" 

1 = 1 

INPUT# 1 ,HNi(I) 

INPUT#1,HI(I) 

1=1+1:IF I<6 THEN 5030 
CLOSE 1 

OPEN 1,B,0, M HI-2" 

1=6 

INPUT#l,N2i(I) 

INPUT41,K2(I> 

1=1+1: IF KU THEN 5090 
CLOBE 1 

PRINT"{CLR>":POKE 53280,0:POKE 53281, 
0:00=54272:SB=1 
DIM B(25) 

ZZ=0:POKE 251,0:GT=0 

*♦»***■»■«■■■»■*■»*■»**»♦*»*«■****' ?" 

FOR 1=1064 TO 1944 STEP 40:POKE I+CO, 
7:POKE 1+39+00,7:POKE 1,66:POKE 1+39, 
66:NEXT 

PRINT" {HOME■ 24DDWN> 7»*****^ 
*.*■■*■*■*■»■»-»■■»*♦*♦♦»****** " ; 

POKE 2023+00,7:POKE 2023,125:IF ZZ>0 
THEN RETURN 

Ai C1)="<2RIGHT,RED,RVSON,3SPACE,RVOFF 
, SP ACE, RVSON , 3SPACE , RVOFF , SP ACE, RVSON 
,SPACE {SPACE,RVOFF,SPACE,RVSON,3SPA 
CE,RVOFF,SPACE,RVSON,SPACE >": 

Ai(1> =Ai(1> + "{2SPACE,RVOFF,SPACE,RVS 
ON,SPACE,RVOFF,SPACE,RVSON,SPACE,RVOF 
F,SPACE,RVSON,2SPACE>¥(RV0FF,SPACE,RV 
SON,3SPACE,RVOFF,SPACE,RVSON,SPACE >* 

Ai(2)="{2RIGHT,RED,RIGHT,RVSON,SPACE, 
RVOFF,2SPACE,RVSON,SPACE,RVOFF,SPACE, 
RVSON , SPACE , RVOFF , SP ACE , RVSON , 3SP ACE , 
RVOFF,2SPACE,RVSON,SPACE,RVOFF,SPACE > 


<219> 

<244> 

< 103> 
< 020 > 
<153> 

< 152> 
<089> 
<216> 

< 175> 
<150> 
<006> 

< 143> 
<053> 
<061> 

< 125> 
<245> 
<098> 
<027> 
<042> 
<019> 

< 161 > 
<051 > 

<250> 

< 119> 

< 129> 

<219> 


< 101 > 

<U0> 

<047> 

G46F 


<236> 


<207> 


< 134> 


Ai(2)=Ai(2)+"{SPACE,RVSON.SPACE,RVOFF 
,SPACE.RVSON,SPACE,RVOFF,SPACE,RVSON, 

SPACE,RVOFF,SPACE,RVSON,SPACE,RVOFF,S 
PACE,RVSON,SPACE >U{RVOFF >£{SPACE,RVSO 
N,SPACE,RVOFF,3SPACE,RVSON,3SPACE>“ < 072 > 

A* (3 > ="{2RIGHT,RED,RIGHT,RVSON,SPACE, 

RVOFF,2SPACE,RVSON,SPACE,RVOFF,SPACE, 

RVSON,SPACE.RVOFF,SPACE,RVSON,3SPACE, 

RVOFF, 2SP ACE, RVSON, SPACE, RVOFF, SPACE > 


< 171 > 


6063 Ai(3)=Ai(3)+"{SPACE,RVSON,3SPACE,RVOF 
F,SPACE,RVSON,SPACE,RVOFF,SPACE,RVSON 
.SPACE, RVOFF , SPACE, RVSON, SPACE >'0¥{RVO 
FF,SPACE,RVSON,SPACE >TT{RVOFF,SPACE,R 
VSON,3SPACE >" < 104 > 

6065 Ai(4)="{2RIGHT,RED,RIGHT,RVSON,SPACE, 

RVOFF,2SPACE,RVSON,3SPACE,RVOFF,SPACE 
,RVSON,SPACE,RVOFF >*{RVSON,SPACE,RVOF 
F,2SPACE.RVSON,SPACE,RVOFF,SPACE >": < 244 > 

6067 AiC4)=Ai(4)+"{SPACE.RVSON,SPACE,RVOFF 
,SPACE,RVSON,SPACE,RVOFF,SPACE,RVSON, 

3SPACE.RVOFF,SPACE,RVSON,2SPACE,RVOFF 
>£{SPACE,RVSON,3SPACE,RVOFF,SPACE,RVS 
ON,SPACE,RVOFF > * {RVSON,SPACE >" < 065 > 

6070 Ai(5)="{3RIGHT,BLUE,RVSON,3SPACE,RVOF 
F,SPACE,RVSON,3SPACE.RVOFF,SPACE,RVSO 
N,SPACE,RVOFF,SPACE,RVSON,SPACE,RVOFF 
,SPACE,RVSON,SFACE,RVOFF,SPACE >" < 029 > 

6073 Ai(5)=Ai(5)+"{RVSON,3SPACE,RVOFF,SPAC 
E,RVSON,3SPACE.RVOFF,SPACE,RVSON,3SPA 
CE,RVOFF,SPACE,RVSON,3SPACE,RVOFF,SPA 


CE,RVSON,SPACE>5 " 

6075 Ai(6)="{3RIGHT,BLUE.RVSON,SPACE.RVOFF 
,3SPACE,RVSON,SPACE,RVOFF,3SPACE,RVSO 
N,SPACE.RVOFF,SPACE,RVSON,SPACE,RVOFF 
,SPACE,RVSON,SPACE,RVDFF,SPACE >“ 

6077 Ai(6)=Ai(6)+"{RVSON,SPACE.RVOFF,3SPAC 
E,RVSON,SPACE.RVOFF,3SPACE,RVSON,SPAC 
E,RVOFF,3SPACE,RVSON,SPACE,RVOFF,3SPA 
CE,RVSON,3SPACE >" 

6080 At(7)="{3RIGHT,BLUE JOT{RVSON,SPACE,RV 
OFF,SPACE,RVSON,SPACE,RVOFF,3SPACE,RV 
SON,3SPACE.RVOFF,SPACE,RVSON,SPACE,RV 
OFF,SPACE,RVSON,SPACE >" 

6083 Ai(7)=Ai(7)+"{RV0FF>TO UTJ{RVSON,SPACE 
,RVOFF,SPACEJUtJ{RVSON,SPACE,RVOFF,SPA 
CE,RVSON,SPACE,RVOFF 5UTKSPACE,RVSON,3 
SPACE>" 

6085 Ai(8)="{3RIGHT,BLUE,RVSON,3SPACE,RVOF 
F , SPACE, RVSON, 3SP ACE, RVOFF , SP ACE , RVSO 
N,SPACE,RVOFF,SPACE,RVSON,SPACE,RVOFF 
,SPACE,RVSON,SPACE,RVOFF,SPACE >" 

6087 Ai(8)=Ai(8)+ "{RVSON,3SPACE,RVOFF,SPA 
CE,RVSON,3SPACE,RVOFF,SPACE,RVSON,3SP 
ACE,RVOFF,SPACE,RVSON,3SPACE,RVOFF,SP 
ACE,RVSON,SPACE,RVOFF >¥{RVSON,SPACE >" 

6088 DIi="{RIGHT,36SPACEJ" 

6090 SYS 49900:PRINT"{HOME,2D0WN,2RIGHT,YE 
LLOW}(C)84{CYAN,SPACE >BY H.J.KNEBEL{2 
SPACE >UND{2SPACE >W.MATNER" 

6092 PRINT"{DOWN,15RIGHT,RED}H{SPACE,BLUEI 
W{SPACE,RED}J {SPACE,BLUE>M{SPACE,RED> 
K” 

6094 PRINT"{DOWN,15RIGHT,GREEN5PRESENTS—" 
6096 FOR 1=1 TO 1000:NEXT:SYS 49900 
6100 PRINT"{HOME,7D0WN>“ 

6110 FOR 1=1 TO 8:SYS 49900 
6115 PRINT Ai(I) 

6120 FOR J=1 TO INT(RND(1)*300+400):NEXT 
6130 IF 1=4 THEN PRINT:PRINT 
6140 NEXT 

6220 PRINT"{HOME,20DOWN,RIGHT,GREEN JE I N 
E N{4SPACE>M OMEN T{4SPACE>B ITT 

6230 SYS 38077 
6260 FOR 1=1 TO 13560 
6270 NEXT:GOTO 25001 
6300 ZZ=1:GQSUB 6010 

6320 PRINT"{HOME,DOWN>":FOR 1=1 TO 8:PRINT 
Aid) : IF 1=4 THEN PRINT:PRINT 

6330 NEXT 

6331 Zid)="{GREEN,RVSON>£{SPACE,RVOFF,SPA 
CE,DOWN,3LEFT.RVSON,2SPACE,RVOFF,SPAC 
E,DOWN,3LEFT,SPACE,RVSON,SPACE,RVOFF, 
SPACE , DOWN, 3LEFT , SPACE, RVSON , SPACE, RV 
OFF,SPACE>" 

6332 Zi(2)="{GREEN,RVSON,3SPACE.RVOFF,DOWN 
, 3LEFT , 2SP ACE , RVSON , SP ACE, RVOFF , DOWN , 
3LEFT,RVSON,SPACEIOT(DOWN,3LEFT,3SPAC 
E>" 

6334 Zi(3)="{GREEN,RVSON,3SPACE,DOWN,3LEFT 
,RVOFF,2SPACE,RVSON,SPACE,RVOFF,DOWN, 
3LEFT,SPACE)U{RVSON,SPACE,DOWN,3LEFT, 
3SPACEI" 

6335 Zi<4)="{GREEN,RVSON,SPACE,RVOFF,2SPAC 
E,DOWN,3LEFT,RVSON,SPACE,RVOFF,SPACE > 
TdDOWN,3LEFT,RVSON,3SPACE,RVOFF,DOWN, 
3LEFT,2SPACE>T' 

6336 Zi(5)="{GREEN,RVSON,3SPACE,DOWN,3LEFT 
,SPACE,RVOFF,2SPACE,DOWN,3LEFT>mf {RVS 
ON,SPACE,DOWN,3LEFT,3SPACE>" 

6337 ABi="{HOME,16D0WN,18RIGHT>":Z=1 

6338 ZWi="{3SPACE,DOWN,3LEFT,3SPACE,DOWN,3 
LEFT,3SPACE,DOWN,3LEFT,3SPACE>":GOSUB 

6480:IF SP=2 THEN POKE 252,255:GOTO 
6405 

6339 PRINT"{HOME,14D0WNJ":FOR 1=1 TO 9:PRI 
NT DIi:NEXT 

6340 PRINT" {HOME, 13D0WN,8RIGHT,CYAN>SCHWIE 
RIGKEITSGRAD(1-5)" 

6350 PRINT ABiZi< 1) sFOR 1=1 TO 1000-.NEXT 
6360 L=PEEK(56320) 

6365 IF L=126 THEN 6380 

Listing 4. Der Basic-Teil des Programms »Tonti« 
(Fortsetzung). Bitte beachten Sie den neuen 
Checksummer in diesem Heft. 


<237> 


<066> 


<024> 


<224> 


<211 > 


< 141 > 


<251 > 
<033> 


<005> 


<045> 

<230> 

< 157> 
<1B5> 

< 167> 

< 174> 
<09B> 

< 107> 
<052> 


< 222 > 
< 138> 
<252> 
<094> 
<135> 

<140> 

<244> 


< 168> 


< 193> 


< 103> 


<067> 


< 106> 
< 156> 


< 115> 
<12B> 

<019> 

< 115> 
<007> 
<056> 
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6370 IF LC112 AND ZZ=2 THEN RETURN <131> 

6371 XF L<112 THEN 6400 <208> 

6375 GOTO 6360 <243> 

6380 Z=Z+1:FÜR H=1 TQ 200:NEXT:IF Z=6 THEN 

Z=1 <246> 

6390 PRINT AB*ZS(Z):GOTO 6360 <172> 

6400 SG=Z:POKE 251,63.8*(Z-l):POKE 252,255 <231> 
6405 : <031> 

6409 PRINT"{HOME,14D0WN>":FOR 1=1 TQ 9:PRI 
NT DI*:NEXT 

6410 IF SP=2 THEN FOR 1=1 TO 10:SC<I)=0:T( 

I)=0:TT(I)=0:NEXT:PQKE 251,0:GT=0:SG= 

1 

6415 PRINT"{HOME,13D0WN,8RIGHT>ANZAHL DER 
SPIELER(1-5)":ZZ=2:Z=1:GQSUB 6350 
6420 AS=Z:PRINT"{7UP,3RIGHT>NAME VON SCHUE 
TZE<2SPACE>C<7 BUCHSTABEN!":PRINT AB* 

ZW* 

6430 AB*=MID*CAB*,1,27) 

6440 FOR 1=1 TO AS 

6450 PRINT AB*Z*(I)"I3UP,3RIGHT,RVOFF,13SP 
ACE,13LEFT}" ; 

6455 INPUT N*(I):N*(I> =MID*(N*(I),1,6) 

6456 IF LEN(N*(I))=1 THEN N*(I)="ANONYM" 

6460 NEXT:GOTO 6610 

6480 PRINT AB*ZW*"{3UP,3RIGHT,RVOFF,8SPACE 
,8LEFT>" 

6490 PRINT" ( 4UP,RIGHT,38SPACE>" 

6500 PRINT"{2D0WN,3RIGHT>S PIE LI4D0WN,R 
IGHT,SPACE ><-JOYSTICK-> <RIGHT,4UP,SPA 
CE>S P I E L“ 

6510 PRINT"<2D0WN,6RIGHTJ"Z*(1)"{3UP,21RIG 
HTT"Z*(2) 

6520 A1*="{HOME,19D0WN,6RIGHT >" 

6522 A2*="{HOME,19D0WN,30RIGHT >" 

6523 SP=1:GOTO 6540 

6530 PRINT A1*ZW*:PRINT A1*Z*(1):RETURN 
6535 PRINT A2*ZW*:PRINT A2*Z*(2):RETURN 
6540 JO=PEEK(56320) 

6550 IF J0=123 THEN SP=1 

6560 IF JQ=119 THEN SP=2 

6570 IF J0<112 THEN 6600 

6580 IF SP=1 THEN GOSUB 6530 
6585 IF SP=2 THEN GOSUB 6535 
6590 GOTO 6540 
6600 RETURN 
6610 IF- SP=1 THEN 8530 

8530 POKE 24568,253:POKE 24569,253:POKE 24 
570,255 

8550 FOB 1=23296 TO 23358:POKE 1,0:NEXT 
20000 PBKE 54276,16:POKE 54283,128:POKE 54 
290,32:POKE 54296,0:SYS 37233 

20009 PRINT"{CLR>":P=35072:9=53248:POKE P+ 

0,3:POKE P+l,2:POKE V+27,0 

20010 POKE P+5,0:POKE P+l,2 
20020 DF=23552:LA=892+DF:LT=972+DF 
20050 GOTO 22000 
20100 : 

20150 POKE P+5,0:SYS 36957 

20200 AT=PEEK(P+3):TT=TT+PEEK(P+5):AL=AL+A 
T 

20205 IF AL>25 THEN AL=25:IF PEEK(P+5)=2 T 
HEN TT=TT-1 

20210 FOR I=LA TO LA+AL-1:P0KE 1,34:NEXT 
20235 IF TT=0 THEN 20301 
20240 FOR 1=1 TO TT:IF I>25 THEN 1=25 
20245 IF I<6 THEN POKE LT+I-1,85:GOTO 2030 
0 

20250 IF KU THEN POKE LT+I-1,221: GOTO 20 
300 

20255 IF I<16 THEN POKE LT+I-1,102:GOTO 20 
300 

20260 IF I<21 THEN POKE LT+I-1,170:GOTO 20 
300 

20265 POKE LT+I-1,34: GOTO 20300 

20300 NEXT 

20301 IF AL>=25 THEN FOR AD=1 TO 5000:NEXT 
:RETURN 

20350 GOTO 20100 
21000 : 

22000 FOR 11=1 TO AS:PRINT"{CLR >":GOSUB 60 
10 

22090 IF SP=2 THEN PRINT"{HOME,3D0WN>"SPC( 

16)"DURCHGANG"SPC(74)LV+1 
22100 PRINT"{HOME,YELLOW,9D0WN,17RIGHT>"N* 

(II) 

22110 PRINT"{RVOFF,4D0WN,4RIGHT,CYAN>BITTE 


< 200 > 


<219> 


< 113> 


< 000 > 

<099> 

<023> 

< 177> 

< 18B> 
<091 > 
<252> 

< 119> 
<219> 


<039> 

<092> 
<230> 
<228> 
<016> 
<042> 
<081 > 
<255> 

< 153> 
<072> 

< 189> 

< 145> 
<03B> 

< 172> 
<052> 
<053> 

< 149> 
<241 > 

< 134> 

<084> 
<060> 
<021 > 
<242> 
<008> 

< 159> 

<247> 

<087> 

<244> 

<229> 

< 130> 

< 1B8> 
<046> 

< 115> 

<093> 

<009> 

<244> 

<076> 
<032 > 

< 148> 

< 139> 
<046> 
<217> 


C3SPACE}AN{3SPACE >DEN{3SPACE >SCHIESS 
-STAND <088> 

22120 FOR H=LA TO LA+24:POKE H,17:NEXT <177> 

22121 FOR H=LT TO LT+24:P0KE H,17:NEXT <157> 

22190 TT=0:AL=0:POKE CO+4,32 <224> 

22200 FOR JJ=5 TO 1 STEP-1 <016> 

22202 PRINT AB*+“{2D0WN,8RIGHT>"Z*(JJ):GOS 

UB 40000 <097> 

22205 NEXT:POKE CO+4,0:POKE CO+U,0:POKE C 

0+18,0:GOSUB 20100 <041> 

22210 POKE 53265,27:POKE 53272,21:POKE 565 

76,151:POKE V+21,0 <136> 

22250 T(11)=TT:SC(II)=INT((TTt2*10/AL)#(SG 

*10)):CC=SC(II> <154> 

22260 IF SP=2 THEN GOSUB 23000 <105> 

22300 NEXT:IF SP=2 THEN 23500 <123> 

22325 : <203> 

22350 ZZ=2 <168> 

22400 GOSUB 6010:D*="{HOME,8D0WN,4RIGHTJ" <214> 

22410 PRINT"{HOME,3D0WN,6RIGHT,YELLOW>SCHU 

ETZE","CLEFT>TREFFER","{LEFTJPUNKTE" <120> 

22420 print" {down, 4Ri ght irrrrirrrrrrrTTTTT 

22450 FOR J=1 TO AS-1 <064> 

22460 FOR 1=1 TO AS-1 <066> 

22550 IF SC(I)<SC(1+1)THEN V1=SC(I):SC(I)= 

SCCI+1):SC(I+1)=V1:GOSUB 22700 <032> 

22560 NEXT:NEXT <089> 

22600 FOR 1=1 TO AS <181> 

22620 FRINT D*+DD*I"{LEFT>."N*(I),T(I),SC( 

I) :PRINT <117> 

22625 DD*=DD*+"{2D0WN>":NEXT:DD*="" <167> 

22627 PRINT"{3D0WNJ"SPC(10)"{RVSON,RED>WEI 

TER MIT FEUERKNOPF{RVOFF>" <035> 

22630 IF SP=2 THEN RETURN <03B> 

22650 IF PEEK(56320)<112 THEN 25000 <007> 

22660 GOTO 22650 <057> 

22700 V1=T(I):T(I)=T(1+1>:T(1+1)=V1 <058> 

22710 V1*=N*(I):N*(I)=N*(1+1):N*(1+1)=V1* <053> 

22720 V1=S1(I):S1(I)=S1CI+1):S1CI+1)=V1 <088> 

22730 V1=T1(I):T1(I)=T1(1+1):T1(I+1)=V1 <142> 

22750 RETURN <200> 

3000 T1(11> =T1(11)+TT:S1(II)=S1(11)+CC:T( 

II) =T1(II):SC(II)=S1(II) <094> 

23010 : <124> 

23050 RETURN <24B> 

23500 SG=SG+1:6T=GT+63.8:IF GT>=256 THEN G 

T=0:POKE 251,0 <179> 

23501 POKE 251,6T:Z =Z +1 <165> 

23505 FOR DA=0 TO 500:NEXT <197> 

23510 GOSUB 22350 <065> 

23515 IF PEEK(56320)<112 THEN 23520 <142> 

23516 GOTO 23515 <00B> 

23520 LV=LV+1:IF LV=5 THEN LV=0:GOTO 25000 <180> 
23570 GOTO 22000 <206> 

25000 SYS 38077 <110> 

25001 ZZ=1:GOSUB 6010 <03B> 

25010 POKE 646,3:PRINT"{HOME >"SPC(54)"BEST 

ENLISTE" <086> 

25020 PR INT " {RI GHT > ***»Jt********»»***' BT **.« 

♦»»*»»***■*_*■*_»_»*■. < 149> 

25030 PRINT“{RIGHT,5SPACEJSPIEL 1<6SPACE>£ 

SI6SPACEJSPIEL 2 <156> 

25040 PR INT " {RI GHT > *»>>*»*.«»*»*»»♦»*»_++».*.» 

»*»*■»*■***««»*** <102> 

25050 PRINT"{RIGHT}GRAD{2SPACEJNAME{2SPACE 

JPUNKTES2I5SPACE >NAME{3SPACE >PUNKTE <109> 

25060 PR INT " {RI GHT > *A*«A*«**»«*<*.**»«++**». 

<122> 

25070 PRINT TAB (19) “c^'SPC (22) " 1 "SPC (15) “ 

Cd 1." <1U> 

25080 PRINT TAB (19) "^“SPC (22) "2"SPC (15) " 

— 2." <124> 

25090 PRINT TAB (19) "^"SPC (22) "3"SPC C15) " 

^ 3." <139> 

25100 PRINT TAB (19) "^"SPC (22) "4"SPC (15) " 

^ 4." <152> 

25110 PRINT TAB (19) “^"SPC (22) “5"SPC (15) " 

— 5." <165> 

25120 PRINT TAB (19) ".--"SPC (20) " -*-*-*-*-*-*-*.*-*-*. 

< 109 > 

25130 PRINT SPC(90)"{RVS0N1WEITER MIT FEUE 

RKNOPF{RVOFF>" <249> 

25180 IF SP=2 THEN FOR 1=1 TO AS:N2*CI+5)= 

N*(I):K2(1+5)=SC(I):NEXT <128> 
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25181 IF SP=1 THEN FOR 1=1 TO AS:N1*(I)=N$ 

(I) : K1 (I)=SC(I):NEXT <22B> 

25205 QH=HI(SB) <223> 

25210 FOR NN=1 TO AS:IF Kl(NN)>HI(SS)THEN 

HI(SB)=K1(NN):HN$(SS)=N1*(NN) <254> 

25220 NEXT <082> 

25250 PRINT"<H0ME,7D0WN>“;:FOR 1=1 TO 5 <188> 

25260 PRINT"<D0WN,6RIEHT>"HN*(I);HI(I):NEX 

T <061> 

25300 IF QH=HI(SB)THEN 25400 <203> 

25310 OPEN 1,8,1, "HI—1" <009> 

25320 1=1 <121> 

25330 PRINT#1,HN*(I) <111> 

25340 PRINTftl,HI(I) <119> 

25350 1=1+1:IF I<6 THEN 25330 <173> 

25360 CLOSE 1 <225> 

25400 FOR J=1 TO 9 <10B> 

25410 FOR 1=1 TO 9 <110> 

25420 IF K2(I)<K2(1+1)THEN V1=K2(I):K2(I)= 

K2(I+1):K2(I+1)=V1:EOSUB 25450 <072> 

25430 NEXT:NEXT <031> 

25440 SOTO 25460 <091> 

25450 V1*=N2*(I):N2$(I)=N2*(1+1):N2*(1+1)= 

Vl$:RETURN <005> 

25460 PRINT"<H0ME,7D0WN>";:FOR 1=1 TO 5 <144> 

25470 PRINT"{DOWN,25RISHT>"N2®(I);K2(I):NE 

XT <177> 

25500 IF SP<2 THEN 30000 <219> 

26050 OPEN 1,8,1,HI—2" <116> 

26060 1=1 <099> 

26070 PRINTttl,N2$(I) <01B> 

26075 PRINTttl,K2(I> <246> 

26080 1=1+1:IF I<6 THEN 26070 <078> 

26085 CLOSE 1:SP=0:TT=0:CC=0:FOR KO=l TO 1 
0:T(KO)=0:SC(KO)=0:TI(KO)=0:S1(KO)=0 
:NEXT <009> 

30000 : <002> 

30005 FOR 1=1 TO 48:SOSUB 40500:IF PEEK(56 

320X112 THEN POKE CO+18,0: SOTO 6300 <094> 
30010 NEXT:POKE 54276,16:POKE 54283,128:PO 
KE 54290,32:POKE 54296,0:SYS 37233:6 
OTO 6006 <033> 

40000 POKE CO,207:POKE CO+1,34:POKE CO+5,9 

:POKE CO+6,0 <044> 

40010 IF JJ=1 THEN POKE CO,157:POKE C0+l,6 

9:POKE CO+5,12:POKE CO+6,240 <049> 

40020 POKE CQ+24,15:POKE CO+4,33 <033> 

40030 FOR D=1 TO 1000:NEXT <026> 

40040 POKE CO+4,32:RETURN <120> 

40500 SYS 49850:FOR DD=1 TO 267:NEXT:RETUR 
N 


© G4'er 


< 162 > 

Listing 4. »Tonti« (Schluß) 


Billard 

Dieses Programm simuliert die Be¬ 
wegungen von bis zu sieben Billard¬ 
kugeln in Realzeit physikalisch richtig 
und im Rahmen der möglichen Bild¬ 
schirmauflösung sehr genau. 

Der C 64 verfügt mit den Sprites über hervorragende Mög¬ 
lichkeiten, grafische Figuren besonders durch Maschinen¬ 
befehle sehr schnell auf dem Bildschirm zu bewegen. Es 
stellte sich aber heraus, daß die CPU auch nach Ausschöp¬ 
fung aller programmtechnischen Möglichkeiten mit Bewe¬ 
gung und Stoßauswertung so ausgelastet ist, daß eine reali¬ 
stische Effet-Behandlung in Realzeit nicht mehr möglich ist 
(für Interessierte, die auf einem anderen Rechner ähnliches 
realisieren möchten, sei darauf hingewiesen, daß aber noch 
genügend Zeitreserven für eine Programmlösung auch ohne 
Sprites vorhanden sind!). 

Trotz dieser Einschränkung läßt sich aber ein Billardspiel 
gut simulieren. 

Vor dem eigentlichen Programm jedoch noch einige prinzi¬ 


pielle Bemerkungen zum wichtigsten Teilproblem, der Stoß¬ 
berechnung. 

Da sich alle Kugeln zu jeder Zeit, also insbesondere auch, 
wenn ein Stoß auszuwerten ist, gleichmäßig bewegen sollen, 
wird durch diese Rechnung entscheidend die Schnelligkeit 
der Kugelbewegungen bestimmt. Wie so oft liegt hier die 
Schwierigkeit weniger in der programmtechnischen Ausfüh¬ 
rung als in der rechnergerechten Formulierung des Problems. 


Ein kleiner Ausflug in die Physik 


Eine Geschwindigkeit ist bekanntlich ein Vektor, das heißt, 
sie wird bestimmt durch einen Betrag und durch eine Rich¬ 
tung. Ein Vektor läßt sich grafisch gut als Pfeil darstellen, des¬ 
sen Länge hier für die Größe der Geschwindigkeit steht, wäh¬ 
rend die Spitze beziehungsweise der Winkel mit der Horizon¬ 
talen die Richtung angibt (siehe Bild 1). 



Bild 1. Vektordarstellung durch Winkel und Komponenten 


Für grafische Betrachtungen dürfen wir in diesem Zusam¬ 
menhang Vektoren beliebig verschieben, nicht aber drehen. 

Wie in Bild 1 b) gezeigt, kann eine Geschwindigkeit V in ihre 
Komponenten in x-Richtung (VX) und in y-Richtung (VY) zer¬ 
legt werden und ist durch diese auch eindeutig bestimmt. 

Bild 1 c) verdeutlicht, wie sich aus den Komponenten VX 
undVY v. der die Geschwindigkeit V konstruieren läßt. Dazu 
braucht lediglich VY bis zur Spitze von VX verschoben zu wer¬ 
den, und die Verbindung des Fußpunktes von VX mit der 
Spitze des verschobenen VY (VY’) stellt V dar. Ein solches 
Aufspalten und Zusammenfügen von Vektorkomponenten 
bezüglich zweier Richtungen ist immer möglich, wenn die 
Richtungen aufeinander senkrecht stehen. Bei der Stoßbe¬ 
trachtung werden uns später zwei andere Richtungen inter¬ 
essieren, wo die Zerlegung dann nach dem gleichen, hier in 
Bild 1 beschriebenen Prinzip, durchgeführt wird. 

Die Aufspaltung in x- und y-Komponenten paßt sehr gut zur 
Art der Spritebewegung, so daß es naheliegt, alle vorkom¬ 
menden Geschwindigkeiten so zu zerlegen und VX und VY 
getrennt zu behandeln. Damit wird bei der Bewegung das 
Rechnen mit Winkeln vermieden. 

Zur Stoßberechnung selbst bieten sich zunächst die 
Energie- und Impuls-Erhaltungssätze an (Mancher wird sich 
jetzt wohl an den Physikunterricht erinnern). Diese allein lie¬ 
fern aber noch keine eindeutige Lösung, es ist noch eine 
zusätzliche Annahme erforderlich. 

In Bild 2 sind zwei sich berührende Kugeln dargestellt, die 
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gleiche Größe und gleiches Gewicht haben sollen. Außerdem 
sind zwei ausgezeichnete Richtungen angedeutet, die senk¬ 
recht aufeinander stehen: die sogenannte Tangential- und die 
Normalrichtung. Denken wir uns nun die Kugelgeschwindig¬ 
keiten ähnlich wie oben in einen Anteil von Tangential- (VT) 
und einen Anteil in Normal- (VN) Richtung zerlegt, dann gilt 
folgende Regel: 

Bei einem Stoß bleibt für jede Kugel deren Geschwindig¬ 
keitsanteil in Tangentialrichtung nach Betrag und Richtung 
erhalten, während jede Kugel die Normalkomponente der 
anderen Kugel übernimmt. 

Mit dieser Annahme lassen sich nun die Kugelgeschwin¬ 
digkeiten nach einem Stoß durch Zerlegen der vorherigen 
Geschwindigkeiten in VT und VN und entsprechendes 
Zusammenfügen dieser Komponenten zeichnerisch ein¬ 
wandfrei bestimmen. 

Für das Programm sind aber mathematische Gleichungen 
erforderlich. Dazu müssen die Tangential- und Normal- 
Geschwindigkeiten jede für sich noch einmal in einen x-Anteil 
(VXT, VXN) und einen y-Anteil (VYT, VYN) zerlegt werden: 


VXT = (VX * SIN(W) - VY * COS(W)) * SIN(W) 
VXN = (VY * SIN(W) + VX * COS(W)) * COS(W) 
VYT =-(VX * SIN(W) - VY * COS(W)) * COS(W) 
VYN = (VY * SIN(W) + VX + COS(W)) * SIN(W) 


Der Winkel W ist der Winkel zwischen Normalenrichtung 
und der Horizontalen (siehe Bild 2); er läßt sich aus den Koor¬ 
dinatendifferenzen der Kugelpositionen bestimmen. 

Dann ergeben sich die resultierenden Kugelgeschwindig¬ 
keiten nach dem Stoß beziehungsweise deren x- und y-Kom- 
ponenten: 


_ 


VXl = vxn2 + vxtl 
VY1 = vyn2 + vytl 
VX2 = vxnl + vxt2 
VY2 = vynl + vyt2 


für Kugel 1 


für Kugel 2 


Für die sich stoßenden Kugeln 1 und 2 sind die Geschwin¬ 
digkeiten vor dem Stoß klein, nach dem Stoß groß geschrie¬ 
ben. 

Mit einiger Knobelei habe ich die Gleichungen auf diese 
Form gebracht, die den Vorteil hat, daß alle vorkommenden 
Summanden, Klammerausdrücke und Zwischenergebnisse 
nicht größer werden können als die Ausgangsgröße V. 

Werden für V dann nur Werte zwischen 0 und 127 zugelas¬ 
sen, so können die Rechnungen mit positiven und negativen 
Ein-Byte-Zahlen durchgeführt werden, was, wie Sie aus dem 
laufenden Assemblerkurs wissen, besonders einfach und 
schnell geht. 

Geschwindigkeit durch Tabellen 

Bei diesen schönen Ein-Byte-Rechnungen stören aber 
noch die vielen » * SIN« und »* COS«, die viel zuviel Rechen¬ 
zeit beanspruchen. Es bleibt nur die Möglichkeit, mit Tabellen 
zu arbeiten, wobei aber nicht alle benötigten Werte gespei¬ 
chert werden müssen. Zunächst ergeben sich in jedem Vier¬ 
telkreis immer die gleichen SIN- und COS-Werte, nur mit 
unterschiedlichem Vorzeichen. Außerdem ist der COS sym¬ 
metrisch zum SIN: 

COS(W) = SIN(W+90 Grad). Ich unterteile also den Vier¬ 
telkreis in 23 Winkelteile und lege die zugehörigen SIN-Werte 
im Fließkommaformat in einer Tabelle ab. 


Nun stört nur noch die Multiplikation. Da wie oben beschrie¬ 
ben nur Faktoren von 0 bis 127 Vorkommen, ist auch hier eine 
Tabelle noch vertretbar. So werden nach Start des Program¬ 
mes zu jedem SIN-Wert 128 Ein-Byte-Zahlen in eine Multipli¬ 
kationstabelle geschrieben: (Byte 0 bis 127) *SIN. 

Das sind jetzt zwar schon eine ganze Menge Bytes, dafür 
Wird das Programm aber auch kürzer und sehr schnell. 

Durch geeignetes Setzen von Zeigern können alle Werte 
»8yte*SiN« und »Byte*COS« nun ohne weitere Rechnung 
direkt abgerufen werden. Es bleibt nur noch die schnelle Ein- 
Byte-Addition und -Subtraktion. Die gewählte Winkel- und 
Geschwindigkeitsauflösung ist im Rahmen der Bildschirm¬ 
auflösung voll ausreichend. 

Da hier Winkel durch das Verhältnis der Geschwindigkeiten 
VX und VY dargestellt werden, ist klar, daß die Genauigkeit bei 
sehr kleinen Geschwindigkeiten geringer wird. Bei einer 
Gesamtgeschwindigkeit von beispielsweise 2 kann der Win¬ 
kel eben nicht mehr so genau dargestellt werden wie mit 
höheren Werten, die viel mehr Kombinationen VY/VX zulas¬ 
sen. 

Aus diesem Grund dürfen die Kugeln auch nicht rollen bis 
ihre Geschwindigkeit Null geworden ist, sondern die Bewe¬ 
gung wird schon etwas früher abgebrochen. 

Am Schluß dieser Betrachtungen noch zwei Beispiele, an 
denen Sie bei Billardprogrammen einmal die Richtigkeit der 
Stoßberechnung überprüfen können: 

Die Verhältnisse sind besonders einfach, wenn eine 
bewegte Kugel eine ruhende stößt. Erfolgt der Stoß zentral, 
so muß die stoßende Kugel anschließend Stillstehen, wäh¬ 
rend die andere Kugel die Geschwindigkeit voll aufgenom¬ 
men hat. Bei nichtzentralen Stößen müssen die Richtungen, 
in die sich die zwei Kugeln nach dem Stoß bewegen, einen 
rechten Winkel einschließen. 

Tips zum Eintippen 


Es besteht aus zwei Teilen, dem eigentlichen Billard¬ 
programm, das in Maschinencode geschrieben ist und am 
Basic-Anfang bei Adresse 2048 beginnt, und einem Basic- 
Teil im Speicher ab 4973, in dem die Spielregeln definiert 
werden. 

Die ersten Bytes des Maschinenprogrammes entsprechen 
einer Basic-Zeile: »1 SYS 2061«. Beim Start des Programmes 
findet der Basic-Interpreter diesen SYS-Befehl und startet 
das Maschinen-Programm bei 2061. Dort wird der Basic- 
Anfang auf 4973 hochgesetzt, die oben beschriebene Multi¬ 
plikationstabelle erstellt und zum Basic-Teil gesprungen, von 
dem aus dann die weiteren Maschinen-Routinen aufgerufen 
werden. 

Auf diese Weise ist das Maschinen-Programm so ein¬ 
gebunden, daß Sie das gesamte Programm später wie ein 
gewöhnliches Basic-Programm ohne Zeigerumstellungen 
handhaben können. 

Da der MSE die gleiche Methode benutzt, also auch ab 
2048 im Speicher liegt, wird die Eingabe des Programmes 
etwas umständlich. 

Verfahren Sie daher am besten folgendermaßen: 

1. Mit dem MSE (siehe Seite 8) den Maschinenteil ab 
$C000 eingeben und unter »BILL(MP)« abspeichern. 

2. Mit dem Checksummer (Seite 6) das Basic-Programm 
eingeben und unter »BILL(BASIC)« abspeichern. 

3. Beide Programmteile binden: 

a) »BILL(MP)« absolut laden (»LOAD"BILL(MP)",8,1« 
oder »...,1,1«) 

b) Basic-Anfang auf 4973 setzen mit Eingabe im Direkt¬ 
modus »POKE 43,109: POKE 44,19: POKE 4972,0: 
NEW« 
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c) Maschinen-Programm im Direktmodus übertragen 
»FOR 1=49152 TO 52076: POKE 1-47104, PEEK(I): 
NEXT« 

d) Basic-Programm laden mit »LOAD "BILL(BASIC)",8« 
(beziehungsweise »...,1« für Datasette) 

e) Basic-Anfang zurückstellen und Gesamtprogramm 
speichern mit »POKE 43,1: POKE 44,8: SAVE 
"BILLARD",8« (beziehungsweise »...,1«) 

Im Programm »BILLARD« sind nun beide Teile enthalten. Es 
läßt sich wie ein übliches Basic-Programm nach Einschalten 
des C 64 laden und starten. 

Die Bedienung des Programms erfolgt bei der Spielwahl 
über die Tastatur; Schlagwinkel und Schlagstärke werden 
über Joystick an Port 2 eingegeben. Die Spielregeln sollen 
hier nicht näher erklärt werden; Sie werden sie während des 
Spiels schnell herausfinden. 

Änderungen erwünscht! 


Betrachten Sie den Basic-Teil von »BILLARD« lediglich als 
Vorschlag und Anregung zu einem eigenen Programm. 

Das Maschinenprogramm ist so modular und variabel auf¬ 
gebaut, daß Sie leicht ein Billardspiel nach eigenem Ge¬ 
schmack und mit eigenen Regeln realisieren können (zum 
Beispiel ein Lochbillard mit fünf Kugeln unter Berücksichti¬ 
gung von Stößen). 

Zur Erkennung eines Stoßes oder einer Bandenberührung 
werden die entsprechenden Sprite-Register nicht benutzt, 
wodurch Sie auch in der grafischen Gestaltung völlig frei sind. 

Die drei Tongeneratoren werden vom Programm vor jedem 
Stoß auf die benötigten Werte eingestellt. Sie müssen nur von 
Basic aus das Register 54296 für die Lautstärke einstellen 
(=15). 

Generator 1: Bandenberührung 
Generator 2: Stoßgeräusch 
Generator 3: Ton, wenn eine Kugel in ein Loch fällt 
Alle drei Generatoren werden mit der Dreieck-Wellenform 
»16/17« geschaltet. 

1. Veränderbare Programmparameter 

Der Bewegungsablauf kann durch drei Parameter be¬ 
einflußt werden. 

a) Byte 3687: Dämpfung (hier = 10) 

Ein größerer Wert bedeutet hier schwächere Dämp¬ 
fung; die Kugeln rollen dann bei gleicher Schlagstärke 
weiter. Ein kleinerer Wert bewirkt stärkere Dämpfung. 

b) Byte 4200: Ende der Kugelbewegung (hier = 2) 

Wie schon oben bei der Stoßauswertung beschrieben, 
ist es sinnvoll, die Kugelbewegung abzubrechen, bevor 
die Geschwindigkeit auf 0 abgesunken ist. Ein zu klei¬ 
ner Wert an dieser Stelle hat vor allem bei schwacher 
Dämpfung ein Abknicken der Bewegungsrichtung kurz 
vor Stillstand zur Folge. 

c) Byte 4248: Verzögerung des Bewegungsablaufes (hier 
= 10 ) 

Eine automatische Geschwindigkeitsanpassung ab¬ 
hängig von der Anzahl der rollenden Kugeln ist an ande¬ 
rer Stelle eingebaut; sie sorgt für gleichmäßige Bewe¬ 
gung, gleichgültig, ob sich gerade nur eine oder sieben 
Kugeln bewegen. 

An dieser Stelle bewirkt ein größerer Wert zusätzliche 
Verzögerung. Sie können sich beispielsweise mit 
»255« einen Stoß in Zeitlupe ansehen. Während mit der 
Dämpfung die zurückzulegende Strecke bestimmt 
wird, läßt sich hier die Geschwindigkeit der Bewegung 
festlegen. 

Experimentieren Sie ruhig etwas mit diesen Para¬ 
metern. Nach einem entsprechenden POKE sehen Sie 
die Wirkung gleich beim nächsten Stoß. 



Wenn Sie nach Änderungen hier das Programm wieder 
neu abspeichern, werden die neuen Werte mitge¬ 
speichert. Sie können selbstverständlich aber auch 
während des Programmlaufes die Parameter mehrfach 
ändern. 

2. Parameter für Feld- und Lochgrößen 

S'e sind in Bild 3 mit den hier verwendeten Bezeich¬ 
nungen dargestellt. 

a) Byte 3204: Linker Feldrand (hier = 20) 

b) Byte 3205: Rechter Feldrand (hier = 56) 

c) Byte 3206: Oberer Feldrand (hier = 73) 

d) Byte 3207: Unterer Feldrand (hier = 73) 

e) Byte 3208: (hier = 3) Dieser Wert legt fest, um wieviel 
Grafikpunkte sich der Cursor (zur Einstellung der Stoß¬ 
richtung) über den Feldrand hinaus bewegen lassen 
soll. 

DieserCursor — hier ein Zielkreuz (Sprite 0) — ist übri¬ 
gens in Sprite-Block 39 definiert und kann durch Ein¬ 
gabe entsprechender Daten in 2496 bis 2559 ge¬ 
ändert werden. 

f) Byte 3209: Größe der Ecklöcher (hier = 6) 

g) Byte 3210: Größe der mittleren Löcher (hier = 10) 

Es gilt hier die Einschränkung, daß der rechte Feldrand 
sowie die rechten Ecklöcher im Bildschirmbereich des 
V+16-Registers (53264) liegen müssen, während die 
anderen Werte nicht in diesem Bereich liegen dürfen 
(für den rechten Feldrand ist unter b natürlich das Low- 
Byte einzugeben). 

Als kleine Hilfe: Die Kugeln bleiben voll sichtbar im 
Bereich X zwischen 12 und 64, Y zwischen 41 und 
229. 

Auch diese Parameter stehen im Programm und werden 
bei erneutem Abspeichern mit übernommen. Aller¬ 
dings sehen Sie Änderungen hier nicht gleich beim Pro¬ 
grammlauf, da diese Werte erst beim Programmstart 
abgerufen werden. Ein Unterprogramm errechnet dar¬ 
aus die im Programm benötigten Daten und schreibt sie 
an die richtige Stelle. Wollen Sie diese Parameter wäh¬ 
rend des Programmes ändern, rufen Sie nach den ent¬ 
sprechenden POKEs das Maschinen-Programm »SE« 
(siehe später) auf. 

Wenn Sie das geänderte Programm abspeichern, vergessen 

Sie nicht, vorher den Basic-Anfang zurückzustellen mit: 
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»POKE 43,1: POKE 44,8«! Andernfalls wird möglicherweise 
nur das Basic-Programm gespeichert. 

Wie das Zielkreuz (Sprite 0, Block 39) stehen auch die Sprite- 
Daten der Kugeln im Maschinenprogramm in den Sprite- 
Blöcken 40 bis 47, zwischen denen zur Simulation einer Roll¬ 
bewegung hin und her geschaltet wird. 

Jeder Kugel ist entsprechend ihrer Sprite-Nummer eine Zahl 
zwischen 1 und 7 zugeordnet. Ebenso sind die Löcher, wie in 
Bild 3 gezeigt, durchnummeriert von 2 bis 7. 

Nach jedem Stoß stehen Ihnen folgende Informationen zur 
Auswertung zur Verfügung: 

a) Stoßregister $FD (= Basicvariable SR = 253): 

Hier sind die Kugeln angegeben, die mindestens einmal 
mit der Stoßkugel kollidiert sind, und zwar im Format »2 
hoch Kugelnummer 1 bis 7«. Dieses Format entspricht 
dem, das Ihnen beispielsweise vom Sprite-Sprite Berüh¬ 
rungsregister her bekannt ist. 

b) Lochregister $FE (= Basicvariable LR = 254): 

Hier finden Sie im gleichen Format wie beim Stoßregister 
die Kugeln, die in ein Loch gefallen sind. 

c) Zur weiteren Auswertung istfürjede Kugel ein zusätzliches 
Lochregister vorhanden: 52123 + Kugelnummer 1 bis 7. 
Dieses enthält »2 hoch Lochnummer« des Loches, in das 
die entsprechende Kugel gefallen ist. Liegt sie noch auf 
dem Feld, steht hier 0. 

Alle Register a) bis c) werden vor jedem Stoß automatisch 
auf 0 zurückgesetzt. 

Zum besseren Verständnis folgen einige Beispiele: 

Zua): IF PEEK(SR) = 12 THEN »Stoßkugel kollidierte mit 
den Kugeln 2 und 3« (2 2 + 2 3 = 12) 

Zu b): IF PEEK(LR) AND 8 THEN »Kugel 3 gefallen« 

IF PEEK(LR) AND 84 THEN »Kugel mit gerader Num¬ 
mer, also Kugel 2, 4 oder 6 gefallen« 

Zuc): IFPEEK(52123+K) = 64 THEN »Kugel K in Loch 6« 
IF PEEK(52123+K) AND 28 THEN »Kugel K in einem 
der oberen Löcher, also Loch 2, 3 oder 4« 


Die Maschinensprache-Routinen 

Es folgt nun eine Kurzbeschreibung der Maschinen¬ 
routinen: Hinter SYS steht die im Basic-Programm benutzte 
Variable, die zugehörigen Adressen sind später aufgeführt. 

SYS SE: Setzt die Feld- und Lochparameter direkt in das 
Programm. Die Routine braucht nur aufgerufen zu werden, 
wenn diese Parameter während des Programmlaufes ver¬ 
ändert worden sind. 

SYS IN, Anzahl der Kugeln 1 bis 7 + 0 oder + 128: Diese 
Routine muß einmal vor Beginn eines neuen Spieles aufge¬ 
rufen werden. Sie definiert für ein Spiel die Anzahl der Kugeln, 
wobei dann beispielsweise mit einer Kugelzahl von 3 die 
Kugeln 1, 2 und 3 im Programm berücksichtigt werden. 
Zusätzlich wird durch Bit 7 festgelegt, ob Lochbillard (Bit 7 = 
1, also + 128) oder Bandenbillard (Bit 7 = 0) gespielt werden 
soll. 

SYS AL, Kugelnummer, X-Koordinate (2 Byte 0 bis 511), 
Y-Koordinate: Hierdurch wird eine Kugel auf das Feld gelegt, 
wobei die Register V+21 und V+16 automatisch ent¬ 
sprechend eingestellt werden. Wird eine Kugel so gesetzt, 
daß sie eine andere berühren würde, wird sie so weit wie nötig 
zur Feldmitte hin verschoben. Für regelgerechte Bewe¬ 
gungen muß die Kugel selbstverständlich in das Spielfeld 
gesetzt werden. 

SYS VL, Kugelnummer: Legt eine Kugel vor dem Loch wie¬ 
der auf, wenn sie gefallen ist, andernfalls hat der Aufruf keine 
Wirkung. Im Fall einer Berührung mit anderen Kugeln wird wie 
bei »AL« verschoben. Sie können diese Routine beispiels¬ 
weise benutzen, wenn eine Kugel in ein verbotenes Loch 
gefallen ist. 

SYS KS, Nummer der Stoßkugel: Dieser Aufruf muß vor 


jedem Stoß erfolgen. Es wird hier die Stoßkugel festgelegt 
und außerdem das Kreuz auf diese Stoßkugel gesetzt. 

SYS JS: Nach diesem Aufruf kann mit Hilfe des Joysticks an 
Port 2 das Zielkreuz bewegt werden. Nach »FIRE« erfolgt 
Rücksprung in Basic, wo nun die Geschwindigkeits-Eingabe 
folgen sollte. 

SYS GS, Anfangsgeschwindigkeit 0 bis 127: Für die 

Anfangsgeschwindigkeit der Stoßkugel sind hier Werte zwi¬ 
schen 0 und 127 erlaubt. Nach Auswertung der Geschwin¬ 
digkeits-Eingabe beginnt die Bewegung der Kugeln. Rück¬ 
sprung in Basic erfolgt erst, wenn alle Kugeln wieder in Ruhe 
sind, vorher ist ein Aussprung nur mit »STOP / RESTORE« 
möglich. 

SYS NI, Anfangsgeschwindigkeit: Wählen Sie statt »GS« 
diesen Einsprungspunkt, so werden vor der Bewegung alle 
Sprite-Positionen und die Nummer der Stoßkugel in einem 
Speicherbereich 1 abgelegt. Da damit alle wichtigen Para¬ 
meter vor einem Stoß erhalten bleiben, wird eine Stoßwieder¬ 
holung ermöglicht. 

SYS SW: Wählen Sie diesen Einsprungspunkt an Stelle von 
»JS«, und haben Sie den vorherigen Stoß mit »NI« durch¬ 
geführt, werden alle Sprites auf die dort gespeicherten Werte 
zurückgesetzt, die ja den Zustand vor dem letzten Stoß wie¬ 
dergeben. 

Außerdem werden die jetzigen Positionen in einem anderen 
Speicherbereich 2 abgelegt. Das Programm fährt fort bei »JS« 
mit der Joystickabfrage. 

Wählen Sie dann für die Geschwindigkeitseingabe bei der 
Scnlagwiederholung den Einsprungspunkt »GS«, haben Sie 
nach diesem wiederholten Stoß die Wahl zwischen drei Mög¬ 
lichkeiten: 

Einmal können Sie den vorherigen Stoß mit »SW« und »GS« 
noch einmal wiederholen. Sie können aber auch mit »JS« und 
»NI« vc jetzigen Zustand aus weiterspielen. Für die dritte 
Möglichkeit, die ich in meinem Programm gewählt habe, fehlt 
noch eine Routine: 

SYS V2: Hierdurch werden die Kugeln auf die in Speicher¬ 
bereich 2 abgelegten Werte gesetzt, die ja den Zustand nach 
dem ursprünglichen Stoß wiedergeben. Fährt man danach 
mit »JS« und »NI« fort, ist die Schlagwiederholung sozusagen 
»außer Konkurrenz« durchgeführt worden, da ja vom Zustand 
nach dem ursprünglichen Stoß aus weitergespielt wird. 

SYS ZS, 2 hoch Kugelnummer (= 2 bis 254); Geschwin¬ 
digkeit, Winkel: Diese letzte Routine benutze ich, um einen 
zufälligen Anfangszustand vor Beginn eines Spieles zu erzeu¬ 
gen. Es lassen sich eine bis sieben Kugeln gleichzeitig mit der 
gleichen Anfangsgeschwindigkeit zwischen 0 und 127 
anstoßen. Die Bewegungsrichtung wird durch einen Winkel in 
Altgrad (ein rechter Winkel entsprechend 90 Grad) einge¬ 
stellt. Auf diese Weise läßt sich auch ein berechneter Stoß mit 
der Stoßkugel durchführen. 

Der Umgang mit diesen Routinen erscheint nach dem 
ersten Durchlesen vielleicht etwas kompliziert. Sie werden 
aber sicher nach Lektüre des Demonstrationsprogrammes 
(Listing 1) und schlimmstenfalls nach einigem Probieren fest¬ 
stellen, wie einfach sich das beschriebene Maschinenpro¬ 
gramm anwenden läßt. (Bernhard Tertelmann/ev) 


Die wichtigsten Programmdaten: 

Adresse des Maschinen-Programms: 2048 bis 4972 
Multiplikationstabelle und verschiedene Arbeitsspeicher: 49152 bis 
52245 

Adressen der Routinen: SE = 2158, IN = 3211, AL = 2372, 

VL = 2327, KS = 2444, SW = 3255, JS = 3294, NI = 3566, 

GS = 3588, V2 = 3232, ZS = 4828 
Benutzte Zeropage-Adresse: SFB bis SFE und $57 bis $64 
Außerdem werden einige Betriebssystem-Routinen autgerufen wie 
beispielsweise »FAC = KONST * FAC« 

Adresse des Basic-Programms: ab 4973 
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Sportspiele 


C 64 


1 

REM 

***************** 

< 138> 

234 

REM * SPIEL 4 * 

<008> 

2 

REM 

* BILLARD ('85) * 

< 210 > 

235 

GOSUB 415:POKE V+42,5:P0KE V+44,5:P0KE 


3 

REM 

*-* 

<103> 


V+46,5:GOSUB 445 

<214> 

4 

REM 

* B.TERTELMANN * 

< 132> 

240 

PRINT"CRVSON,RED,4SPACE>"SPC(11)"YYYYY 


5 

REM 

* OSTENDORF 36 * 

<186> 


YYYYY"SPC(ll)"C4SPACE,UP}";:E(0)=0:E(1 


6 

REM 

* 4435 HORSTMAR * 

<030> 


)=0:GOSUB 470 

<036> 

7 

REM 

***************** 

<144> 

245 

GOSUB 485 

<245> 

8 

REM 


<070> 

250 

GOSUB 560:GOSUB 620:R=PEEK(LR):IF R<3 


10 PRINT 

CCLR >":V=53248:POKE V+32,2:POKE 

V 


THEN 245 

< 112 > 


+33,9 

T=54272:JJ=56320 

< 143> 

255 

IF E(I> =0 THEN GOSUB 495 

<052> 


15 SR=253:LR=254:L=52123:EB=21 <119> 

20 SE=2158:IN=3211:AL=2372:VL=2327:KS=2444 <179 > 
25 SW=3255 : V2=3232:JS=3294:N1=3566:GS=35BB 

:ZS=4B28 <191> 

30 G(0)=229:G <1)=225:ß(2)=106:G <3)=32 <236> 

35 POKE V+39,0:POKE V+40,15:POKE V+43,10:P 

OKE V+45,10:POKE T+24,15 <105> 

40 X1*=“RCLIG.RED>0123456789CREDJH":X2*="C 

RVSON,RED >WCLIG.RED,10SPACE,RED >H" <162 > 

45 Y*="CRVSONJFCRVOFFJTCRVSONJVCISSPACEJFC 
RVOFF >TTCRVSON >VC15SPACE JFCRVOFF JTCRVSO 
N>" <055> 

50 Z%= "C3BSPACE>" <179> 

55 POKE V+21,0:PRINT"CCLR,RED,RVSON,2SPACE 
>"Z*"C2SPACE >"Z*"C2SPACE > " Z* "CBLACK,2SP 
ACE>"Z$; <195> 

60 FOR 1=0 TO 19:PRINT" "SPC(38)" "5:NEXT <065> 

65 PRINT“ "Z*"CHOME,4D0WNJ":POKE 56295,0:P 
OKE 2023,160 

"Ts'. 'sTC4SPACE>'5 M ; 

" q’CTs^rs'r'hw" ; 


70 PRINT SPC(14) 

75 PRINT SPC <30) 

80 PRINT SPC(30) 

85 PRINT SPC(30) 

90 PRINT TAB(3)"CDOWNJTASTE'1' : BANDENBIL 
L. (1 SPIELER)" 

95 PRINT TAB (3) " CDOWNJTASTE '2 ' : BANDENBIL 
L. (2 SPIELER)" 


< 1 B8> 
<245> 

< 163> 
<016> 
<044> 


100 PRINT TAB(3)"CDOWNJTASTE'3' : LOCHBILL 
. CLIG. REDJääCBLACK,SPACEXI SPIELER)" 
105 PRINT TAB(3)"CDOMN>TASTE'4' : LOCHBILL 
.CLIG.REDJfiCGREENJfiCBLACK,SPACE>(2 SPI 
ELER)" 

110 PRINT TAB(3)"CDOWNJTASTE'5' : LOCHBILL 
. CLIG.RED JKCGREENJHCBLACK,SPACEXI SPI 
ELER)" 

115 PRINT TAB(3)"CDOWNJTASTE # 6 ' : LOCHBILL 
.CLIG.REDJHCGREENJMCBLACK,SPACEJ(2 SPI 
ELER)" 

120 PRINT"C2D0WN,2RIGHT,RVSON JSCHLAGWIEDER 
H. 'W'C3SPACE>SPIELWAHL 'HOME'CHOME >"; 
125 GET AS:IF AS<"l"OR AS>“ 6 "THEN 125 
130 PRINT"C5D0WN>":FOR 1=0 TO 15:PRINT"CRI 
GHTVZS" CRIGHT}";: NEXT 
135 ON VAL(AS)GOTO 365,310,285,235,200 

139 REM * SPIEL 6 * 

140 GOSUB 425:GOSUB 445 

145 PRINT"CRVSON,RED,4SPACE>"SPC(11)“YYYYY 
YYYYY"SPC <11>"C4SPACE,UP >";:E(0 >=255:E 
(1>=255:GOSUB 470 
150 GOSUB 485 

155 GOSUB 560:GOSUB 620:R=PEEK(LR):IF R<3 
THEN 150 

160 F=1:FOR J=2 TO 6 :IF PEEK(L+J> AND 168 T 
HEN SYS VL,J:F=0 

165 J=J+1:IF PEEK(L+J)AND 84 THEN SYS VL,J 
: F=0 

170 NEXT:E=PEEK(V+21>:IF E(I>=255 THEN IF 
E<252 THEN J=-((E AND 84)=84):GOSUB 50 
0 

175 IF(E AND E(I>>=0 THEN 195 
180 IF(E AND E(1—I))=0 THEN 1=1-1:GOTO 195 
185 IF NOT E AND 2 OR F=0 OR(R AND E(l-I>> 
THEN 150 
190 GOTO 155 

195 GOSUB 525:ON F GOTO 145,55 

199 REM * SPIEL 5 * 

200 GOSUB 425:Z=0:B=999:PRINT"CLIG.REDJSPI 
EL CRED >"SPC(9)X1SSPC(28)X2S 

205 GOSUB 460 

210 GOSUB 560:S=S+1:PRINT SPC(5)"CRED.RVSO 
' N,3SPACE,RVOFF,BLACK,3LEFT>"S"CUP >":GO 
SUB 620:IF PEEK(LR)<3 THEN 210 
215 FOR J=2 TO 6 :IF PEEK(L+J)AND 16B THEN 
SYS VL,J 

220 J=J+1:IF PEEK(L+J>AND 84 THEN SYS VL,J 
225 NEXT:IF PEEK(V+21)>3 THEN 210 
230 GOSUB 510:ON F GOTO 205,55 


<029> 

< 130> 

< 113> 

< 104> 

< 156> 

<226> 

< 121 > 

<242> 

<217> 

< 150> 

< 173> 
<240> 

<143> 

< 150> 

<235> 

< 167> 
<076> 


<019> 
< 180> 
<213> 

<241 > 
< 102 > 
<062> 
<231 > 

<035> 

<013> 


<092> 

<050> 
< 114> 
<048> 
<149> 


260 

265 

270 


275 

280 

284 

285 


320 

325 

330 


E=PEEK(V+21):IF(E AND E(I>>=0 THEN 280 <229> 
IF(E AND E(1 — I> > =0 THEN 1=1-1:GOTO 280 <162> 
IF NOT E AND 2 OR(R AND E(1-I))THEN 24 
5 

GOTO 250 

GOSUB 525:ON F GOTO 240,55 
REM * SPIEL 3 * 

GOSUB 415:POKE V+42,10:POKE V+44,10:PO 
KE V+46,10 

290 Z=0:B=999:PRINT"CLIG.RED >SPIEL CRED >"SP 
C(9)X1*SPC(28)X2* 

295 GOSUB 460 

300 GOSUB 560:S=S+1:PRINT SPC(5)"CRED.RVSO 
N,3SPACE,RVOFF,BLACK,3LEFT>"S"CUP >":GO 
SUB 620 

302 IF PEEK(LR)=0 OR PEEK(V+21)>3 THEN 300 
305 GOSUB 510:ON F GOTO 295,55 

309 REM * SPIEL 2 * 

310 POKE V+41,12:POKE V+42,10:PRINT"CRIGHT 
,2D0WN,RVSON >"Z*"CHOME >";:GOSUB 450 

315 PRINT"CLIG.RED,RVSONJSP.C3SPACE,RED,9S 
PACE >YYYYYYYYYY C9SPACE,LIG.RED>SP.C3SP 
ACE,UP >";:L*="CRVSON J"+Z$ 

PRINT TAB(11)"CRED,RVSON,2SPACE>“TAB(2 

7) "C2SPACE,UP >" 

SYS IN,3:G=0:S(0)=0:S(1> =0:POKE V+21,0 
:POKE V+16,0 

SYS AL,1,23,219:SYS AL,2,36,215:SYS AL 
,3,26,206 

335 SYS ZS,14,80+RND(TI)*15,23+RND(1)*9 
340 GOSUB 485 

345 SK=I+1:GOSUB 565:GOSUB 620:IF PEEK(SR) 

<9 THEN 340 

350 S(I)=S(I> +1:PRINT"CRVOFF,BLACK >“TAB(11 
)MID:f(STR$(S(0>),2)TAB(27)MIDJ(STR*(S( 

1)),2)“CUP>" 

POKE T+18,16:POKE T+18,17:IF SdXEB T 
HEN 345 

Z(I)=Z(I> +1:PRINT“CLIG.RED,RVSON>"TAB( 

3)Z(0)TAB(37)Z(1):GOSUB 530:ON F GOTO 
320,55 

364 REM * SPIEL 1 * 

365 POKE V+41,12:POKE V+42,10:PRINT"CRIGHT 
,2D0WN,RVSON}"Z*"CHOME }"5 
Z=0:B=999:PRINT"CLIG.RED >SPIEL CRED}"SP 
C(9)X1*SPC(28)X2$:L*="CRVSON>"+Z* 

PRINT"CBLACK>PKT.CRED,RVSON,3SPACE>"SP 
C ( 8 ) “ YYYYYYYYYYC 6 SPACE, BLACK,RVOFF>BES 
T.CHOME>"; 

P=0:S=0:Z=Z+1:PRINT"CRVSON,LIG.RED>"SP 
C(5)Z"CDOWN}" 

SYS IN,3:SK=1:G=0:POKE V+21,0:PQKE V+l 
6,0 

SYS AL,1,171,190:SYS AL,2,260,147:SYS 
AL,3,88,147 

GOSUB 565:S=S+1:PRINT TAB(27)"CBLACK}" 

MID*(STR*(S),2)"CHOME,DOWNGOSUB 620 
400 IF PEEK(SR)<12 THEN 395 
405 P=P+1:POKE T+18,16:PRINT SPC(4)P;:POKE 
T+18,17:IF P<EB THEN 395 
410 GOSUB 510:ON F GOTO 375,55 

414 REM FELD FUER SP. 3 UND 4 

415 PRINT"<RVS0N>5"SPC(38)"FCRVOFFJTTSPC(3 

8 ) “CRVSON J T' Y*“CHOME >";:POKE 2023,254 
420 PRINT" C3D0WN>STF"SPC (15) "STTT'SPC (15)" 

5TFCRV0FF>T"SPC(38);:G0T0 440 

424 REM FELD FUER SP. 5 UND 6 

425 POKE V+42,5:POKE V+44,5:P0KE V+46,5 
430 PR INT "CRVSON >5" SPC (38) "FCRVOFF JTTCGREEN 

>H"SPC(17)"CLIG.RED>U1"5PC(17)"CGREENJ 
HCBLACK, RVSON >Tf" Y* " CHOME > ";: POKE 2023, 

254 <175> 


Listing 1. Das Basic-Listing zu »Billard«. Bitte nur mit dem 
Checksummer 64 V3 in diesem Heft eingeben. 


355 

360 


370 

375 

380 

385 

390 

395 


<045> 

<037> 

<073> 

<058> 

< 210 > 

<223> 
< 105> 


< 120 > 

< 134> 
<042> 
<081 > 

< 135> 


<255> 

< 119> 

< 176> 

<246> 

<008> 

<0B6> 

<004> 

<045> 

<229> 

<014> 

< 134> 

<026> 

<025> 

<255> 

< 115> 

< 186 > 

< 109> 

< 020 > 

< 171 > 

< 145> 

< 135> 
<201 > 

< 158> 

<001 > 
<092> 
<090> 


26 










C 64 


Sportspiele 


435 PRINT"<3D0WN}^TF"SPC(15) ‘"5TTF"SPC (15) " 
BTPIRVDFF>T<LIG.RED>H"SPC(17)"{GREEN>£ 
i" SPC(17 >"<LIG.RED1HIBLACK>"; 

440 POKE V+41,10: PR I NT " {RVSON ITTE"' SPC (38) " V 
{HOME >";:L*=Y*:RETURN 

444 REM VORBEREITUNG FUER SP. 2,4 UND 6 

445 K*(0)="ROT":K*(1) = "GRN":K(0)=84:K(1)=1 
6 B 

450 P(0)=1033s P( 1 > =1054:Z(0)=0s Z( 1 )= 0:1 = 1 

455 PRINT"{RVSON,GREY 3JSPIELER 1{SPACE,RE 
D,4SPACE >"X1*"{4SPACE,GREY 3,SPACE >SPI 
ELER 2"SPC(14)X2*:RETURN 

459 REM VORBEREITUNG FUER SP. 3 UND 5 

460 PRINT"{BLACK>STOSS{RVSON,RED,3SPACE>"S 
PC(7)"YYYYYYYYYY"SPC(5)"{BLACK,RVOFF> B 
EST.:{HDME}"; 

465 S=0:Z=Z+1sPRINT"{LIG.RED,RVSON>"SPC(5) 
Z"{DOWN>" 

469 REM KUGEL-GRUNDPOS. FUER LOCHBILL. 

470 SYS IN,135:SK=1:G=0:POKE V+21,0:POKE V 
+16,0 

475 SYS AL,1,260,147:SYS AL,2,111,147:SYS 
AL,3,100,140.-SYS AL,4,89,133 

480 SYS AL,5,100,154:SYS AL,6,89,161sSYS A 
L,7,89,147 s RETURN 

484 REM SPIELERWECHSEL 

485 POKE T+15,222:POKE T+19,3:P0KE T+18,32 
:POKE P(I>,160 

490 1=1—I:POKE P(I),209:POKE T+18,33:RETUR 
N 

494 REM ZUORDNUNG KUGELFARBE ZU SPIELER 

495 J=1:IF R AND 84 THEN J=0 

500 F*(I)=K*(J):F*(1-1)=K*(1-J):E(I)=K<J): 
E(1 — I> =K(1—J > 

505 PRINT"{BLACK,RVOFF>"F*(0)SPC(34)F*(1)" 
{UP>";:RETURN 

509 REM SPIELENDE FUER SP. 1, 3 UND 5 

510 POKE T+19,5:FOR J=9 TO 30:POKE T+15.JT 
1 TI:POKE T+18,32:POKE T+18,33:NEXT 

515 IF S<B THEN B=S 

520 PRINT TAB(36)"{RED,RVSON,3SPACE,RVOFF, 
BLACK,3LEFT>"B:GOTO 540 

524 REM SPIELENDE FUER SP. 2, 4 UND 6 

525 Z(I)=Z(I)+1:PRINT SPC(12)"{BLACK,RVOFF 
>"MID$(STR*(Z(0)),2)TAB(27)MID*(STR*(Z 



530 

<053> 

535 

<014> 

< 157> 

540 

<222> 

<050> 

545 


550 

< 103> 

555 

< 142> 

559 


560 

<099> 

565 


570 

< 135> 

575 

< 192> 

580 


584 

<045> 

585 


590 

<109> 

594 

<052> 

595 

<210> 

600 

<232> 

605 

<015> 

610 

<237> 

620 

<070> 

624 

<098> 

625 


630 

<081 > 

631 

< 166> 

632 

<073> 

635 

<180> 

< 195> 

636 

<225> 

© 64' 


( 1 )), 2 ) 

POKE P(l-I>,160:POKE T+19,5:F0R J=9 TO 
30:F=81—(F=81)*128:POKE P(I),F 
POKE T+15,JTltl:POKE T+18,32:P0KE T+18 
,33:NEXT 

POKE 214,25:PRINT"{UP,3RIGHT,RVSON,BLA 
CK > SPIELWAHL: 'HOME'{5SPACE1WEITER: 'FIR 
E'{UP >" 

IF NOT PEEK(JJ>AND 16 THEN PRINT L*"{H 
OME,DOWN >":F=1:RETURN 
GET A*:IF A*<>"{HOME>"THEN 545 
F=2:RETURN 

REM STOSSKUGEL AUF GRUNDPOSITION 
IF(PEEK(V+21)AND 2)=0 THEN SYS AL,1,26 
0,147 
SYS KS,SK 

IF (PEEK(JJ)AND 31X31 THEN 595 

GET A*:IF A*="{HOME>“THEN 10 

IF A*< >"W"OR G=0 THEN 570 

REM SCHC.AGW IEDERHOLUNG 

POKE V+32,8:SYS SW:GOSUB 600:SYS GS,G 

FOR J=0 TO 2000:NEXT:GOSUB 625:SYS V2: 

POKE V+32,2:GOTO 570 

REM JOYSTICK UND GESCHW.-EINGABE 

SYS JS 

G=1:FOR F=1079 TO 1088:FOR J=0 TO 3:IF 
PEEK(JJ)AND 16 THEN RETURN 
POKE F,G(J):G=G+2T1:NEXT:NEXT:FOR J=0 
TO 100:IF PEEK(JJ)AND 16 THEN RETURN 
NEXT:GOSUB 625:GOTO 600 
SYS NI,G:REM STOSS UND KUGELBEWEGUNG 
REM GESCHW.-SKALA LOESCHEN 
FOR J=108B TO 1079 STEP-l:POKE J,160:N 
EXT:RETURN 
REM 

REM * DIE VARIABLE 'EB' IN ZEILE 15 
* LEGT DAS SPIEL-ENDE 
REM * FUER BANDENBILLARD FEST. 

REM 

REM-ZEILEN BRAUCHEN NICHT MIT IN'S 
PROGRAMM UEBERNOMMEN ZU WERDEN ! 


Listing 1. Das Basic-Listing zu »Billard« (Schluß) 


< 020 > 
<040> 
< 119> 


<093> 

<242> 

< 189> 
<234> 
<070> 

<206> 

<064> 

< 124> 
< 001 > 

< 151 > 
<030> 
<001 > 

<108> 

<255> 

<088> 

<225> 

<001 > 

< 174> 
<233> 

< 124> 

<09B> 

< 184> 

<148> 

<052> 

< 189> 

< 198> 






PROGRAMM 

: BIL 




C000 

CB6F 

C118 

Fl 

B7 

BD 

69 

0C 

2C 

15 

D0 

99 







— 



— 


C120 

D0 

F4 

48 

0D 

15 

D0 

8D 

15 

56 












CI 28 

D0 

8A 

AB 

0A 

AA 

B9 

9B 

CB 

27 

C000 

s 

00 

0B 

08 

01 

00 

9E 

32 

30 

C6 

CI 30 

29 

IC 

D0 

03 

A9 

D6 

2C 

A9 

51 

C008 

" 

36 

31 

00 

00 

00 

A0 

6D 

84 

9B 

CI 38 

50 

9D 

01 

D0 

68 

2D 

10 

D0 

B3 

C010 

: 

2B 

88 

B4 

7A 

A9 

13 

85 

2C 

91 

CI 40 

D0 

45 

F0 

39 

20 

Fl 

B7 

BA 

9C 

C018 

: 

85 

7B 

A0 

00 

98 

91 

7A 

A9 

D6 

CI 48 

48 

20 

FD 

AE 

20 

EB 

B7 

68 

07 

C020 

: 

C0 

85 

FC 

A0 

00 

84 

FB 

98 

3B 

CI 50 

A8 

0A 

AA 

B9 

69 

0C 

48 

0D 

11 

C028 

: 

91 

FB 

C8 

10 

FA 

84 

FB 

A9 

02 

CI 58 

15 

D0 

8D 

15 

D0 

A5 

65 

9D 

E6 

C030 

: 

00 

85 

FD 

F0 

03 

18 

69 

05 

31 

CI 60 

01 

D0 

A5 

14 

9D 

00 

D0 

A5 

IE 

C038 

: 

85 

FE 

A0 

0C 

20 

A2 

BB 

20 

2C 

CI 68 

15 

F0 

09 

68 

0D 

10 

D0 

8D 

F4 

C040 

: 

CA 

BB 

A4 

FD 

20 

A2 

B3 

20 

F7 

CI 70 

10 

D0 

D0 

13 

68 

49 

FF 

2D 

AA 

C048 

: 

52 

E0 

20 

9B 

BC 

A5 

65 

A0 

56 

CI 78 

10 

D0 

8D 

10 

D0 

BD 

00 

D0 

F2 

C050 

: 

00 

91 

FB 

E6 

FB 

D0 

02 

E6 

11 

C180 

C9 

A6 

B0 

03 

A9 

34 

2C 

A9 

69 

C05B 

: 

FC 

A5 

FB 

29 

7F 

85 

FD 

D0 

09 

CI 88 

4A 

4C 

B0 

10 

20 

Fl 

B7 

86 

A4 

C060 

: 

El 

A5 

FE 

C9 

64 

D0 

CE 

A9 

68 

CI 90 

FC 

AC 

10 

D0 

98 

3D 

69 

0C 

32 

C068 

: 

00 

91 

FB 

CB 

10 

FB 

AD 

84 

E9 

C198 

F0 

05 

98 

09 

01 

D0 

03 

98 

26 

C070 

: 

0C 

AA 

BD 

El 

0E 

38 

ED 

88 

DC 

C1A0 

29 

FE 

8D 

10 

D0 

BA 

AB 

0A 

C6 

C078 

: 

0C 

BD 

12 

0D 

8A 

38 

6D 

89 

A4 

C1A8 

AA 

BD 

00 

D0 

8D 

00 

D0 

BD 

E3 

C080 

: 

0C 

8D 

CF 

0F 

BD 

0B 

10 

BA 

AF 

C1B0 

01 

D0 

BD 

01 

D0 

AD 

15 

D0 

0D 

C08B 

: 

18 

6D 

85 

0C 

38 

6A 

BD 

81 

4A 

C1B8 

09 

01 

8D 

15 

D0 

60 

00 

00 

58 

C090 

: 

09 

AA 

38 

6D 

8A 

0C 

BD 

D7 

99 

C1C0 

00 

00 

00 

00 

00 

00 

00 

00 

CI 

C098 


0F 

8D 

13 

10 

8A 

38 

ED 

8A 

6C 

C1C8 

00 

00 

00 

00 

00 

00 

00 

00 

C9 

C0A0 

: 

0C 

BD 

D3 

0F 

BD 

0F 

10 

AD 

37 

C1D0 

00 

00 

00 

00 

00 

00 

00 

00 

Dl 

C0A8 

: 

85 

0C 

AA 

BD 

21 

0F 

18 

6D 

55 

C1D8 

00 

00 

00 

00 

00 

00 

00 

00 

D9 

C0B0 

s 

88 

0C 

8D 

2C 

0D 

8A 

38 

ED 

09 

C1E0 

00 

00 

00 

00 

00 

01 

08 

00 

09 

C0B8 

: 

89 

0C 

8D 

91 

0F 

8D 

02 

10 

62 

C1EB 

00 

90 

00 

00 

60 

00 

00 

60 

F7 

C0C0 

: 

AD 

86 

0C 

AA 

BD 

7E 

0F 

38 

82 

C1F0 

00 

00 

90 

00 

01 

0B 

00 

00 

65 

C0C8 

: 

ED 

88 

0C 

BD 

EE 

0C 

8A 

38 

98 

C1F8 

00 

00 

00 

00 

00 

00 

00 

00 

F9 

C0D0 

: 

6D 

89 

0C 

8D 

38 

09 

8D 

F2 

9F 

C200 

00 

00 

00 

00 

00 

00 

00 

00 

01 

C0D8 

: 

0E 

8D 

2F 

0F 

AD 

87 

0C 

AA 

F7 

C208 

00 

00 

00 

00 

00 

00 

00 

00 

09 

C0E0 

: 

8D 

EF 

0F 

18 

6D 

88 

0C 

8D 

92 

C210 

00 

00 

00 

00 

00 

00 

00 

00 

11 

C0E8 

: 

FD 

0C 

8A 

38 

ED 

B9 

0C 

A8 

42 

C21B 

00 

00 

00 

00 

00 

F0 

00 

03 

A6 

C0F0 

: 

88 

8C 

35 

09 

8D 

EB 

0E 

8D 

B8 

C220 

FC 

00 

07 

3E 

00 

06 

FE 

00 

D2 

C0F8 

: 

2B 

0F 

A9 

27 

8D 

FB 

07 

A0 

FB 

C228 

0D 

FF 

00 

0D 

FF 

00 

0F 

FF 

13 

C100 

: 

07 

A9 

05 

99 

DA 

CB 

A9 

00 

03 

C230 

00 

0F 

FF 

00 

07 

FE 

00 

07 

2E 

C108 

: 

99 

B0 

CB 

99 

B7 

CB 

A9 

28 

F0 

C238 

FE 

00 

03 

FC 

00 

00 

F 0 

00 

5B 

C110 

= 

99 

FS 

07 

88 

D0 

EB 

60 

20 

26 

C240 

00 

00 

00 

00 

00 

00 

00 

00 

41 


C 248 

: 

00 

00 

00 

00 

00 

00 

00 

00 

49 

C 250 

: 

00 

00 

00 

00 

00 

00 

00 

00 

51 

C 258 

: 

00 

00 

00 

00 

00 

F 0 

00 

03 

E6 

C 260 

: 

9 C 

00 

06 

66 

00 

07 

FE 

00 

7 F 

C 268 

: 

0 F 

FF 

00 

0 F 

FF 

00 

0 F 

FF 

95 

C 270 

: 

00 

0 F 

FF 

00 

07 

FE 

00 

07 

6E 

C 278 

: 

FE 

00 

03 

FC 

00 

00 

F 0 

00 

9 B 

C 280 

: 

00 

00 

00 

00 

00 

00 

00 

00 

81 

C 2 B 8 

: 

00 

00 

00 

00 

00 

00 

00 

00 

89 

C 290 

s 

00 

00 

00 

00 

00 

00 

00 

00 

91 

C 298 

: 

00 

00 

00 

00 

00 

F 0 

00 

03 

26 

C 2 A 0 

: 

FC 

00 

07 

CE 

00 

07 

F6 

00 

4 C 

C 2 AB 

: 

0 F 

FB 

00 

0 F 

FB 

00 

0 F 

FF 

93 

C 2 B 0 

: 

00 

0 F 

FF 

00 

07 

FE 

00 

07 

AE 

C 2 B 8 

: 

FE 

00 

03 

FC 

00 

00 

F 0 

00 

DB 

C 2 C 0 

s 

00 

00 

00 

00 

00 

00 

00 

00 

CI 

C 2 C 8 

: 

00 

00 

00 

00 

00 

00 

00 

00 

C 9 

C. 2 D 0 

: 

00 

00 

00 

00 

00 

00 

00 

00 

Dl 

C 2 D 8 

: 

00 

00 

00 

00 

00 

F 0 

00 

03 

66 

C 2 E 0 

: 

FC 

00 

07 

FE 

00 

07 

FA 

00 

A 2 

C 2 E 8 

: 

0 F 

FB 

00 

0 F 

FD 

00 

0 F 

FD 

EF 

C 2 F 0 

: 

00 

0 F 

FB 

00 

07 

FA 

00 

07 

CD 

C 2 FB 

: 

FE 

00 

03 

FC 

00 

00 

F 0 

00 

1 B 

C 300 

: 

00 

00 

00 

00 

00 

00 

00 

00 

01 

C 308 

: 

00 

00 

00 

00 

00 

00 

00 

00 

09 

C 310 

: 

00 

00 

00 

00 

00 

00 

00 

00 

11 

C 318 

: 

00 

00 

00 

00 

00 

F 0 

00 

03 

A6 

C 320 

: 

FC 

00 

07 

FE 

00 

07 

FE 

00 

F 2 



Listing 2. Der Maschinenspracheteil 
von »Billard«, einzugeben mit dem 
MSE (Seite 8). Beachten Sie bei der 
Eingabe die Programmbeschreibung 
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Sportspiele 


C 64 


C32B 

: 

0F 

FF 

00 

0F 

FF 

00 

0F 

FB 

4D 

0600 

: 

FC 

BD 

03 

CC 

20 

FD 

AE 

20 

0A 

C8D8 

: 

52 

98 

0A 

AA 

BD 

00 

D0 

38 

DE 

0330 

s 

00 

0F 

FB 

00 

07 

F6 

00 

07 

ED 

C608 

: 

BA 

AD 

20 

0C 

BC 

A9 

FE 

A0 

49 

C8E0 

s 

E5 

5A 

85 

5E 

A9 

00 

2A 

45 

ED 

C33B 

: 

CE 

00 

03 

FC 

00 

00 

F0 

00 

2B 

0610 

: 

CB 

20 

05 

BB 

20 

CA 

BB 

20 

20 

CBE8 

: 

50 

AA 

B9 

69 

00 

2D 

10 

D0 

41 

C340 

: 

00 

00 

00 

00 

00 

00 

00 

00 

41 

0618 

: 

9B 

BC 

A5 

65 

A6 

FC 

9D 

B7 

60 

CBF0 

: 

F0 

04 

8A 

49 

01 

AA 

SA 

4A 

D2 

C34B 

: 

00 

00 

00 

00 

00 

00 

00 

00 

49 

0620 

: 

CB 

A9 

84 

A0 

CB 

20 

A2 

BB 

B5 

C8F8 

: 

A5 

5E 

B0 

06 

49 

FF 

69 

01 

F5 

C350 

: 

00 

00 

00 

00 

00 

00 

00 

00 

51 

C628 

: 

20 

52 

E0 

20 

9B 

BC 

A5 

65 

AE 

C900 

s 

F0 

29 

09 

00 

B0 

25 

85 

5E 

80 

C35B 

: 

00 

00 

00 

00 

00 

F0 

00 

03 

E6 

0630 

: 

A6 

FC 

9D 

B0 

CB 

A9 

00 

BD 

F7 

C90B 

: 

86 

60 

98 

0A 

AA 

A9 

01 

85 

2D 

0360 

: 

FC 

00 

07 

FE 

00 

07 

FE 

00 

32 

0638 

c 

06 

D4 

8D 

0C 

D4 

8D 

0D 

D4 

25 

C910 

■ 

61 

BD 

01 

D0 

38 

ES 

SB 

B0 

2C 

C36B 

: 

0F 

FF 

00 

0F 

FF 

00 

0F 

FF 

95 

0640 

: 

8D 

14 

D4 

A9 

10 

8D 

05 

D4 

6D 

C91B 

: 

06 

06 

61 

49 

FF 

69 

01 

85 

SD 

C370 

: 

00 

0F 

FF 

00 

07 

FE 

00 

06 

6C 

0648 

: 

A9 

07 

8D 

13 

D4 

A9 

04 

8D 

00 

C920 

3 

5F 

A6 

5E 

DD 

71 

0C 

B0 

03 

66 

C37B 

: 

66 

00 

03 

9C 

00 

00 

F0 

00 

F7 

0650 

: 

01 

D4 

A9 

32 

8D 

08 

D4 

A9 

2C 

C928 

: 

40 

63 

11 

88 

F0 

03 

4C 

CD 

6F 

C380 

s 

00 

00 

00 

00 

00 

00 

00 

00 

81 

0658 

: 

IE 

8D 

0F 

D4 

AD 

17 

D4 

29 

D4 

0930 

: 

10 

A4 

64 

60 

A4 

64 

98 

0A 

9B 

C388 

: 

00 

00 

00 

00 

00 

00 

00 

00 

89 

0660 

: 

FB 

8D 

17 

D4 

A0 

07 

A9 

0A 

70 

C938 

3 

AA 

FE 

00 

D0 

D0 

22 

B9 

69 

53 

C390 

: 

00 

00 

00 

00 

00 

00 

00 

00 

91 

0668 

: 

8D 

54 

0F 

8D 

2E 

10 

99 

CC 

F8 

0940 

3 

00 

0D 

10 

D0 

8D 

10 

D0 

4C 

26 

C398 

: 

00 

00 

00 

00 

00 

F0 

00 

03 

26 

C670 

s 

CB 

99 

D3 

CB 

A9 

00 

99 

A2 

BC 

0948 

: 

B5 

10 

A4 

64 

98 

0A 

AA 

BD 

BB 

C3A0 

: 

FC 

00 

07 

FE 

00 

07 

FE 

00 

72 

C67B 

: 

CB 

99 

A9 

CB 

99 

9B 

CB 

88 

AA 

0950 

: 

00 

D0 

D0 

09 

B9 

69 

0C 

4D 

BF 

C3A8 

: 

0F 

FF 

00 

0F 

FF 

00 

0D 

FF 

CD 

C680 

s 

D0 

E4 

85 

FD 

85 

FE 

AD 

15 

14 

0958 

3 

10 

D0 

8D 

10 

D0 

DE 

00 

D0 

DB 

C3B0 

: 

00 

0D 

FF 

00 

06 

FE 

00 

07 

9D 

0688 

3 

D0 

29 

FE 

8D 

15 

D0 

85 

63 

13 

C960 

3 

40 

B5 

10 

A2 

10 

8E 

0B 

D4 

2B 

C3B8 

: 

3E 

00 

03 

FC 

00 

00 

F0 

00 

1B 

C690 

3 

A2 

10 

8E 

0B 

D4 

EE 

0B 

D4 

DA 

0968 

3 

EE 

0B 

D4 

49 

0F 

18 

65 

5E 

3E 

C3C0 

: 

00 

00 

00 

00 

00 

00 

00 

00 

CI 

C698 

3 

A0 

07 

B9 

69 

00 

25 

63 

D0 

70 

C970 

3 

4A 

AA 

A9 

00 

6A 

85 

5A 

85 

CI 

C3C8 

: 

00 

00 

00 

00 

00 

00 

00 

00 

C9 

C6A0 

3 

03 

4C 

9C 

10 

98 

0A 

AA 

BD 

F2 

C97B 

: 

50 

8A 

69 

BE 

85 

5B 

A5 

5E 

D2 

C3D0 

: 

00 

00 

00 

00 

00 

00 

00 

00 

Dl 

C6AB 

3 

00 

D0 

85 

57 

AD 

10 

D0 

85 

06 

0980 

- 

49 

0F 

18 

65 

5F 

4A 

18 

69 

7F 

C3D8 

: 

00 

00 

00 

00 

00 

F0 

00 

03 

66 

C6B0 

: 

59 

BD 

01 

D0 

85 

58 

A9 

00 

04 

C9B8 

3 

BE 

85 

5D 

A5 

64 

0A 

AA 

A5 

Al 

C3E0 

: 

FC 

00 

07 

FE 

00 

05 

FE 

00 

A2 

C6B8 

s 

85 

62 

B9 

A2 

CB 

18 

79 

B0 

F6 

0990 

: 

57 

9D 

00 

D0 

A5 

59 

8D 

10 

4B 

C3EB 

: 

0D 

FF 

00 

0B 

FF 

00 

0B 

FF 

82 

C6C0 

3 

CB 

30 

06 

99 

A2 

CB 

4C 

5E 

CF 

0998 

s 

D0 

A5 

58 

9D 

01 

D0 

98 

AA 

53 

C3F0 

: 

00 

0D 

FF 

00 

05 

FE 

00 

07 

CD 

0608 

s 

0F 

29 

7F 

99 

A2 

CB 

A9 

01 

B0 

C9A0 

3 

20 

2B 

12 

8A 

A6 

64 

85 

64 

98 

C3F8 

: 

FE 

00 

03 

FC 

00 

00 

F0 

00 

1B 

C6D0 

3 

85 

62 

B9 

BE 

CB 

D0 

40 

B9 

84 

C9A8 

3 

20 

2B 

12 

A4 

64 

BD 

El 

CB 

CA 

C400 

s 

80 

7E 

F2 

DB 

70 

80 

7B 

DE 

AE 

C6DB 

: 

69 

00 

24 

59 

D0 

27 

A5 

57 

07 

C9B0 

- 

18 

79 

E8 

CB 

38 

10 

05 

49 

E3 

C408 

: 

E5 

FF 

80 

76 

FA 

C3 

04 

80 

BB 

C6E0 

3 

09 

14 

D0 

2D 

24 

FB 

10 

10 

10 

C9B8 

: 

FF 

18 

69 

01 

9D 

B0 

CB 

A9 

20 

C410 

: 

70 

96 

4D 

42 

80 

69 

0D 

07 

7E 

C6EB 

■ 

A5 

58 

C9 

D7 

90 

03 

40 

A0 

BA 

C9C0 

: 

00 

2A 

9D 

BE 

CB 

B9 

El 

CB 

BE 

0418 

: 

08 

80 

64 

F9 

2E 

2D 

80 

5B 

BE 

C6F0 

3 

0F 

C9 

50 

B0 

03 

40 

98 

0F 

21 

C9C8 

• 

18 

7D 

E8 

CB 

38 

10 

05 

49 

FD 

0420 

: 

84 

AB 

08 

80 

55 

01 

3F 

82 

6A 

C6F8 

- 

20 

A5 

10 

A9 

01 

99 

BE 

CB 

94 

C9D0 

: 

FF 

18 

69 

01 

99 

B0 

CB 

A9 

F7 

0428 

: 

80 

4A 

12 

FC 

A6 

80 

40 

A8 

B2 

0700 

3 

FE 

00 

D0 

D0 

47 

A5 

57 

D0 

ED 

C9D8 

3 

00 

2A 

99 

BE 

CB 

BD 

EF 

CB 

2D 

0430 

: 

DD 

03 

80 

35 

04 

F3 

34 

80 

67 

0708 

- 

08 

B9 

69 

00 

45 

59 

8D 

10 

3E 

C9E0 

• 

18 

79 

F6 

CB 

38 

10 

05 

49 

97 

0438 

: 

28 

93 

02 

0B 

80 

iD 

2B 

36 

46 

0710 

- 

D0 

DE 

00 

D0 

40 

40 

0F 

B9 

40 

C9E8 

■ 

FF 

18 

69 

01 

9D 

B7 

CB 

A9 

88 

0440 

: 

49 

80 

0E 

00 

D5 

03 

80 

03 

CA 

0718 

- 

69 

00 

24 

59 

F0 

21 

A5 

57 

19 

C9F0 

: 

00 

2A 

9D 

05 

CB 

B9 

EF 

CB 

07 

0448 

s 

B5 

FE 

6B 

7F 

64 

F9 

2E 

2E 

72 

0720 

- 

C9 

38 

D0 

1B 

24 

FB 

10 

0A 

13 

C9F8 

: 

18 

7D 

F6 

CB 

38 

10 

05 

49 

Bl 

0450 

: 

7F 

53 

DD 

FA 

C3 

7F 

2E 

F8 

32 

0728 

3 

A5 

58 

C9 

D7 

B0 

79 

C9 

50 

05 

CA00 

: 

FF 

18 

69 

01 

99 

B7 

CB 

A9 

60 

0458 

: 

F2 

60 

7F 

06 

B7 

53 

19 

7E 

92 

0730 

: 

90 

62 

20 

A5 

10 

A9 

00 

99 

30 

CA08 

: 

00 

2A 

99 

05 

CB 

E4 

FC 

D0 

B6 

0460 

s 

37 

2D 

BE 

8B 

7D 

39 

6A 

CE 

38 

0738 

3 

BE 

CB 

DE 

00 

D0 

D0 

0D 

FE 

59 

CA 10 

3 

05 

B9 

69 

00 

D0 

07 

04 

FC 

20 

0468 

5 

23 

01 

02 

04 

08 

10 

20 

40 

0F 

0740 

3 

00 

D0 

D0 

08 

B9 

69 

00 

05 

FF 

CA18 

3 

D0 

07 

BD 

69 

00 

05 

FD 

85 

F4 

0470 

: 

80 

00 

00 

0C 

00 

00 

00 

0B 

E2 

0748 

3 

59 

8D 

10 

D0 

98 

AA 

DE 

CC 

7A 

CA20 

3 

FD 

B9 

69 

00 

05 

63 

85 

63 

IE 

0478 

: 

0A 

09 

08 

07 

06 

50 

23 

0F 

77 

0750 

• 

CB 

D0 

08 

A9 

0A 

9D 

CC 

CB 

13 

CA28 

3 

8A 

A8 

60 

BC 

B0 

CB 

Bl 

5A 

9B 

0480 

5 

07 

02 

01 

01 

14 

38 

49 

DD 

CD 

0758 


DE B0 

CB 

98 «H 

A 

B9 

A9 

C4 

CA30 

3 

85 

5E 

BD 

BE 

CB 

45 

61 

F0 

7A 

0488 

: 

03 

06 

0A 

20 

Fl 

B7 

86 

FB 

04 

0760 

3 

CB 

18 

79 

B7 

CB 

30 

06 

99 

16 

CA38 

3 

07 

A9 

00 

38 

E5 

5E 

85 

5E 

3F 

0490 

: 

8A 

29 

07 

BD 

65 

0E 

8D 

99 

53 

C768 

3 

A9 

CB 

40 

35 

10 

29 

7F 

99 

2C 

CA40 

3 

BC 

B7 

CB 

Bl 

5C 

85 

5F 

BD 

EC 

0498 

: 

0E 

8D 

CC 

10 

A8 

4C 

01 

09 

A5 

0770 

3 

A9 

CB 

A9 

01 

85 

62 

B9 

05 

67 

CA48 

3 

05 

CB 

45 

60 

4A 

A0 

01 

A5 

49 

C4A0 

s 

AD 

9B 

CB 

8D 

15 

D0 

A0 

11 

3C 

C778 

3 

CB 

D0 

71 

A5 

58 

09 

49 

D0 

57 

CA50 

3 

5F 

B0 

04 

49 

FF 

69 

01 

18 

Bl 

C4A8 

: 

B9 

89 

CB 

99 

FF 

CF 

88 

D0 

8E 

0780 

3 

66 

24 

FB 

10 

55 

B9 

69 

00 

DA 

CA58 

3 

65 

5E 

10 

06 

49 

FF 

18 

69 

79 

C4B0 

: 

F7 

AD 

89 

CB 

85 

FC 

60 

AD 

77 

0788 

: 

20 

10 

D0 

F0 

3E 

BD 

00 

D0 

82 

CA60 

3 

01 

88 

84 

5F 

85 

5E 

AB 

BD 

IC 

C4B8 

: 

15 

D0 

8D 

9B 

CB 

AD 

15 

CC 

24 

0790 

: 

09 

32 

90 

46 

A9 

10 

D0 

11 

E0 

CA68 

3 

BE 

CB 

D0 

07 

38 

FD 

B0 

CB 

EF 

C4C0 

: 

BD 

15 

D0 

A0 

11 

B9 

FF 

CF 

9E 

0798 

3 

A9 

04 

D0 

0D 

A9 

08 

D0 

09 

49 

CA70 

3 

9D 

60 

CB 

BD 

05 

CB 

D0 

07 

IC 

C4C8 

s 

99 

89 

CB 

B9 

03 

CC 

99 

FF 

4D 

C7A0 

3 

A9 

20 

D0 

05 

A9 

40 

2C 

A9 

CF 

CA7B 

3 

38 

FD 

B7 

CB 

9D 

B7 

CB 

Bl 

40 

C4D0 

- 

CF 

88 

D0 

Fl 

A5 

FC 

8D 

89 

El 

C7A8 

3 

80 

99 

9B 

CB 

A9 

10 

8D 

12 

OB 

CA80 

: 

5A 

A8 

A5 

5F 

45 

61 

F0 

00 

BF 

C4D8 

• 

CB 

AD 

03 

CC 

85 

FC 

A9 

14 

E3 

C7B0 

3 

D4 

EE 

12 

D4 

A9 

00 

9D 

01 

2E 

CA88 

: 

98 

49 

FF 

18 

69 

01 

9D 

El 

Al 

C4E0 

* 

85 

64 

AC 

00 

DC 

98 

29 

01 

FC 

C7BB 

3 

D0 

B9 

69 

00 

AA 

4D 

15 

D0 

40 

CA90 

3 

CB 

98 

10 

09 

98 

9D 

El 

CB 

62 

C4EB 

s 

D0 

0A 

AD 

01 

D0 

C9 

46 

F0 

9F 

0700 

3 

8D 

15 

D0 

8A 

05 

FE 

85 

FE 

BA 

CA98 

: 

49 

FF 

18 

69 

01 

18 

7D 

B0 

3C 

C4F0 

- 

03 

CE 

01 

D0 

98 

29 

02 

D0 

31 

C7C8 

3 

40 

70 

10 

BD 

00 

D0 

C9 

1B 

EC 

CAA0 

: 

CB 

9D 

E8 

CB 

A4 

5E 

Bl 

50 

AA 

C4F8 

: 

0A 

AD 

01 

D0 

09 

E0 

F0 

03 

Al 

C7D0 

3 

90 

06 

09 

90 

90 

04 

C9 

Bl 

7D 

CAA8 

3 

A8 

A5 

5F 

45 

60 

D0 

00 

98 

91 

0500 

: 

EE 

01 

D0 

98 

29 

04 

D0 

15 

D6 

C7D8 

: 

90 

C2 

20 

A5 

10 

FE 

01 

D0 

25 

CAB0 

3 

49 

FF 

18 

69 

01 

9D 

EF 

CB 

80 

0508 

: 

AD 

10 

D0 

4A 

AD 

00 

D0 

B0 

BA 

C7E0 

: 

A9 

01 

99 

05 

CB 

D0 

3F 

DE 

27 

CABB 

3 

98 

10 

09 

98 

9D 

EF 

CB 

49 

C9 

0510 

: 

04 

09 

11 

F0 

08 

D0 

03 

CE 

0C 

C7E8 

s 

01 

D0 

D0 

3A 

A5 

58 

C9 

DD 

CD 

CAC0 

3 

FF 

18 

69 

01 

18 

7D 

B7 

CB 

2A 

0518 

: 

10 

D0 

CE 

00 

D0 

98 

29 

08 

CA 

C7F0 

■ 

D0 

31 

24 

FB 

10 

20 

B9 

69 

9D 

CAC8 

: 

9D 

F6 

CB 

A9 

7F 

9D 

A2 

CB 

0F 

0520 

: 

D0 

15 

AD 

10 

D0 

4A 

90 

07 

98 

C7F8 

3 

00 

20 

10 

D0 

F0 

09 

BD 

00 

87 

CAD0 

3 

9D 

A9 

CB 

A9 

01 

9D 

CC 

CB 

32 

0528 

: 

AD 

00 

D0 

09 

3B 

F0 

08 

EE 

7C 

0800 

3 

D0 

C9 

32 

B0 

A2 

90 

0F 

BD 

BE 

CAD8 

3 

9D 

D3 

CB 

60 

20 

FF 

08 

20 

00 

0530 

: 

00 

D0 

D0 

03 

EE 

10 

D0 

98 

11 

C808 

3 

00 

D0 

C9 

1B 

90 

92 

C9 

90 

44 

CAE0 

3 

Fl 

B7 

8E 

80 

CB 

20 

FD 

AE 

74 

0538 

: 

29 

10 

F0 

27 

98 

29 

0F 

49 

2C 

C810 

3 

90 

04 

C9 

Bl 

90 

BE 

20 

A5 

94 

CAE8 

: 

20 

8A 

AD 

A2 

84 

A0 

CB 

20 

CA 

0540 

: 

0F 

D0 

06 

A9 

14 

85 

64 

D0 

0F 

C818 

g 

10 

DE 

01 

D0 

A9 

00 

99 

C5 

7E 

CAF0 

3 

D4 

BB 

20 

FD 

AE 

20 

8A 

AD 

DB 

0548 

: 

0A 

A5 

64 

D0 

04 

A2 

04 

D0 

5F 

0820 

3 

CB 

F0 

03 

FE 

01 

D0 

98 

AA 

52 

CAF8 

3 

A9 

67 

A0 

13 

20 

28 

BA 

A2 

53 

0550 

: 

04 

06 

64 

A2 

14 

A0 

FF 

88 

7C 

0828 

3 

DE 

D3 

CB 

D0 

08 

A9 

0A 

9D 

2E 

OB00 

3 

FE 

A0 

CB 

20 

D4 

BB 

20 

64 

BA 

0558 

: 

D0 

FD 

CA 

D0 

FB 

20 

El 

FF 

0C 

0830 

: 

D3 

CB 

DE 

B7 

CB 

A5 

62 

F0 

ED 

CB0B 

3 

E2 

A9 

84 

A0 

CB 

20 

28 

BA 

08 

0560 

: 

D0 

80 

60 

A9 

01 

2D 

10 

D0 

19 

0838 

3 

25 

98 

AA 

DE 

DA 

CB 

D0 

18 

AF 

CB10 

3 

A9 

01 

24 

66 

10 

03 

4A 

46 

DF 

0568 

: 

AC 

00 

D0 

20 

91 

B3 

20 

0C 

9C 

0840 

3 

A9 

05 

9D 

DA 

CB 

BE 

F8 

07 

D3 

0B1B 

3 

66 

BD 

81 

CB 

20 

9B 

BC 

A5 

3C 

0570 

s 

BC 

A4 

FC 

98 

0A 

AA 

B9 

69 

80 

0848 

3 

B9 

BE 

CB 

F0 

02 

E8 

E8 

CA 

12 

CB20 

3 

65 

8D 

82 

CB 

A9 

FE 

A0 

CB 

12 

0578 

: 

00 

2D 

10 

D0 

F0 

02 

A9 

01 

01 

0850 

3 

8A 

29 

07 

09 

28 

99 

F8 

07 

93 

CB28 

3 

20 

A2 

BB 

20 

6B 

E2 

A9 

84 

0A 

0580 

: 

BO 

00 

D0 

20 

91 

B3 

20 

53 

52 

0858 

3 

98 

0A 

AA 

20 

AE 

10 

BE 

69 

DD 

CB30 

3 

A0 

CB 

20 

28 

BA 

A9 

00 

06 

08 

0588 

: 

B8 

A6 

FC 

A9 

01 

24 

66 

10 

F3 

0860 

3 

00 

B9 

B0 

CB 

19 

B7 

CB 

09 

00 

CB38 

3 

66 

85 

66 

2A 

8D 

83 

CB 

20 

A4 

0590 

: 

02 

A9 

00 

9D 

BE 

CB 

20 

CA 

7B 

0868 

3 

02 

90 

05 

8A 

05 

63 

D0 

0F 

12 

CB40 

3 

9B 

BC 

A2 

07 

18 

0E 

80 

CB 

4E 

0598 

: 

BB 

AC 

01 

D0 

20 

A2 

B3 

20 

2A 

C870 

3 

A9 

00 

99 

B0 

CB 

99 

B7 

CB 

96 

CB48 

3 

90 

17 

AD 

82 

CB 

9D 

B0 

CB 

23 

C5A0 

: 

00 

BC 

A5 

FC 

0A 

AA 

BC 

01 

FE 

C878 

3 

B9 

69 

0C 

49 

FF 

25 

63 

85 

D4 

CB50 

: 

A5 

65 

9D 

B7 

CB 

AD 

81 

CB 

CE 

C5A8 

: 

D0 

20 

A2 

B3 

20 

53 

B8 

A6 

74 

0880 

3 

63 

D0 

01 

60 

A2 

FF 

18 

90 

43 

CB5B 

3 

9D 

BE 

CB 

AD 

83 

CB 

9D 

C5 

95 

C5B0 

- 

FC 

A9 

01 

24 

66 

10 

02 

A9 

88 

0888 

3 

01 

E8 

0A 

D0 

FA 

90 

01 

E8 

A4 

CB60 

3 

CB 

CA 

D0 

E0 

4C 

35 

0E 

7B 

7E 

C5B8 

s 

00 

9D 

C5 

CB 

A5 

61 

D0 

07 

28 

0890 

3 

BD 

7D 

00 

AA 

CA 

D0 

FD 

A2 

D5 

CB6B 

3 

0E 

FA 

35 

12 

00 

FF 

00 

00 

83 

C5C0 

• 

A9 

49 

A0 

E3 

20 

A2 

BB 

A0 

FA 

C89B 

3 

0A 

CA 

D0 

FD 

88 

F0 

03 

4C 

B0 












C5C8 

: 

00 

A9 

57 

20 

0F 

BB 

46 

66 

2B 

CSA0 

3 

9A 

0E 

4C 

98 

0E 

A9 

10 

8D 

Fl 












C5D0 

s 

A2 

84 

A0 

CB 

20 

D4 

BB 

20 

2E 

C8A8 

3 

04 

D4 

EE 

04 

D4 

60 

A9 

63 

10 












C5D8 

■ 

CA 

BB 

20 

52 

E0 

A9 

BC 

A0 

62 

C8B0 

3 

84 

64 

BD 

29 

11 

B9 

69 

00 

BB 












C5E0 

: 

B9 

20 

67 

B8 

20 

71 

BF 

A2 

60 

08B8 

3 

2D 

10 

D0 

F0 

02 

A9 

01 

85 

BC 












C5E8 

- 

FE 

A0 

CB 

4C 

D4 

BB 

AD 

15 

BF 

0800 


50 

BD 

00 

00 

85 

5A 

BD 

01 

39 












C5F0 

: 

D0 

8D 

15 

CC 

A0 

11 

B9 

FF 

DF 

C8C8 


D0 

85 

5B 

A0 

07 

04 

64 

F0 

50 

Listing 2. Der Mascmnenspracheteil 

C5F8 

: 

CF 

99 

03 

CC 

88 

D0 

F7 

A5 

28 

C8D0 

3 

5A 

B9 

69 

00 

2D 

15 

D0 

F0 

B3 

von »Billard« (Schluß). 
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Bestellungen aus der 
Schweiz bitte direkt an. 
Markt iTechnik 
Vertriebs AG. Alpen- 
5tr. 14. CH-6300 Zug, 
Tel.: 042/2231 55. 
Bestellungen aus 
Österreich bitte direkt 
an: BUchorzentrum 
Meidling. Schönbrun- 
nerstr. 261, 1120 Wien. 



Bestellungen aus anderen 
Landern bitte per 
Auslandspostanweisung! 


Programme aus den 64'er-Ausgaben 


Ausgabe 6/85 


Bestell-Nr. L 6 8506A 

DM 29,90* 

Commodore 64 


MSE 

S. 54 

HI-EDDI/MPS 801 

S. 69 

Prost 

S. 76 

E-Routine 64 

S. 148 

GCR-HEX 

S. 117 

HEX-GCR 

S. 118 

Samurai 

S. 72 

Scroll-Machine (LdM) 

S. 61 

Cross referenz 

S. 155 

Heapsort 

S. 126 

C 16 


F-Plotter 

S. 68 

Sonderheft: 


Abenteuerspiele 


Bestell-Nr.: L685 S2 

DM 34,90* 

Ausgabe 5/85 


Bestell-Nr. L 6 8505 A 

DM 29,90* 

Commodore 64 


Checksum. Schnell 

S. 54 

MSE Lader 

S. 55 

MPS 802 

S. 31 

Format-System 

S. 147 

VIC 

S. 175 

65101 

S. 71 

Sternenhimmel (AdM) 

S. 57 

Assemblerkurs 

S. 144 

Direktory-Sorter 

S. 77 

Trick.OBJ 

S. 65 

3D-Movie-Maker (LdM) 

S. 65 

Modulator (Heft 4) 

S. 155 


VC 20 

Checksummer 

S. 54 

Minigrafik 

S. 69 

Longscreen 

S. 83 

C 16 

Help&Trace 

S. 84 

Ausgabe 4/85 

Bestell-Nr. L 6 8504A 

DM 29.90* 

Commodore 64 

Checksum. Schnell 

S. 54 

MSE Lader 

S. 58 

S-MON Teil 5 

S. 67 

Window 64 

S. 88 

X BAS IC 

S. 59 

ASS. Kurs Teil 8 

S. 138 

Hypra-Perfect 

S. 76 

11 neue Einzeller 

S. 153 

Print-List 

S. 79 

Netzgrafik 

S. 71 

ROT-DEMO 

S. 73 

X.Y-DEMO 1 u. 2 

S. 73 

Ostereier 

S. 51 

Befehlserweiterung 

S. 23 

VC 20 

Checksummer 

S. 56 

Supergrafik ill 

S. 73 

Prg. Schutz 

S. 83 

Ausgabe 3/85 


Bestell-Nr. L 6 8503A 

DM 29,90* 

Commodore 64 

Checksu. Schnell 

S. 70 

MSE Lader 

S. 79 

Hires-3/Teil 2 

S. 136 

IntellisearchSC 

S. 153 


Son of Destroyer 

S. 42 

Ligatab (LdM) 

S. 63 

Fl. Basicloader 

S. 82 

Floppylister 

S. 82 

E.Zeichnen 1 und 2 

S. 72 

Meisterschütze (AdM) 

S. 53 

Saver 

S. 89 

Screensave 

S. 88 

Pic-Loader 

S. 90 

VC 20 

Checksummer 

S. 70 

IRQ-Clock 

S. 156 

Autostart 

S. 159 

Ausgabe 2/85 

Bestell-Nr. L 6 8502A 

DM 29,90* 

Commodore 64 

Cheoksummer 64 

S. 65 

MSE 

S. 68 

SMON (Teil 4| 

S. 72 

Grab des Pharao (LdM) 

S. 56 

Basic-Lader 

S. 91 

RAM-Floppy 

S. 92 

Notlandung 

S. 156 

Hires-3 

S. 123 

Benchmark-Test 

S. 37 

Format.Stringkur 

S. 148 

Versch. Test.USR 

S. 140 

Cursorsteuerung 

S. 86 

Rolling-Data 

S. 88 

Super-Memory 

S. '81 

VC 20 

Checksummer VC 20 

S. 65 

Familienplanung (AdM) 

S. 53 

Super 8-Steuerung 

S. 70 

Q+Bert (3K) 

S. 78 

Joypaint 

S. 143 

Bitmapping 

S. 145 

Multicolor-Demo 

S. 146 

Ausgabe 1/85 

Bestell-Nr. L 6 8501A 

DM 29,90* 

Commodore 64 

Checksummer 64 

S. 72 

Handballtrainer (AdM) 

S. 53 

SMON (Teil 3) 

S. 69 

Hi-Eddi (LdM) 

S. 57 

Hypra-Load mal vier 

S. 82 

Tips und Tricks 

S. 87 

Provic 64 

S. 76 

Eingabe (UPB) 

S. 156 

VC 20 

Check-"- -mer VC 20 

S. 72 

Ausgabe 12/84 

Bestell-Nr. CB 022 

DM 29.90* 

Commodore 64 

Synthesizer (AdM) 

S. 51 

SMON (2. Teil) 

S. 60 


3D-Vler gewinnt 

S. 96 

Trace 

S. 76 

Stringy 

S. 88 

Lader 

S. 92 

Auto 

S. 84 

Listschutz 

S. 85 

Simons Axo (SB) 
Kreuzworträtsel S. 150 

S. 64 

VC 20 

Mathematikal Basic (8K>) 

(LdM) 

S. 55 

Fast Tape 

S. 80 

Ausgabe 11/84 

Bestell-Nr. CB 020 

DM 29,90* 

Commodore 64 

Turtle Grafik (LdM) 

S. 48 

Schachmeister (AdM) 

S. 50 

SMON (1. Teil) 

S. 59 

Floppykurs 

S. 117 

FPLOT-Befehlserwoiterunc 

1 S. 73 

Get Koala pic 

S. 66 

Interrupttechnik 

S. 84 

Exsort (UPB) 

S, 154 

Einzeiler 

Simons Basic 

S. 158 

Befehlserweiterung (SB) 

VC 20 

S. 90 

Pseudosprites (8K) 

S. 76 

Laterna Magica (8K) 
Betriebssystem- 

S. 68 

Erweiterung (24K>) 

S. 88 

Supergrafik (GV) 

S. 71 

VC 20-Kurs (GV>) 

S. 126 

Ausgabe 10/84 

Bestell-Nr. CB 019 

DM 29,90* 

Ausgabe 9/84 

Bestell-Nr. CB 014 

DM 29,90* 

Ausgabe 8/84 

Bestell-Nr. CB 013 

DM 29,90* 

Ausgabe 7/84 

Bestell-Nr. CB 017 

Ausgabe 6/84 

Commodore 64 

DM 29,90* 

Bestell-Nr. CB 018 

DM 29,90* 

VC 20 

Bestell-Nr. VC 008 

DM 29,90* 


Bedeutung der Abkürzungen 

*LdM = Listing des Monats 

’AdM = Anwendung des Monats 

•SB = Simons Basic 

•GV = Grundversion 

*GV> = alle Speicherversionen können 


verwendet werden (einschließlich 
GV) 

"3K = 3-KByte-Speichererweiterung 

wird benötigt 

*8K> = Speichererweiterung größer als 8 
KByte wird benötigt 
"UPB = Unterprogrammbibliothek 


* Alle Preise inklusive Mehrwertsteuer. 

Achtung! 

Bitte verwenden Sie für Ihre Bestellung nurdie 
eingeheftete Postscheck-Zahlkarte zur 
Überweisung des Rechnungsbetrags. 


Fehlende Hefte erhalten Sie 
bei: Markt & Technik 
Vertrieb 64'er 
Hans-Pinsel-Str. 2, 

8013 Haar 



'Äi' 




ff 




















Schießspiele 


C 64 


Panzerkampf - 
ein Spiel für 
zwei 


Tank Fight — oder auf deutsch Pan¬ 
zerkampf — ist ein Spiel, in dem es 
auf Geschicklichkeit und Schnellig¬ 
keit ankommt. Tricksen Sie Ihren Geg¬ 
ner aus, aber werden Sie nicht nervös 
dabei. Und Achtung vor den Stören¬ 
frieden: behalten Sie Ihren Rücken 
frei! 

Dieses Spiel ist wegen Überlänge nur 
auf Diskette erhältlich. 


Zunächst eine kleine Spielanleitung 


1. Das Spielfeld 6 *sr qtk 

Das Spielfeld besteht aus einem Gitter von Wänden. Die 
Basis des einen Gegners befindet sich links oben, die 
andere rechts unten. 

2. Die Anzeige 

In der Anzeige kann man für grün (rechts) und blau (links) 
folgendes ablesen: 

a) F = Fuel (Treibstoff), zu Beginn 20001. 

b) B = Bombs, zu Beginn 40 Stück. 

c) N = No Bombs, ein Kreuz hinter »N« zeigt vorüber¬ 
gehende Schußunfähigkeit an. 

d) C = Collision zeigt den Zustand der Ketten des 
Panzers an, zu Beginn 100%. 

e) S = Score 

f) T = Tanks, Anzahl noch nicht zerbombter Tanks 
(Panzer). 

3. Die Bewegung der Panzer 

Der Panzer kann vorwärts und rückwärts fahren, indem 
man den Joystick in die entsprechende Richtung bewegt. 
Er wird gedreht, indem man einen kurzen Impuls in die 
Richtung gibt, in die man sich drehen möchte, und dann 
wartet, bis der Panzer sich gedreht hat. Entscheidet man 
sich während des Drehens, doch in der alten Richtung 
weiterzufahren, kann man seine ursprüngliche Absicht 
durch einen längeren Impuls in der alten Richtung wieder 
korrigieren. 

Dies hört sich übrigens viel komplizierter an als es ist. 

4.Schüsse 

Man kann immer nur einen Schuß abfeuern. Trifft die 
abgeschossene Bombe eine Wand, wird diese zerstört. 
Allerdings darf man nicht zu nahe an der Wand sein, da 
sonst der Schuß auch darüber hinweg fliegen kann (das 
Rohr läßt sich nicht so tief einstellen). 


Trifft man den »Guten«, werden entsprechende Punkte 
gegeben (siehe unten). Das gleiche gilt für den »Übergu¬ 
ten« (siehe unten). 

Und Vorsicht! Während des Abfeuerns einer Bombe wird 
das Bombenfach geöffnet, eine Bombe herausgenom¬ 
men, das Fach geschlossen und die Bombe ins Rohr 
gelegt und gezündet. 

Drückt man, während der Panzer sich dreht, auf den Feu¬ 
erknopf, wird das Bombenfach geöffnet und die Bomben 
»rasseln« heraus. 

5. Die Wände 

Man kann auch ohne zu schießen über die Wände gelan¬ 
gen, indem man nur kurze Joystickimpulse in die 
gewünschte Richtung gibt. Allerdings zählt dann die 
Kollisions-Anzeige abwärts und bei C = 0% verliert man 
einen Panzer. 

6. Die Guten 

Die Guten sind fremde Angreifer, die neben den beiden 
Basen auftauchen und sich teils frei, teils vom Gitter 
abhängig, bewegen. 

Man kann die Guten abschießen, doch Vorsicht! Wenn sie 
getroffen werden, machen sie einen Todessprung in eine 
beliebige Richtung und können einen doch noch erschla¬ 
gen. 

Auch ist eine Berührung mit den Guten tödlich. 

7. Der Übergute 

Der Übergute taucht nach einiger Zeit unmotiviert hin und 
wieder auf, am liebsten in der zweiten Bahn von oben. Er 
ist schwer zu treffen, aber wenn man ihn trifft harmlos: Er 
zerplatzt unter lautem Getöse. 

8. Tanken 

Sind einem die Schüsse ausgegangen, hat man keinen 
Treibstoff mehr oder sind die Ketten ruiniert, kann man an 
seiner Basis Nachschub holen. Hierzu fährt man rück¬ 
wärts senkrecht an seine Basis heran, der Tankvorgang 
beginnt. 

Vorsicht! Ab 500 bis 600 Liter Resttreibstoff wird es 
gefährlich! Man sollte auch nicht bis zur letzten Bombe 
warten, wenn man tanken muß, da man ansonsten auf 
dem Weg zur Basis hilflos ist. 

9. Punkte 

Der Übergute = 1.200 

Die Guten = abhängig von der Länge des Todessprungs 
Eine Wand = 13 
Der Gegner = 1.000 

Eigene, über die Runden gebrachte Panzer am Ende = 
1.000 

10. Ziel des Spiels 

Das Ziel des Spiels ist es, die gegnerische Basis zu zer¬ 
stören. Dies erreicht man, indem man alle gegnerischen 
Panzer zerbombt. 

Danach erfolgt die Auswertung. 

11. Allgemeine Bedienung 

Spiel mit LOAD "TANK FIGHT,8 laden und mit RUN star¬ 
ten. Der Rest wird von Diskette nachgeladen. Es wird 
automatisch gestartet. Zu Beginn kann man mittels Joy¬ 
sticks den einen Gegner schwächen (falls zwei verschie¬ 
den starke Spieler beteiligt sind), indem man die Anzahl 
seiner Panzer bis auf drei reduziert. 

Außerdem läßt sich der Schwierigkeitsgrad in drei Stufen 
einstellen. 
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Schießspiele 


Mit der Taste »RUN/STOP« kann man jederzeit wieder zu 
dieser Anfangsauswahl zurückkehren. 

Zum Spielen benötigt man selbstverständlich zwei Joy¬ 
sticks. 

12. Taktik 

Wichtig ist, den Gegner nie im Rücken, sondern höch¬ 
stens seitlich zu haben. Da es einige Zeit braucht, bis der 
Panzer während der Drehung die neue Stellung erreicht, 
ist dies besonders gefährlich. 

Ist ein ganzer Gang freigeschossen, kann man den Geg¬ 
ner dazu verleiten, in diesem Gang zu schießen. Während 
des Fluges seiner Bombe hat man dann freie Bahn. 
Anfänger sollten den Joystick cool — nicht hektisch — 
bedienen. Auch wenn es am Anfang schwer ist: Wenn 
man erstmal den Panzer fahren kann, fängt es richtig an, 
Spaß zu machen. 

Und noch ein Nachtrag zum Punkt TANKEN: 

Während des Tankens darf man sich keinesfalls drehen, 
da man ansonsten in die Grube rutscht, die vor der Basis 


liegt, und längere Zeit hilflos ist (man kommt durch »Gas¬ 
geben« in einer Richtung wieder heraus, eine gute Mög¬ 
lichkeit für den Gegner...). 


Programm nur auf Diskette 


Sie haben sich sicherlich schon gewundert, daß es hier 
sofort weitergeht mit dem Spiel »Radar«: Das Listing zu »Pan¬ 
zerkampf« fehlt. Aber das ist weder vergessen worden noch 
Absicht. Jedoch waren 14 Seiten (!) Listing einfach zuviel. 
Wenn Sie das Heft durchblättern oder das Vorwort lesen, 
werden Sie merken, daß es noch weitere Programme gibt, die 
nicht im Heft abgedruckt werden konnten. Die Programme 
befinden sich auf den zwei heftbegleitenden Disketten, wel¬ 
che jeweils beidseitig bespielt sind. 

Gestartet wird »Panzerkampf«, indem Sie eingeben LOAD 
"TANK FIGHT",8 und mit RUN starten. Und dann viel Spaß 
und ruhige Hände. 

(Dietmar Harms / gk) 


Radar 


Sie haben nicht gerade friedliche 
Raumschiffe auf Ihrem Radar ent¬ 
deckt. Jetzt heißt es aufpassen. 

Radar nennt sich dieses Geschicklichkeitsspiel. Und Sie 
sind der Commander eines Raumschiffes und sitzen ange¬ 
spannt vor Ihren Bildschirmen. Auf dem Radar erkennen Sie 
schon die näherkommenden Raumschiffe. Es ist ein moder¬ 
nes Radar, gekoppelt mit einer empfindlichen Zielerfassungs¬ 
automatik. Das heißt, ganz automatisch geht es nicht. Sie als 
Commander wollen schließlich nicht ihr Leben von stumpfsin¬ 
nigen Maschinen entscheiden lassen. Und Ihr Schicksal 
steht auf dem Spiel. Lassen Sie also die Maschinen nicht zu 
nahe kommen, sonst sind Sie dran. Und die Anzahl der Reser¬ 
veschiffe schrumpft schnell. 

Doch bevor Sie sich ins Getümmel stürzen können, steht 
Ihnen noch einiges an Tipparbeit bevor, es sei denn, Sie lieb¬ 
äugeln begreiflicherweise mit dem Disketten-Leserservice. 

Gespielt wird das Spiel mit dem Joystick 2. 

Ziel des Spieles: Eine feindliche Invasion abwehren. 

Ihre Hilfsmittel: Ein Raumschiff mit Laserkanonen, Schutz¬ 
schirm, Radar und ein akustisches Warn¬ 
gerät. 

Der Feind: greift mit drei verschiedenen Raumschiff¬ 

typen an. 

Wenn Sie einen Feind treffen, erhöht sich Ihr Punktestand. 
Wenn Sie vom Feind getroffen werden (»Kamikaze-Angriffe«), 
verringert sich Ihre Energie. 

Achtung: Ihr Laser und Ihr Schutzschirm benötigen Ener¬ 
gie. Nach dem Aufbrauchen Ihrer Energie verlieren Sie ein 
Schiff. 


Punktetabelle: 


Schiffstyp Feind 
rosa 
braun 
weiß 

pro Schuß 


Feind getroffen 
10 Punkte 
5 Punkte 
1 Punkt 


vom Feind getroffen 
—20 Energieeinheiten 

— 8 Energieeinheiten 

— 5 Energieeinheiten 

— 5 Energieeinheiten 


Energievorrat je Schiff: 200 Einheiten 


Alle 128 Punkte erhöht sich der Schwierigkeitsgrad (Feind 
greift schneller an) und Ihr Energiehaushalt wird aufgefüllt. 


Sie sehen die angreifenden Feinde im Langstreckenradar 
(oben) mit Rundumsicht. 

Zielen müssen Sie mit der Visiereinrichtung (Bildmitte). Sie 
können den Feind ebenfalls durch die seitlichen Fenster 
sehen. 

Je gefährlicher der Feind (siehe Punkte), um so höher ist 
die Pulsfolge des akustischen Warngerätes. 

Der Spielbeginn kann durch Drücken des Feuerknopfes 
beschleunigt werden. 


Hinweise zum Abtippen 


Auch wenn Sie den MSE und den Checksummer bereits 
kennen, sollten Sie die folgenden Zeilen aufmerksam lesen, 
weil wir zu einigen Tricks greifen mußten, um die Tipparbeit 
nicht noch zu vergrößern. Auf Diskette hat Radar übrigens 
insgesamt 127 Blocks belegt. Mit einem Verdichter (Kompak¬ 
tor) gelang uns eine Kürzung auf 70 Blocks. 

Der Checksummer ist völlig neu. Wenn Sie den Checksum¬ 
mer aus den 64’er Stammheften bereits besitzen, können Sie 
ihn für alle Programme in diesem Heft nicht verwenden. Lesen 
Sie also zuerst den Checksummerartikel auf Seite 6 durch. 

1. Laden Sie MSE (auch in diesem Heft abgedruckt). 

2. Geben Sie zuerst Listing 1 ein (SPRITES01/PACK). Nach 
dem Abtippen mit RUN starten. Und jetzt direkt anschlie¬ 
ßend folgende zwei Zeilen eingeben (jeweils mit RETURN- 
Taste abschließen): 

A$= "SPRITES01. DAT "(RETURN) 

SYS 57812A$,8:P0KE 193,00:POKE 194,196:P0KE 174,66: 
POKE 175,205:SYS 62957<RETURN) 

Mit diesen Zeilen wird das nun erst fertige Programm 
SPRITE01 .DAT auf Diskette gespeichert. 

3. MSE laden und Listing 2 (BILD19/PACK) eingeben. Auch 
dieses Programm, wie oben beschrieben mit RUN starten 
und anschließend folgende zwei Zeilen eingeben: 

A$= "BILD19. DAT "(RETURN) 

SYS 57812A$,8:P0KE 193,00:POKE 32,196:POKE 174,02: 
POKE 175,128:SYS 62957(RETURN) 

Das Programm BILD19.DAT wird auf Diskette gespei¬ 
chert. 

4. MSE laden und Listing 3 (RADAR19/OBJ) eintippen und 
speichern. Hier sind keine weiteren Aktionen erforderlich. 

5. Als letztes nun Listing 4, den Lader für alle Programme 
noch bearbeiten und es kann losgehen. 

(Gerhard Klauser / gk) 
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Listing 1. Bitte dieses Programm 
mit dem MSE abtippen. Sie finden 
ihn ebenfalls in diesem Heft. 
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Listing 2. Dieses Programm mit dem 
MSE eingeben. Bitte unbedingt die 
Hinweise zum Abtippen lesen! 
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ff 

ab 

ff 

ea 

eb 

le 

3229 

: 

eb 

ea 

ea 

eb 

eb 

ff 

af 

eb 

17 

3231 

: 

eb 

af 

bf 

00 

af 

eb 

ff 

ff 

3e 

3239 

: 

ff 

f e 

ff 

ff 

f e 

bf 

03 

ff 

bl 

3241 

: 

bf 

00 

ff 

ff 

bf 

00 

bf 

41 

7e 

3249 

: 

ff 

28 

00 

55 

55 

08 

00 

75 

88 

3251 

: 

55 

00 

00 

75 

55 

22 

80 

75 

a8 

3259 

r 

55 

aa 

2a 

ff 

ff 

aa 

aa 

ff 

Be 

3261 

: 

ff 

aa 

aa 

ff 

ff 

aa 

aa 

ff 

60 

3269 

: 

7f 

20 

20 

55 

d5 

ooi 

82 

55 

cl 

3271 

- 

55 

00 

20 

55 

f 5 

.LJ 

80 

55 

85 

3279 

: 

ff 

00 

aa 

ff 

7f 

aa 

2a 

ff 

19 

3281 

: 

ff 

aa 

aa 

ff 

ff 

aa 

aa 

df 

40 

3289 

: 

7f 

00 

02 

df 

df 

08 

8a 

df 

ad 

3291 

: 

ff 

0a 

0a 

57 

5f 

00 

Ba 

df 

e3 

3299 

: 

5f 

00 

20 

f 5 

f 5 

80 

80 

75 

0f 

32a 1 

: 

d5 

a 0 

20 

75 

75 

28 

a8 

75 

a3 

32a9 

: 

55 

aa 

82 

df 

d7 

8a 

88 

df 

a3 

32b 1 

: 

df 

0a 

8a 

df 

df 

8a 

82 

7f 

8f 

32b 9 

: 

ff 

20 

a8 

55 

7d 

00 

00 

5d 

30 

32c 1 

: 

55 

20 

20 

7d 

75 

20 

00 

7d 

31 

32c 9 

: 

55 

80 

00 

55 

55 

00 

00 

75 

49 

32dl 

: 

55 

00 

00 

55 

55 

00 

00 

55 

dl 

32d9 

: 

d5 

aa 

0 a 

ff 

df 

aa 

8a 

ff 

03 

32el 

: 

ff 

aa 

0a 

ff 

df 

aa 

8a 

ff 

35 

32e9 

: 

ff 

00 

20 

55 

55 

00 

00 

55 

9b 

32f 1 

: 

55 

00 

00 

55 

55 

00 

00 

55 

fl 

32f 9 

: 

f 5 

00 

aa 

df 

ff 

aa 

aa 

df 

55 

3301 

: 

ff 

8a 

aa 

18 

81 

aa 

aa 

ff 

0b 

3309 

s 

c7 

fb 

00 

40 

00 

00 

00 

06 

e 2 


Listing 2. »Bild 19/Pack« (Schluß) 


Programm : radarl9.obj 8000 9202 


8000 

. 

4c 

40 

81 

4c 

4d 

81 

4c 

d2 

0e 

8008 

: 

81 

a 2 

18 

a9 

00 

9d 

00 

d4 

ac 

8010 

s 

ca 

d0 

fB 

60 

a9 

00 

8d 

5d 

1B 

8018 

: 

83 

60 

a9 

00 

85 

fb 

85 

fd 

80 

8020 

: 

a 9 

40 

85 

fc 

a9 

e0 

85 

fe 

a0 

8028 

: 

a9 

00 

8d 

51 

83 

a9 

20 

8d 

80 

8030 

: 

52 

83 

20 

86 

80 

60 

a9 

00 

ce 

8038 

: 

85 

fb 

85 

f d 

a9 

20 

85 

fc 

87 

8040 

: 

a9 

e0 

85 

■f e 

a9 

00 

8d 

51 

0e 

8048 

: 

83 

a9 

20 

Sd 

52 

83 

20 

86 

28 

8050 

s 

80 

60 

a9 

65 

85 

fb 

a9 

00 

f 6 

8058 

: 

85 

fd 

a9 

C0 

85 

fe 

a9 

e8 

27 

8060 

: 

8d 

51 

83 

a9 

03 

8d 

52 

B3 

99 

8068 

: 

20 

18 

81 

60 

a9 

02 

85 

fb 

b9 

8070 

: 

a9 

00 

85 

fd 

a9 

d8 

85 

f e 

b0 

807B 

: 

a9 

eB 

8d 

51 

83 

a9 

03 

8d 

cf 

8080 

: 

52 

83 

20 

18 

81 

60 

a0 

00 

3d 

S088 

s 

8c 

53 

83 

8c 

54 

83 

bl 

fb 

50 


C 64 


8090 

: 

91 

fd 

c8 

ee 

53 

83 

dB 

07 

d2 

8098 

: 

e6 

fc 

e6 

fe 

ee 

54 

83 

ad 

91 

80 a 0 

5 

51 

83 

cd 

53 

83 

d0 

e7 

ad 

4a 

S0aB 

: 

52 

83 

cd 

54 

83 

dB 

df 

60 

b9 

80b0 

: 

a9 

00 

8d 

20 

dB 

Bd 

21 

dB 

60 

80b 8 

: 

a9 

20 

0d 

11 

d0 

8d 

11 

dB 

36 

80C0 

: 

a9 

10 

0d 

16 

d0 

8d 

16 

dB 

eb 

80c 8 

: 

a9 

03 

0d 

02 

dd 

8d 

02 

dd 

84 

80d0 

: 

a9 

08 

0d 

18 

d0 

Bd 

18 

dB 

3f 

SBdB 

: 

ad 

18 

d0 

29 

0f 

09 

00 

8d 

3f 

80e0 

: 

18 

d0 

a9 

00 

29 

fc 

09 

00 

69 

80e8 

: 

8d 

00 

dd 

60 

ad 

11 

dB 

29 

f 2 

80f 0 

: 

df 

8d 

11 

d0 

a9 

ef 

2d 

16 

ef 

B0f 8 

: 

d0 

8d 

16 

d0 

a9 

03 

0d 

02 

19 

8100 

: 

dd 

8d 

02 

dd 

ad 

18 

dB 

29 

11 

8108 

: 

0f 

09 

10 

8d 

18 

dB 

a9 

00 

00 

8110 

: 

29 

fc 

09 

03 

8d 

00 

dd 

60 

6b 

8118 

: 

a0 

00 

8c 

53 

83 

8c 

54 

83 

3b 

8120 

: 

a5 

fb 

91 

fd 

cS 

ee 

53 

83 

3f 

8128 

: 

d0 

05 

e6 

fe 

ee 

54 

83 

ad 

0f 

8130 

: 

51 

83 

cd 

53 

83 

dB 

e9 

ad 

e 2 

8138 

: 

52 

83 

cd 

54 

83 

dB 

el 

60 

51 

8140 

: 

a9 

05 

8d 

55 

83 

a9 

86 

Bd 

35 

8148 

s 

56 

83 

4c 

5a 

81 

a9 

13 

Bd 

Bb 

8150 

: 

55 

83 

a9 

86 

Bd 

56 

83 

4c 

d4 

8158 

: 

5a 

81 

20 

36 

80 

20 

52 

80 

95 

8160 

■ 

20 

6c 

80 

20 

b0 

80 

a9 

00 

90 

8168 

: 

8d 

15 

d0 

20 

09 

80 

a 2 

00 

d7 

8170 

: 

a0 

00 

88 

d0 

fd 

ca 

dB 

f 8 

bB 

8178 

: 

20 

af 

82 

a9 

ff 

8d 

58 

83 

la 

8180 

: 

ad 

lb 

d4 

Bd 

01 

d4 

a9 

0f 

ld 

8188 

: 

20 

Bd 

B2 

ad 

lb 

d4 

Bd 

07 

62 

8190 

: 

d4 

ce 

58 

83 

f0 

0a 

ad 

00 

6B 

8198 

: 

de 

29 

10 

d0 

e3 

4c 

a0 

81 

4d 

81 a 0 

: 

20 

la 

80 

20 

52 

80 

20 

6c 

74 

81a3 

: 

80 

20 

b0 

80 

20 

14 

80 

a9 

6c 

81b0 

: 

ff 

Bd 

58 

83 

a2 

00 

a 0 

00 

a9 

81b8 

: 

88 

d0 

fd 

ca 

d0 

f 8 

a9 

0f 

lb 

81c0 

: 

20 

Sd 

82 

ce 

58 

83 

f0 

14 

af 

BlcB 

: 

ad 

00 

de 

29 

10 

dB 

ef 

4c 

bl 

81d0 

: 

de 

81 

a9 

29 

Bd 

55 

83 

a9 

el 

BldB 

• 

86 

8d 

56 

83 

a9 

00 

8d 

15 

26 

81 e 0 

: 

d0 

a9 

05 

Bd 

20 

dB 

20 

09 

93 

81e8 

: 

80 

a9 

00 

85 

fb 

85 

fd 

a9 

25 

81f 0 

: 

60 

85 

fc 

a9 

e 0 

85 

fe 

a9 

11 

Blf 8 

: 

00 

8d 

51 

83 

a9 

20 

8d 

52 

fa 

8200 

s 

83 

20 

86 

80 

20 

f 3 

82 

ad 

4c 

8208 

: 

5c 

83 

8d 

0f 

d4 

a9 

05 

85 

25 

8210 

: 

fb 

a9 

ff 

20 

8d 

82 

c6 

fb 

e4 

8218 

: 

d0 

f 7 

a9 

00 

Bd 

5c 

83 

8d 

33 

8220 

: 

0f 

d4 

78 

a 2 

00 

86 

fd a2 

7d 

8228 

: 

08 

86 

f e 

a9 

ff 

8d 

59 

83 

41 

8230 

s 

a9 

01 

8d 

5a 

83 

20 

65 

82 

de 

8238 

: 

ee 

5c 

83 

ee 

5c 

83 

ad 

5c 

64 

8240 

: 

83 

Bd 

0f 

d4 

ce 

59 

83 

dB 

50 

8248 

: 

ec 

ce 

5a 

83 

dB 

e7 

20 

09 

81 

8250 

: 

80 

a9 

00 

8d 

21 

dB 

ad 

55 

51 

8258 

: 

83 

85 

fb 

ad 

56 

83 

85 

fc 

e4 

8260 

: 

a0 

00 

6c 

55 

83 

a2 

00 

86 

20 

826B 

: 

fb 

a0 

00 

20 

78 

82 

98 

18 

e6 

8270 

: 

65 

fe 

a8 

90 

f 6 

e6 

fd 

60 

f0 

8278 

: 

98 

18 

65 

fd 

85 

fc 

ad 

12 

50 

82B0 

: 

d0 

c5 

fc 

d0 

f 3 

a5 

fb 

Bd 

03 

8288 

: 

21 

d0 

e6 

fb 

60 

aa 

88 

dB 

69 

8290 

s 

fd 

ca 

d0 

fa 

60 

86 

fb 

84 

b9 

8298 

: 

fc 

a9 

40 

85 

fd 

a9 

e6 

85 

fd 

82 a 0 

: 

fe 

a9 

80 

8d 

51 

83 

a9 

02 

20 

B2a8 

: 

8d 

52 

83 

20 

B6 

80 

60 

a9 

84 

82b0 

: 

00 

Sd 

17 

d4 

8d 

13 

d4 

Sd 

b7 

B2bB 

: 

0 c 

d4 

Bd 

05 

d4 

a9 

64 

Bd 

7a 

82 c 0 

: 

0 e 

d4 

Sd 

07 

d4 

Bd 

00 

d4 

e0 

B2c8 

: 

a9 

0a 

8d 

0f 

d4 

Bd 

08 

d4 

3f 

82d0 

: 

a9 

03 

Bd 

18 

d4 

a9 

ff 

Bd 

17 

B2d8 

: 

14 

d4 

8d 

0d 

d4 

8d 

06 

d4 

d7 

82e0 

s 

a9 

11 

Bd 

12 

d4 

8d 

04 

d4 

2b 

82e8 

: 

a9 

21 

8d 

0b 

d4 

a9 

08 

Bd 

bc 

82f 0 

: 

01 

d4 

60 

a9 

00 

Bd 

17 

d4 

lb 

82f 8 

: 

a9 

64 

8d 

0e 

d4 

a9 

00 

Bd 

ae 

8300 

: 

0f 

d4 

a9 

03 

8d 

18 

d4 

a9 

84 

8308 

: 

00 

8d 

13 

d4 

a9 

ff 

Bd 

14 

27 

8310 

: 

d4 

a9 

10 

8d 

12 

d4 

a9 

fa 

d3 

B31B 

: 

Bd 

07 

d4 

a9 

00 

Bd 

08 

d4 

c9 

8320 

: 

a9 

03 

Sd 

18 

d4 

a9 

00 

8d 

67 

8328 

: 

0c 

d4 

a9 

ff 

8d 

Bd 

d4 

a9 

f0 

8330 

s 

21 

8d 

0b 

d4 

a9 

64 

Bd 

00 

69 

8338 

: 

d4 

a9 

02 

8d 

01 

d4 

a9 

00 

70 

8340 

: 

Bd 

05 

d4 

a9 

ff 

8d 

06 

d4 

e8 

8348 

: 

Bd 

02 

d4 

a9 

15 

8d 

04 

d4 

b8 

8350 

: 

60 

aa 

ff 

ff 

aa 

aa 

ff 

ff 

05 

8358 

: 

aa 

aa 

ff 

ff 

aa 

aa 

a9 

01 

00 

8360 


8d 

04 

86 

a9 

01 

8d 

03 

86 

5c 

8368 

: 

a9 

00 

20 

cb 

83 

a9 

00 

20 

59 










C 64 


Schießspiele 


3370 

: 

d3 

83 

a9 

00 

20 

db 

83 

a9 

bl 

8650 

; 

90 

20 

76 

8378 

: 

00 

20 

e3 

83 

60 

a9 

00 

20 

85 

8658 

; 

4c 

88 

20 

8380 

: 

eb 

83 

a9 

00 

20 

f 3 

83 

a9 

9a 

8660 

: 

20 

9c 

8f 

8388 

: 

00 

20 

fb 

83 

a9 

00 

20 

03 

29 

8668 

: 

Bb 

20 

b4 

8390 

s 

84 

60 

a9 

00 

Bd 

04 

86 

a9 

15 

B670 

- 

00 

a2 

00 

8398 

: 

02 

8d 

03 

86 

a9 

01 

20 

0b 

2c 

8678 

: 

8d 

9d 

e5 

83a0 

: 

84 

a9 

00 

20 

13 

84 

60 

a9 

27 

8680 

• 

3b 

8e 

9d 

83aB 

: 

02 

20 

lb 

84 

a9 

00 

20 

23 

73 

8688 

; 

d0 

e9 

Bd 

83b0 

: 

84 

a9 

00 

20 

2b 

84 

60 

a9 

b9 

8690 

: 

8d 

10 

d0 

83b8 

: 

01 

8d 

04 

86 

8d 

03 

86 

60 

le 

8698 

- 

a9 

27 

8d 

83c 0 

s 

a9 

00 

8d 

04 

86 

a9 

02 

Bd 

26 

B6a0 

s 

fa 

c3 

8d 

B3c8 

: 

03 

86 

60 

a2 

90 

a 0 

e2 

20 

55 

86a8 

: 

fc 

c3 

a9 

B3d0 

: 

33 

84 

60 

a2 

a0 

a 0 

e2 

20 

Bd 

86b0 

: 

fe 

c3 

Bd 

83d8 

z 

33 

84 

60 

a2 

b0 

a 0 

e2 

20 

96 

86b8 

: 

27 

d0 

a9 

B3e0 

: 

33 

84 

60 

a 2 

C0 

aß 

e 2 

20 

9f 

86c0 

- 

09 

Bd 

29 

83e8 

: 

33 

84 

60 

a 2 

70 

a0 

e3 

20 

a6 

86c8 

: 

dO 

a9 

04 

83f 0 

: 

33 

84 

60 

a2 

80 

a 0 

e3 

20 

af 

86d0 

. 

Bd 

2c 

d0 

83f 8 

: 

33 

84 

60 

a2 

90 

a 0 

e3 

20 

b8 

B6d8 

. 

a9 

01 

8d 

8400 

: 

33 

84 

60 

a2 

a0 

a0 

e3 

20 

cl 

86 e 0 

. 

a9 

0b 

8d 

8408 

8410 

| 

33 

33 

84 

84 

60 

60 

a2 

a2 

70 

80 

a0 

a 0 

a0 

f e 
fe 
ff 

20 

20 

20 

32 

3b 

B6e8 

nti n\ 

: 

26 

d0 

Q J 

a9 

f7ir* 

8418 

: 

33 

84 

60 

a2 

00 

3f 

bot VJ 

86f 8 

3 

: 

a / 

8d 

DU 

10 

VfllQ 

d0 

8420 

: 

33 

84 

60 

a2 

10 

a0 

ff 

20 

48 

8700 

: 

a9 

ff 

8d 

8428 

: 

33 

84 

60 

a2 

20 

a0 

ff 

20 

51 

8708 

. 

d4 

8d 

Ob 

8430 

s 

33 

84 

60 

86 

fb 

84 

fc 

8d 

81 

8710 

- 

55 

8d 

0 c 

8438 

: 

01 

86 

ad 

03 

86 

c9 

01 

f0 

e5 

8718 

: 

aa 

Bd 

0d 

8440 

: 

0c 

c9 

02 

f0 

10 

a9 

ff 

Bd 

39 

8720 

2 

8e 

8d 

29 

8448 


02 

86 

4c 

5a 

84 

a9 

55 

8d 

f 2 

B728 

s 

c5 

8b 

20 

B450 

: 

02 

B6 

4c 

5a 

84 

a9 

aa 

8d 

4f 

8730 

s 

20 

6c 

8c 

8458 

: 

02 

86 

ad 

01 

86 

f 0 

23 

c9 

39 

8738 

: 

00 

bd 

55 

8460 

: 

08 

f0 

29 

c9 

07 

f0 

2f 

c9 

ac 

8740 

: 

e0 

19 

d0 

8468 

: 

06 

f0 

35 

c9 

05 

f 0 

3b 

c9 

c5 

8748 

2 

90 

Bd 

ae 

8470 

: 

04 

f0 

41 

c9 

03 

f0 

47 

c9 

de 

8750 

: 

c8 

8d 

b0 

8478 

: 

02 

f0 

4d 

c9 

01 

f0 

53 

4c 

fc 

8758 

; 

01 

40 

00 

8480 


de 

84 

a2 

5e 

a 0 

85 

20 

e6 

97 

8760 

. 

40 

00 

49 

8488 

: 

84 

4c 

5d 

85 

a2 

de 

a 0 

85 

e9 

8768 

; 

00 

f d 

00 

8490 

: 

20 

e6 

84 

4c 

5d 

85 

a2 

ce 

f 8 

8770 


bd 

dd 

8d 

8498 

s 

a 0 

85 

20 

e6 

84 

4c 

5d 

85 

0b 

8778 

: 

c9 

6f 

f0 

84a0 

: 

a2 

be 

a 0 

85 

20 

e6 

84 

4c 

5e 

8780 


45 

a9 

00 

84a8 

: 

5d 

85 

a2 

ae 

a 0 

85 

20 

e6 

cb 

8788 

: 

9d 

dd 

Sd 

84b 0 

: 

84 

4c 

5d 

85 

a2 

9e 

a0 

85 

0f 

8790 

: 

8d 

bd 

fc 

84b8 

: 

20 

e6 

84 

4c 

5d 

85 

a 2 

8e 

a0 

8798 

. 

de 

87 

0d 

84c 0 

: 

a0 

85 

20 

e6 

84 

4c 

5d 

85 

33 

37a0 

. 

bd 

07 

8e 

84c8 

: 

a2 

7b 

a0 

85 

20 

e6 

84 

4c 

66 

87aB 

2 

88 

8d 

0f 

84d0 

: 

5d 

85 

a2 

6e 

a0 

85 

20 

e6 

eb 

87b 0 

. 

10 

8e 

bd 

84dB 

: 

84 

4c 

5d 

85 

a2 

ee 

a 0 

85 

b9 

87b 8 

. 

8e 

99 

00 

84e0 

: 

20 

b6 

84 

4c 

5d 

85 

86 

fd 

36 

S7c0 

. 

ad 
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Listing 3. Das Hauptprogramm von 
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Listing 3. »Radar 19.obj« (Schluß) 


10 REM LADER <192> 

20 IF A=0 THEN A=l:GOSUB 100:LOAD"SPRITES0 

1.DAT",8,1 <170> 

30 IF A=1 THEN A=2:L0AD"BILD19.DAT" ,8,1 <014> 

40 IF A=2 THEN A=3:LOAD“RADAR19.OBJ",8,1 <148> 

50 SYS 32768 <247> 

100 PRINT"CCLR,10DQWN>" <137> 

101 PQKE 53281,2:P0KE 53280,2 <112> 

110 PRINT"CLIG.RED,10SPACEJWAIT ABGÜT 90 S 

ECONDS" <127> 

120 PRINT“{DOWN,10SPACE,RVSON>I AM LGADING 

.tRVOFF,3SPACE >" <083> 

130 RETURN <188> 


© 64'er 


Listing 4. »Lader«. Dieses kurze Basic-Programm lädt 
alle anderen Programme nach. Nach dem Abtippen 
speichern und mit RUN starten. Beachten Sie auch den 
neuen Checksummer in diesem Heft. 
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Denkspiele 


C 64 


Haben Sie 
ein gutes 
Gedächtnis? 

Mit diesem Spiel, das dem bekannten 
Memory ähnelt, können Sie Ihr 
Gedächtnis testen. Es wird einiges 
gefordert, wenn Sie die schwierigste 
Spielstufe mit 72 Bildpaaren wählen. 
Spielen können Sie gegen den Com¬ 
puter oder gegen bis zu drei Mit¬ 
spieler. 

Sie kennen bestimmt das Spiel »Memory«. Bilder von ver¬ 
schiedenen Gegenständen werden verdeckt oder umge¬ 
dreht ausgelegt. Und zwar von jedem Gegenstand zwei. Ihre 
Aufgabe ist es, möglichst schnell viele Bildpaare herauszu¬ 
finden. 

Ein Spieler beginnt und deckt zwei beliebige Karten auf. 
Jeder Spieler sieht das Motiv. Haben beide Karten das glei¬ 
che Motiv, werden sie vom Spieltisch genommen und mit dem 
nächsten Kartenpaar weitergemacht. Sind die Bilder ver¬ 
schieden, werden die Karten wieder verdeckt und der näch¬ 
ste Spieler versucht sein Glück. 

Es kommt bei diesem Spiel darauf an, daß Sie sich die Lage 
von möglichst vielen Motiven merken. Denn nur so finden Sie 
mit Bestimmtheit die Zwillingskarte. 

Mit diesem Programm können Sie Memory gegen den 
Computer spielen oder gegen menschliche Mitspieler. Im 
letzten Fall übernimmt der Computer die Funktion als Spiel¬ 
feld. 

Es können bis zu 36 Bildpaare in zwei verschiedenen Farb- 
kombinationen ausgelegt werden oder eben maximal 144 
Motive. Spielen Sie nur gegen den Computer, können Sie 
bestimmen, wieviele Bilder sich der Computer »merken« 
kann. Es kann zwischen 1/4 und allen der jemals aufgedeck¬ 
ten Bilder gewählt werden. Stellen Sie ruhig 1/4 ein. Sie sind 
schließlich kein Computer. 

72 Bildpaare 

Nach dem Programmstart müssen Sie etwa 40 Sekunden 
warten, bis alle Motive (Sprites) definiert sind. Danach ent¬ 
scheidet der Computer per Zufall wer beginnt. Sie sind am 
Zug, wenn »SP« (für Spieler und »COM« für Computer) in 
schwarzer Schrift erscheint. Sie können dann das ge¬ 
wünschte Feld mit dem Joystick oder den Cursor-Tasten 
anfahren und mit dem Feuerknopf oder mit RETURN auswäh¬ 
len. Der Computer zeigt Ihnen dann für kurze Zeit das Motiv. 

Sind schließlich alle Bildpaare vom Spielfeld »verschwun¬ 
den«, erfolgt eine kleine Spielauswertung. 

Tips zum Programm 

Die Multicolour-Sprites für die Motive sind als DATAs in den 
Programmzeilen ab 2400 abgelegt. In den DATA-Zeilen ste¬ 
hen 36x63 Byte Bild- und 2x3 Byte Farbinformationen. Die¬ 
ses Format sollten Sie einhalten, wollen Sie eigene Sprites 
entwerfen oder vorhandene umdefinieren. Beachten Sie 
bitte, daß das Programm dabei nicht viel länger werden darf, 
da ab Adresse 14080 die Sprite-Daten im Speicher begin- 
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nen. Die Anfangs-Zeilennummer eines Sprites ergibt sich aus 
Zeilennummer=2400+1 OxSpritenummer. 

(Holger Weber / hm) 


Zeile 

Programmaufbau 

Bedeutung 

20-26 

Anlegen des Stack für die gemerkten Karten 

30-38 

Hat ein Spieler ein Bildpaar entdeckt? 

40-44 

Bildposition schon bekannt? 

50-58 

Bildpaar von Spielfeld nehmen und löschen 

100-380 

a) einiesen der Sprites 

385 - 400 

b) Variablen dimensionieren 

c) Spielparameter testlegen: 

Anzahl der Spieler etc. 

Größe des »Computer-Gedächtnisses« 

410-580 

Aufbau des Spielfeldes 

590-1030 

Sie spielen 

1040-1250 

Computer spielt 

1260-2240 

verschiedene Unterroutinen 

2250-2390 

Endauswertung 

2400 - 2762 

Daten der Sprites 


Programmaufschlüsselung nach Zeilennummern 


10 BOTO 100 <194> 

20 FL=1:FOR I=PR TD 1 STEP-1:IF MC<I>=0 TH 

EN FL=I:GOTO 24 <226> 

22 NEXT I <106> 

24 IF FL<PR THEN FOR I=FL TO PR-1:MC(I)=MC 

(1+1):NEXT I:MC <PR> =0 <212> 

26 RETURN <084> 

30 X7=0:Y7=0:FOR I=C2 TO PR-1:IF MC(I>=0 T 

HEN 36 <002> 

32 FOR 11=1+1 TO PR:IF INT(MC(II))=INT<MC< 

I))THEN X7=I:Y7=MC(II):C2=I:GOTO 38 <181> 

34 NEXT II <010> 

36 NEXT I <120> 

38 RETURN <096> 

« FOR I=PR TO 1 STEP-1:IF MC(I)=HV THEN H 

V=0:GOTO 44 <027> 

42 IF MC (1)00 THEN NEXT I <069> 

44 RETURN <102> 

50 HV=0:FOR I=PR TO 1 STEP-1:IF KHV+l THE 

N 58 <020> 

52 MC(I)=MC(I—HV):IF(MC(I—1))=0 THEN 58 <081> 

54 IF INT(MC(I))=BB(SN)THEN HV=HV+1:MC(I)= 

MC(I-HV):1=1+1 <116> 

56 NEXT I <140> 

58 FOR 1=0 TO HV:MC(I> =0: NEXT:RETURN <214> 

100 REM:(C)HOLGER WEBER <099> 

110 REM:6238 HOFHEIM <031> 

120 REM:AM FORSTHAUS 27 <233> 

130 REM <192> 

140 REM:SPRITES,PARAMETER & MENU <039> 

150 REM <212> 

160 POKE 46,69:CLR:V=5324B:POKE V+21,4:F0R 

1=32 TO 41:POKE V+I,6:NEXT <1B2> 

170 POKE V+29,4:POKE V+23,4:P0KE 646,1:P0K 

E V+4,160:POKE V+5,160:POKE V+2B,4 <024> 

180 PRINT"<CLR >":PRINT:PRINT:PRINT"MSP ACE 

>CA. 40 SEKUNDEN WARTEN , BITTE" <141> 

190 FOR 1=1 TO 36:FOR J=0 TO 62:READ Q:POK 
E(219+1)*64+J,Q:NEXT J:HV=17000+3*I:RE 
AD F <049> 

200 POKE HV+1,F:POKE V+41,F:READ F:POKE HV 

+2,F:POKE V+37,F:READ F:POKE HV+3,F <013> 

210 POKE V+38,F:F0R K=1 TO 3:READ F:POKE H 
V+500+K,F:NEXT K:POKE 2042,219+1:NEXT 
I <134> 

220 DIM BB(145):DIM SP(8):DIM F(8):DIM MC( 

145):DIM SS(8):FOR 1=1 TO 300:NEXT <247> 

230 PC=0:QZ=2:V=53248:PRINT"<CLR>":POKE V+ 

21,0:POKE V+23,0:POKE V+29,0 <136> 

240 PRINT:PRINT:PRINT TAB(10);"1 - JOYSTIC 

K PORT 1" <217> 

250 PRINT:PRINT TAB(10>;"2 - JOYSTICK PORT 

2“ <040> 

260 PRINT:PRINT TAB(10);"3 - TASTATUR (CUR 

SORTASTEN)" <000> 

270 GET A*:TJ=VAL(A*>:IF TJ<1 OR TJ>3 THEN 

270 <072> 


Listing zu »Gedächtnis«. Geben Sie das Listing nur mit 
dem neuen Checksummer in diesem Heft ein. 




V 04 


Denkspiele 


280 ON TJ GOSUB 1340,1350,1360 
290 PRINT"<CLR>":PRINT:PRINT:PRINT"<3SPACE 
>SOLL DER RECHNER MITSPIELEN ?{4SPACE> 
J" 

300 JN=10:NJ=14:X=1180:GOSUB 1720:PC=0:IF 
PEEK (X)=10 THEN PC=1 

310 PRINT:PRINT"<3SPACE>WIEVIELE ANDERE SP 
IELER ?{SSPACE> 4 “ 

320 MIN=1:MAX=5:X=1260:GOSUB 1770:HM=HV 
330 PRINT:PRINT"{3SPACEJWIEVIELE BILDPAARE 
SOLLEN" 

340 PRINT"C3SPACEJAUSGELEGT WERDEN ?<15SPA 
CE >72" 

350 MIN=4:MAX=73:X=1380:GOSUB 1770:BP=HV:I 
F PC=0 THEN 390 

360 PRINT:PRINT"{3SPACEJWIEVIELE BILDER DA 
RF DER" 

370 PRINT"<3SPACEJRECHNER SICH MERKEN ?<11 
SPACE >"j 2*BP 

380 MIN=INT(BP/2):MAX=2*BP+1:X=1500:GOSUB 
1770:PR=HV:QZ=0 

385 IC=BP+1:IC=IC-<IC/2=INT(IC/2)) 

390 IF QZ*QZ<2*BP THEN QZ=QZ+1:G0T0 390 
400 DEF FN IN(X)=INT<(X—INT(X))*1000+.5) 
402 DEF FN B(X)=9B6+2*RL+80*UO 
404 DEF FN BB(X)=9B6+2*INT(CX+QZ-1>/QZ)+80 
*(X-QZ*(INT((SN+QZ-1)/QZ)-1>) 

406 DEF FN R(X)=INT((X+QZ-1>/QZ) 

408 DEF FN U(X)=X-QZ*(RL-l) 

410 REM SPIELBEGINN 

420 PRINT"<CLRJ":FOR RL=1 TO QZ:FOR U0=1 T 
0 QZ 

430 C1=C1+1:A9=24:IF C1>2*BP THEN A9=96 
440 POKE FN B(0),A9:POKE 54272+FN B(0),0:N 
EXT UO,RL 

450 FOR 1=0 TO 24:FOR 11=30 TO 39:POKE 552 
96+40*1+11,1:NEXT II,I 
460 Z=1 

470 X$="SP "+STR*(Z)+"C5SPACEJ“:X=Z*120+10 
57:GOSUB 1680:Z=Z+1:IF Z<=HM THEN 470 
480 IF PC=1 THEN X*="COM":X=1857:GOSUB 168 
0 

490 X=RND(—TI) 

500 FOR 1=1 TO BP:ZZ=INT(RND(0)*2*BP)+1:Z2 
=INT(RND(0)*2*BP)+1 

510 IF BB(ZZ)=0 THEN BB(ZZ)=1:GOTO 540 
520 ZZ=ZZ+1:IF ZZ>2*BP THEN ZZ=ZZ-2*BP 
530 GOTO 510 

540 IF BB(Z2)=0 THEN BB(Z2)=1:GOTO 570 
550 Z2=Z2+1:IF Z2>2*BP THEN Z2=Z2-2*BP 
560 GOTO 540 
570 NEXT I 
580 REM 

590 REM:SPIELBEGINN 
600 REM 

610 AN=RND(0)*2:IF AN>1 THEN 1060 
620 SP=1 

630 FOR N=1 TO 7: POKE 55328+N+120*SP,0:NEX 
T N:RL=1:U0=1 

640 AA=0:A1=0:HV=FN B(0):POKE HV,PEEK(HV)0 
R 128:M1=HV 
650 REM 

660 REM:TASTEN-OD.JST.ABFRAGE 
670 REM 

680 ON TJ GOSUB 1440,1440,1540 
690 IF RE=1 THEN 780 
700 IF LR+OU=0 THEN 680 
710 RL=RL+LR:UO=UO+QU 
720 IF RL>QZ THEN RL=RL-QZ:GOTO 720 
730 IF RL<1 THEN RL=RL+QZ:GOTO 730 
740 IF U0<1 THEN UO=UO+QZ:GOTO 740 
750 IF UO>QZ THEN UO=UO-QZ:GOTO 750 
760 HV=FN B(0>:POKE HV,PEEK(HV>OR 128 
770 POKE Ml,PEEK(Ml)AND 127:M1=HV:GOTO 680 
780 IF(PEEK(HV)AND 24)024 THEN 680 
790 SN=(RL-l)*QZ+UO:GOSUB 860 
800 IF Al<>2 THEN POKE Ml,PEEK(Ml)OR 128:G 
OTO 680 

810 IF Al=2 THEN FOR N=1 TO 7:POKE 55328+N 
+120*SP,1:NEXT N:SP=SP+1:IF SP>HM THEN 
1060 

820 GOTO 630 
830 REM 

840 REM:SPRITE WIRD GEZEIGT 
850 REM 

860 IF SN=AA THEN 680 

870 IF BB(SN)<>BB(AA)THEN 890 


<244> 

< 149> 
<009> 

<251 > 

< 131 > 

< 154> 
<024> 
<253> 

< 157> 
<097> 

<097> 

< 118> 
<0B0> 
<243> 

<048> 

<234> 

< 020 > 

< 220 > 

<249> 

< 113> 
<0B5> 

<055> 

< 123> 
<223> 

< 191 > 

<018> 
<081 > 

<228> 

< 133> 
<242> 
<254> 
<234> 

< 173> 
<076> 

< 146> 

< 134> 

< 163> 
<154> 
<053> 

< 144> 

<254> 

<205> 
<204> 
<018> 
<224 > 
<243> 

< 166> 
<049> 

< 183> 
<054> 

< 156> 
<071 > 
< 110 > 
< 101 > 

< 187> 
<140> 
<178> 

< 168> 


< 132> 
<074> 

< 130> 
<001 > 

< 150> 
< 200 > 

< 117> 


PL 


880 GOTO 990 

890 BS=BB(SN):HV=0:IF BS>36 THEN HV=500:BS 
=BS—36 

900 POKE 2042,219+BS:FOR 1=1 TO 3:F(I)=PEE 
K(17000+3*BS+HV+I):NEXT I 
910 POKE V+2B,4:P0KE V+41,F(1):POKE V+37.F 
(2):POKE V+38,F(3):POKE V+27,4 
920 POKE V+5,36+16*U0:POKE V+4,31+16+RL:PO 
KE V+21,4:AA=SN:POKE FN B(0),32 
930 POKE V+23,0:POKE V+29,0:FOR M=1 TO 900 
:NEXT M:POKE V+21,0:POKE FN B(0>,24 
940 HV=BB (SN)+SN/1000: GOSUB 40: IF HVO0 TH 
EN GOSUB 20:MC(PR)=HV 
950 A1=A1+1:AA=SN:RETURN 
960 REM 

970 REM:RICHTIG GERATEN 
980 REM 

990 HH=SN:HI=AA:SN=AA:GOSUB 890:SN=HH:AA=H 
I 

995 SS(SP)=SS(SP)+1:X*=STR*(SS(SP)):X=120* 
SP+1097 

1000 GOSUB 1680:GOSUB 2220:IF Q=1 THEN 227 
0 

1010 HV=SN:SN=AA:POKE FN BB(SN),32 
1020 SN=HV:POKE FN BB(SN),32:A1=0:GOSUB 50 
:RETURN 
REM 

REM:COMPUTER SPIELT 
REM 

IF PC=0 THEN 620 

FOR 1=56129 TO 56131:POKE 1,0:NEXT:Al 
=0:SP= 6 :AA=0:C2=l: F1=0 
GOSUB 30:HV=MC(X7>:IF X7=0 THEN 1120 
SN=FN IN(HV):RL=FN R(SN):UO=FN U(SN) 
GOSUB 870:IF Al=l THEN HV=Y7:G0T0 109 
0 

1110 GOTO 1080 
1120 GOSUB 1170:GOSUB 870 
1130 FOR 1=1 TO PR—1:IF INT(MC(I))<>BB(SN) 
THEN NEXT I:GOSUB 1170:GOTO 1150 
1140 SN=FN IN(MC(I)):RL=FN R(SN):UO=FN U(S 
N) 

GOSUB 870:IF Al<>2 THEN 1120 
FOR 1=56129 TO 56131:POKE 1,1:NEXT:GO 
TO 620 

1170 SN=INT(RND(0)*2*BP)+1 
1180 RL=FN R(SN):UO=FN U(SN) 

IF(PEEK(FN B(0))AND 24)=24 THEN 1220 
SN=SN+IC 

IF SN>2*BP THEN SN=SN-2*BP:GOTO 1205 
GOTO 1180 

FOR I=PR TO 1 STEP—1:IF FN IN(MC(I>>= 
SN THEN 1200 
IF MC (1)00 THEN NEXT I 
RETURN 
REM 


<254> 


< 172> 


<030> 
< 167> 
<039> 
<087> 


1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 


1160 


1190 

1200 

1205 

1210 

1220 


- UNTERROUTINEN 


1230 
1235 
1240 
1250 REM 
1260 REM 
1270 REM 
1310 REM 

1320 REM:INIT V.CIA 
1330 REM 

1340 JS=56321:POKE 56322,224:GOTO 1360 
1350 JS=56320:POKE 56322,224 
1360 RETURN 
REM 
REM 

REM:J.STICKABFRAGE 
REM 

JO=PEEK(JS>:RE=0:OU=0:LR=0 
IF(JO AND 1)=0 THEN 0U=-1 
2)=0 THEN 0U=1 
4)=0 THEN LR=-1 
8)=0 THEN LR=1 
16)=0 THEN RE=1 


1370 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 


AND 

AND 

AND 

AND 


IF (JO 
IF (JO 
IF (JO 
IF (JO 
RETURN 
REM 

1520 REM:TASTATURABFRAGE 
1530 REM 

1540 RE=0:OU=0:LR=0:GET A*:IF A*=""THEN 15 
40 

1550 IF A*=CHR*(157)THEN LR=LR—1 
1560 IF AS=CHR*(29)THEN LR=LR+1 
1570 IF A*=CHR*(17)THEN 0U=0U+1 
1580 IF A*=CHR*(145)THEN 0U=DU-1 

Listing zu »Gedächtnis« (Fortsetzung) 




<201 > 

< 197> 
<004> 
<087> 
<024> 

<089> 

<20B> 

< 182> 

< 196> 

<254> 

<076> 

< 138> 
<096> 

< 159> 

<057> 

<027> 

<223> 

<248> 

<035> 

< 163> 

< 19B> 

<016> 

< 212 > 

<230> 

< 100 > 

<236> 

<078> 

< 195> 
<079> 

< 151 > 

<212> 
<241 > 
<021 > 
<030> 
<040> 
<062> 
<060> 

< 102 > 
<055> 
< 122 > 
<252> 
< 100 > 

< 14B> 

< 162> 
< 202 > 
<003> 
<222> 
< 126> 
<014> 
<043> 
< 020 > 
<178> 
<205> 
<032> 
<046> 
<062> 
<066> 

< 184> 

< 198> 
< 201 : 
<226) 

< 004 : 














Denkspiele 


C 64 




1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 


2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2411 

2412 

2420 

2421 

2422 

2430 

2431 

2432 

2440 

2441 

2442 
2450 


2451 


2452 

2460 


IF A*=CHR*(13)THEN RE=1 

RETURN 

REM 

REM:ALTERNIERENDES JA/NEIN 
REM 

HV=PEEK(X>:JN=NJ:NJ=HV:POKE X,JN:RETU 

RN 

REM 

REM:BILDSCHIRMPOKE 
REM 

FÜR 1 = 1 TO LEN<X*):POKE X+I-l,ASC(MID 

*(X*,1,1))AND 63:NEXT I:RETURN 

REM 

REM:MENU-STEUERUNG 
REM 

GOSUB 1640 

ON TJ GOSUB 1440,1440,1540 

IF OU+LRO0 THEN GOSUB 1640 

IF RE=0 THEN 1730 

RETURN 

HV=MAX-1 

X*=MID*(STR*(HV),2)+"12SPACE >":GOSUB 
1680 

ON TJ GOSUB 1440,1440,1540 
IF OU+LRO0 THEN HV=HV+1:IF HV=MAX TH 
EN HV=MIN 

IF RE=1 THEN RETURN 

GOTO 1780 

REM 

REM:ENDE J/N 
REM 

Q=0:EE=0:FOR 1=1 TO HM:EE=EE+SS(I):NE 
XT:EE=EE+SS( 6 >:IF EE=BP THEN Q=1 
RETURN 
REM 

REM:ENDE 
REM 

PRINT"<CLR>":PRINT:PRINT:PRINT"<3SPAC 
EISPIELSTAENDE:":PRINT 
FOR 1=1 TO HM 

PRINT I;". SPIELER-C2SPACE> — <2SPACE >"5 

SS(I);" PAARE":PRINT 

NEXT 

PRINT:PRINT"C4SPACE JCOMPUTER C2SPACE>- 
T2SPACE>";SS( 6 >;" PAARE":PRINT:PRINT: 
PRINT 

PRINT"{ 8 SPACEJDRUECKEN SIE EINE TASTE 

POKE 56322,255 

GET A*:IF A*=""THEN 2340 

FOR 1=0 TO 145:BB(I)=0:MC(I)=0:NEXT I 

FOR 1=0 TO 8 :SS(I)=0:SP(I)=0:NEXT I 

PRINT"CCLR >":CLR:GOTO 220 

REM 

REM 

REM:SPRITE—DATA 

DATA,,,,,,,,,,,,,,252,,,252,,,252,,,2 

52.. .252...252.255.255.252 

DATA 221,221,220,221,221,220,221,221, 

220 , 221 , 221 , 220 , 221 , 221,220 

DATA 255,255,252,170,170,168,170,170, 

168.170.170.168.. ..5.1.9..1.15 
DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 

DATA,,,,,42,160,,191,224,2,255,232,23 
4,170,170 

DATA 165,170,90,101,170,89,5,,80,,,,5 
,,15,2,,1 

tiimitiiiimmiTiliim 85 1 85 , 

84, 

DATA 192,,3,240,3,15,255,255,59,187,1 
91,63,191 

DATA 255,63,191,252,15,255,192,,,,,,, 

11 m 1 » 1,,7 

DATA,,,,,,,,,,,,,,,,,,,,,,,,,, 

DATA 40,,,42,,161,42,2,169,42,170,169 
,254,170,169,42,170,169,,63,241 
DATA,255,192,,,,,,,,,,,,,2,,15,3,,15 
DATA 2,170,160,10,170,168,10,105,168, 
42,170,168,106,106,168,166,169,166,10 
6 

DATA 170,170,170,154,154,166,170,169, 

170.60.154.104.60.170.168.60.42.. 60.1 
0 

DATA,60,8, ,60, , ,60, , ,60, , ,255,252, 15, 

255.255.48.255.12.. 192..5.4.9.3.2.9 
DATA,,,,,,,85,64,,85,64,,85,64,,89,64 


< 160 > 

< 134> 

< 14B> 

< 15B> 
<168> 

<056> 

< 18B> 
<187> 
<208> 

<050> 
<228> 
<221 > 
<248> 

< 120 > 
<021 > 
<078> 
<023> 
<038> 
<038> 

<044> 
<081 > 

< 182> 
<055> 
<095> 

< 114> 

< 104> 
<240 > 

<075> 

< 000 > 

<014> 

< 185> 
<034> 

< 137> 
<051 > 

<146> 

< 022 > 


<211 > 

< 194> 
<174> 
<201 > 
<078> 
<062> 
<205> 

< 156> 

< 166> 
<154> 

<023> 


2461 

2462 

2470 

2471 

2472 

2480 

2481 

2482 

2490 

2491 

2492 

2500 

2501 

2502 

2510 

2511 

2512 

2520 

2521 

2522 
2530 

.2531 

2532 

2540 

2541 

2542 

2550 

2551 

2552 


,,85,64,,85,64,,85,64 

DATA,,,,,,,1,85,,1,153,,1,85,85,65,10 
1,102,65,85,85,65,153 

DATA 102,65,B5,85,64,,102,64,,85,64,, 

data’ 60 ’,,16,,5,20,,5,21,,5,21,64,5,2 

1,64,21,21,80,21,21,80,21,21 

DATA 84,85,21,84,85,21,84,85,21,85,85 

,21,85,,128,,170,170,170,42 

DATA 170,170,10,170,168,2,170,168,,,, 

t m »» »^»1|2,1,15,5 

DATA,,,,,,,,,4,,,4,,,4,,,40,,,40,,,40 
,,.42,,,10 

DATA 128,2,10,128,42,10,170,170,2,170 
,168,2,170,168,,170,128,,, 

DATA,,,,,,,,,,,,7,,6,3,,6 

DATA,,,2,170,128,10,170,160,43,255,23 

2,47,255,248,46,170,184,42,190 

DATA 168,46,190,184,47,255,248,47,255 

,248,45,255,120,47,85,248,15,255,240 

DATA 3,255,192,,255,,,60,,,,,,,,,,,,, 

,,,,,2,10,,2,9 

DATA,48,,,184,,,136,,10,118,128,60,20 

4.240.10.118.128.. 136...184 

DATA,,184,,4,48,,4,16,,4,16,,4,16,,5, 

16.. 5.16..1,B0,,0,80, 

DATA,64,,, 64,,, 64,,,,, 2,5, 10,7,5,8 

DATA,,,3,200,,3,234,,3,170,128,3,170, 

160,10,170,168,42,170,170 

DATA 42,170,170,5,85,84,5,B5,84,4,16, 

4,4,16,4,4,16,4,4,21,84,4,21,84 

DATA 4,21,84,5,85,84,,,,,,,,,,,,,2,1, 

,,15,12 

DATA,,,68,64,10,85,64,10,85,64,1,B5,6 
4,1,68,64,1,85,68,69 

DATA 85,85,85,68,81,21,68,85,85,85,85 
,85,68,81,17,127,81,17,127,85,81 
DATA 127,85,85,127,85,85,127,85,85,,, 
,,,,,,,,,,2,15,,5,15,9 


DATA,10,170,,42,168,,42,,,85,,1,85,64 
,5,85,80,5,85,80 

DATA 21,85,84,21,85,84,21,85,84,21,85 

,84,21,85,84,21,85,84,5,85,80 

DATA 5,85,80,1,85,64,,85,,,,,,,,,,,,, 

,5,10,6,3,2,6 

DATA,,,,,,,,,,,,12,,,15,192,,15,255,2 
55,15,255,255,,63 

DATA 255,63,63,255,59,63,255,59,63,25 
5,59,127,255,255,127,255,191,85,87 
DATA 191,213,87,255,255,255,84,241,69 
,212,241,69,20,1,69,,,,1,,15,1,,5 
DATA, ,,,,,,,,,,,,,,,,,4,,,23,,,81,192 
,,85,112, 

DATA 81,85,92,65,85,95,1,85,87,5,85,8 

7,4,64,23,4,64,87,4,64,68 

DATA 4,32,68,4,,68,8,,130,,,,,9,12,,1 


<042> 

<227> 

< 113> 

< 120 > 
<064> 
<165> 
< 161 > 

<0B0> 

< 184> 

<007> 
<220> 
<231 > 

< 164> 

< 159> 

< 140> 

< 1B4> 
<092> 

< 184> 
<033> 

< 155> 

< 173> 
<052> 

< 142> 

< 172> 
<111> 

< 125> 

< 180> 
<027> 

< 148> 

< 109> 


<207> 

<245> 

< 171 > 

< 167> 
<023> 
< 202 > 

< 198> 

<231 > 

< 194> 

< 141 > 
<071 > 

< 193> 

< 150> 
<059> 


2560 DATA,,,,,,,,,,,,,,,,85,1,1,85,65,5, SS 
,81,20,255,209 

2561 DATA 85,95,213,21,86,169,21,167,213,8 
5,135,209,5,43,81,1,125,65 

2562 DATA,85,,,,,,,,,,,,,,,,,11,15,12,6,14 
,3 

2570 DATA,2,128,,10,128,,42,128,,40,,,48,, 
,48,,,240, 

2571 DATA,204,,,207,,3,3,,3,3,,3,3,,12,3,1 
92,12,,192,20,,192 

2572 DATA 85,,80,85,1,84,85,1,84,20,1,84,, 

,80,,,,5,2,,5,10, 

2580 DATA,16,,,84,,,16,,,84,,1,17,,,16,0,1 
,B5,,4,16,64 

2581 DATA,84,,5,B5,64,4,16,64,,84,,21,85,8 
0,16,16,16,1,85,,21,85,80 

2582 DATA 84,32,84,,32,,,168,,2,130,128,,, 

9 5 3 9 3 5 

2590 DATA’,,’,’,’170,160,2,,8,2,,8,2,,8,2,, 
8,2,5,8,2,21,72 

2591 DATA 1,85,85,85,85,85,85,85,85,21,85, 
85,21,85,85,5,85,85,5,85,85 

2592 DATA 5,85,85,5,85,85,1,85,84,1,85,84, 
,,,1,9,6,15,14,6 


2600 DATA,,,,,,,,,,,,,,,,,,,,,,48,,, 

2601 DATA 3,,,35,193,64,43,48,195,35 

Listing zu »Gedächtnis« (Fortsetzung) 


192,, 

,,254 


3 


<231 > 

< 119> 
<230> 
<094> 

< 168> 
<018> 
<050> 
<252> 

< 178> 

< 114> 

< 113> 

< 126> 
<043> 
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3.. .20.192.20 <144> 

2602 DATA 65,240,65,65,63,241,65,48,65,65, 

4.65.20.. 20.2..15.9..14 <068> 

2610 DATA,,,4,,,20,,,20,,,20,,,22,170,170, 

22.170.170.20., <127> 

2611 DATA 20,,,20,,,20,,,,,,,,,252,,,48,,, 

48.. .48., <065> 

2612 DATA 48,,,48,,,48,,,48,,,9,,1,9,, <016> 

2620 DATA,,,,,,,,,,21,64,,85,80,,69,16,1,8 

5.84.1.85.84 <139> 

2621 DATA 10,175,170,1,111,148,2,149,184,8 

,85,82,,21,64,,149,96,1,106,148 <151> 

2622 DATA 9,85,86,6,170,169,5,85,85,5,85,8 

5.21.64.21.55.. 55.12.7..12.14, <245> 

2630 DATA,,,,15,,,15,192,,15,240,,15,240,, 

15.208.. 15.208..15.208 <248> 

2631 DATA,13,84,,21,85,,21,85,,21,85,,85,8 

5.. 85.149..90.149.1.106.149 <082> 

2632 DATA 1,170,149,5,170,169,42,169,169,1 
70,149,170,170,170,170,5,15,1,15,15,1 <020> 

2640 DATA 1,17,16,1,85,80,1,101,80,1,69,80 

,,85,64,,85,64,,85,64,,101,64 <014> 

2641 DATA,69,64,,86,64,,84,64,,85,64,,85,6 

4., B5,64,,85,64,,B5,64 <021> 

2642 DATA,85,64,,125,64,,125,64,,125,64,,1 

25.64.. 15.9.9.12.12 <079> 

2650 DATA 2,170,0,2,170,64,2,170,80,2,170, 

84.2.170.84.2.170.84.2.170.84 <077> 

2651 DATA 2,170,84,2,170,84,2,190,84,2,174 

,84,2,174,84,2,170,84,2,170,84,2,170 <045> 

2652 DATA 84,2,170,84,2,170,84,2,170,B4,2, 

170,84,2,170,84,2,170,B4,l,,9,9,, <198> 

2660 DATA 238,238,238,187,1B7,187,238,238, 

238.187.187.187.238.238.238.187.187 <096> 

2661 DATA 187,238,238,238,187,187,187,238, 

238.238.187.187.187.238.238.238.187 <080> 

2662 DATA 187,187,238,238,238,187,187,187, 

238,238,238,187,187,187,238,238,238 <098> 

2663 DATA 187,187,187,238,238,238,187,187, 

187.238.238.238.1.. .2.10.6 <187> 

2670 DATA,80,,5,64,,5,2,,21,10,128,21,2,,8 

5 .. .84...84...84., <1^2>., 

2671 DATA 84,,,84,0,8,84,,42,84,,8,21,,,21 

,,,5,,32,5,64,168 <152> 

2672 DATA 1,64,32,0,80,,,,,,,,1,7,,6,1, <237> 

2680 DATA,,,192,,,192,,,252,,,252,,,252,,3 

,255,255,,253,95,,149 <203> 

2681 DATA 39,,85,167,,85,165,,49,165,,241, 

165,91,49,85,90,61,85,86,253,127 <141> 

2682 DATA 86,61,,214,61,255,215,61,15,215, 

253.207.95.50.207.176.. 1.6..9.6 <119> 

2690 DATA,,,,,,,,,,,,,,,,,,,,,,,,,84,,1,85 

,,5,85,64 <040> 

2691 DATA 21,85,152,37,86,154,33,85,85,32, 

1.221.8.1.85.2.. 84..168.16..2, <136> 

2692 DATA,8,,,,,,12,2,,14,3 <041> 

2700 DATA,16,,,16,,,16,,,16,,,84,,,68,,,84 

,,,84,,,84,,,84, <168> 

2701 DATA,84,,,84,,,84,,,84,,1,117,,5,117, 

64,5,117,64,21,85,80 <162> 

2702 DATA 20,168,80,20,168,80,20,136,80,2, 

12.. 8.1.1 <040> 

2710 DATA,40,40,,168,42,2,128,2,10,,,10,,, 

20.. .20..85.20..64.85.20 <009> 

2711 DATA 64,85,85,64,85,85,84,85,85,101,2 

1,85,85,21,85,85,85,85,85,169,85,85 <119> 

2712 DATA 171,252,84,168,79,68,95,255,252, 

84.84.84.85.85.85.1.. 9.15..15 <124> 

2720 DATA,,,,,,,,,,,,,,3,,,252,,3,48,,,48, 

,7,48,,203,252 <078> 

2721 DATA 3,255,252,63,255,B4,215,255,84,2 

15,255,84,20,0,84,170,170,170 <069> 

2722 DATA 170,170,170..... , 12, ,7,12 

,,2 <154> 

2730 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,170, 

,2,170,,42 <040> 

2731 DATA 85,42,165,65,127,212,1,95,64,1,2 

^11^11ffM11ll!MT,t,^,9,7,, <088> 

2740 DATA,86,,1,B6,128,5,150,160,22,149,16 

0,22,149,84,86,149,86,86,149,86 <211> 

2741 DATA 86,149,86,85,149,86,85,85,86,85, 

85,85,37,85,164,41,86,144,2,86,128 <118> 

2742 DATA,86,,,,,,,,,,,,,,,,,,,,,1,6,3,3,3 <097> 

2750 DATA 255,255,255,255,255,255,255,255, 

255,255,255,255,255,255,255,255,255 < 082 > 

2751 DATA 255,255,255,255,255,255,255,255, 

255,255,255,255,255,255,255,255,255 < 083> 


2752 DATA 255,255,255,255,255,255,255,255, 

255,255,255,255,255,255,255,255,255 < 084 > 

2753 DATA 255,255,255,255,255,255,255,255, 
255,255,255,255,2,2,2,7,7,7 

2760 DATA, 15, , , 122, 192, , 122, 192, 1,122, 192, 

5.15.. 4...4...4...4., 

2761 DATA 4,64,,4,64,,4,64,,5,,,68,,,68,,, 

84.. .20...20., <011> 

2762 DATA 4,,,4,,,4,,,1,5,2,7,3,8 <119> 


<057> 


<098> 
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Listing zu »Gedächtnis« (Schluß) 


Haie und 
Heringe: 
Fressen und 
gefressen 
werden 

Es ist sehr schwierig, ein biologisches 
Gleichgewicht zu erhalten. Wie 
schwierig, können Sie mit diesem 
Simulationsprogramm leicht feststel¬ 
len. ' laie und Heringe kämpfen ums 
Überleben. 

Fressen und gefressen werden. Dieses Sprichwort findet 
seine Anwendung in diesem biologischen Simulationspro¬ 
gramm, bei dem Sie versuchen müssen in einem torusförmi¬ 
gen See namens »Wator« zwischen Haien und Heringen ein 
biologisches Gleichgewicht zu schaffen. 

Jeder Fisch kann sich innerhalb des ganzen Sees frei 
bewegen. Es gibt keinen Platz, an dem sich die kleinen He¬ 
ringe vor den großen Haien verstecken können. Deshalb 
auch der torusförmige See. Will ein Fisch den »Spielfeldrand« 
verlassen, wird er einfach auf die gegenüberliegende Seite 
versetzt. Dadurch werden Randeffekte, wie beispielsweise 
an einer Meeresküste, vermieden. Futter ist für die Heringe, 
unabhängig von ihrer Zahl, immer genügend vorhanden. Die 
Haie allerdings können sich nur von den Heringen ernähren. 
Erwischt ein Hai innerhalb einerzu bestimmenden Zeit keinen 
Hering, verhungert er. Aber nicht nur dieser Faktor kann ein¬ 
gestelltwerden, sondern auch nach wievielen Jahren sich ein 
Hai oder ein Hering im Durchschnitt vermehren soll, und mit 
wievielen Haien und Heringen die Simulation beginnen soll. 

Das Problem besteht nun darin, eine Kombination aus den 
fünf Faktoren zu finden, die jede Art möglichst lange erhält. 

Das Programm zeigt Ihnen dabei ständig die Entwicklung 
der ganzen Sache. Die Haie als rote Kreise (Groß/Grafikmo¬ 
dus) und die Heringe als schwarze Punkte. Außerdem wird 
angezeigt, wieviele Fische von jeder Sorte momentan existie¬ 
ren und wieviele Jahre das System schon läuft. 

Sie werden schnell feststellen, daß das Gleichgewicht 
ständigen Schwankungen unterliegt. Häufig wird Wator von 
regelrechten Katastrophen heimgesucht: Haie vermehren 
sich so schnell, daß alle Heringe schnell gefressen sind und 
die Haie verhungern müssen. Oft aber schaffen es die Haie 
nicht, alle Heringe zu fangen und das Haisterben beginnt 
schon, bevor alle Heringe gefressen sind. Nach einer Krise 


( 


45 












Denkspiele 


C 64 


kommt es meist zu einer Phase relativer Ruhe, in der der 
Bestand nahezu konstant bleibt. 


Lokale Katastrophen 
sind unvermeidbar 


Das interessanteste an der Simulation sind eben genau sol¬ 
che Katastrophen. Da stürzt sich eine Meute von Haien auf 
ein paar Heringe und man meint, deren letzte Stunde hätte 
geschlagen. Aber irgendwo am Rande der Schlacht überle¬ 
ben doch einige Heringe, die sich wieder vermehren, wäh¬ 
rend die Haie wegen eigener Überbevölkerung und zu wenig 
Nahrung verhungern. 

Alle Erfolgskombinationen haben einige Tatsachen ge¬ 
meinsam: Die Heringe vermehren sich etwa 2-5mal schneller 
als die Haie und die Haie verhungern sehr schnell. Bei dem 
einfachen Regelkreis gibt der Parameter »Hunger« an, wie 
schnell die Haie auf das Heringsangebot reagieren. Reagie¬ 
ren sie zu langsam, kann dies das Ende der Haie bedeuten. 
Reagieren sie zu schnell, kann es passieren, daß alle Haie 
aussterben, obwohl noch vielleicht 200 Heringe da sind. Ein 
weiteres Merkmal sind lokale Katastrophen. Während in 
einem Bereich ein Haisterben stattfindet, leben in einem 
anderen Bereich die Haie in »Saus und Braus«. Dadurch wird 
eine theoretisch errechnete Sinusschwingung des Systems 
aus einer Vielzahl von gekoppelten Vorgängen zusammenge¬ 
setzt, was eine mathematische Erfassung sehr kompliziert. 

Tips zur Eingabe 

»Wator« besteht aus einem Basic-Programm zur Variablen¬ 
eingabe und einem etwa 1500 Byte langen Maschinenpro¬ 
gramm »WATOR-MSP«, das vom Basic-Programm »Wator« 
geladen wird. Das Maschinenprogramm sollten Sie mit dem 
MSE eingeben, das Basic-Programm mit dem neuen Check¬ 
summer. Nachdem Sie jedes Programm auf Diskette (!) 
gespeichert haben, laden Sie »Wator« und geben RUN ein. 
Das Maschinenprogramm wird geladen und die Simulation 
beginnt. 

(Siegmar Kutschker / hm) 


10 

REM 

******************************** 

<060> 

11 

REM 

* 


* 

<060> 

12 

REM 

* 

WATOR VERSION 1.0 

* 

< 143> 

13 

REM 

* 

8.4.1985 

* 

<214> 

14 

REM 

# 


* 

<063> 

15 

REM 

* 

WRITTEN BY 

* 

<220> 

16 

REM 

* 


* 

<065> 

17 

REM 

* 

SIEGMAR KUTSCHKER 

* 

<223> 

18 

REM 

* 

SACHSENHEIMER WEG 5 

* 

< 163> 

19 

REM 

* 

7122 BESIGHEIM 

* 

<086> 

20 

REM 

* 


* 

<069> 

21 

REM 

* 

NACH EINER IDEE AUS 

* 

<055> 

22 

REM 

* 


* 

<071 > 

23 

REM 

* 

SPEKTRUM DER WISSENSCHAFT 

* 

<212> 

24 

REM 

* 


* 

<073> 

25 

REM 

* 

2/85 

* 

< 130> 

26 

REM 

* 


* 

<075> 

30 

REM 

******************************** 

<0B0> 

40 

POKE 56 

,112:POKE 55,0:REM BASIC BEREICH 



EINSCHRAENKEN 


< 170> 

45 

c 




<021 > 

50 

IF PEEK(2) = 0 THEN POKE 2,1: LOAD 

"WAT 



OR MSP" 

,8,1 


<044> 

60 

REM 

DEFINITIONEN DER ADRESSEN 


<061 > 

70 

HP = 

■ 34816 :REM PROGRAMM-START 


< 199> 

75 

ZP = 36608 :REM ERSATZZEROPAGE 


<179> 

80 

FA = 

• ZP 

+ 116:REM FISCHE ANZAHL 


<042> 

85 

HA = 

= ZP 

+ 118:REM HAIE ANZAHL 


<154> 

90 

VF = ZP 

+ 120:REM VERMEHRUNGSALTER 

FISC 



H 




<087> 

95 

VH = 

‘ ZP 

+ 121:REM VERMEHRUNGSALTER 

HAIE 

<028> 


100 Hü = ZP + 122:REM ALTER IN DEM HAIE VE 

RHUNGERN <215> 


105 ZU = ZP + 6:REM ZUFALLSGENERATOR <220> 

115 HU7.= 1: VH7.= 1: VFX= 1: REM ANFANGSWERTE SET 

ZEN <086> 

120 POKE 53280,0:POKE 53281,0 :POKE 646,1: 

REM FARBE SETZEN <229> 

130 PRINT CHR*(147):REM BILDSCHIRM LOESCHE 

N <15B> 

140 PRINT:PRlNT:PRINT:PRINT:PRINT:PRINT:PR 

INT <176> 

150 PRINT" <11 SPACE > flYYYYVYVYYYYYYYYYVY £ " <106> 

160 PRINT"<11SPACE >H<18SPACE >ff " <063> 

170 PRINT"<11SPACE>H<4SPACE>W A T O R15SPA 

CEJff " <126> 

180 PRINT"<11SPACE>ffU8SPACE>U " <083> 

200 PRINT:PRINT:PRINT:PRINT:PRINT TAB(3) " 

WOLLEN SIE EINE ANLEITUNG LESEN?" <106> 

210 PRINT:PRINT TAB(3) "<J/N)“ <027> 

220 GET T*:IF T* = ••" THEN 220 <031 > 

230 IF T* = "J" THEN GOSUB 16000:GOTO 250 <121> 

240 IF T* <> “N" THEN 220 <223> 

250 GOSUB 10200 <038> 

300 REM MENUE <234> 

301 POKE 53280,0:POKE 53281,0 :POKE 646,8: 

REM FARBE SETZEN <170> 

305 PRINT CHR$(147);:PRINT TAB(11)"ZYKLENA 

NZAHL:C2SPACE}" AZ:POKE 646,1:PRINT <096> 
310 PRINT"FISCHE VERMEHREN SICH NACHC6SPAC 

EJJAHR(EN)" <194> 

315 PRINT:POKE 646,7 <117> 

320 PRINT" HAIEC2SPACE>VERMEHREN SICH NACH 

{6SPACE >J AHR(EN) <222> 

325 PRINT:PRINT:POKE 646,1 <055> 

330 PRINT"(6SPACEIWIR HABEN DERZEIT<9SPACE 

JFISCH(E) <1S0> 

335 POKE 646,7 <015> 

340 PRINT"<20SPACE>UNDt9SPACE>HAI<E> <079> 

345 PRINT:POKE 646,7 <147> 

350 PRINT"C2SPACEJDIE HAIE VERHUNGERN NACH 

<6SPACE>JAHR(EN) <188> 

355 PRINT:POKE 646,5 <153> 

360 PRINT"C10SPACEJBITTE WAEHLEN SIE: <223> 

7,5 PRINT:PRINT: POKE 646,14 <162> 

370 PRINT"<4SPACE><1> ANLEITUNG <109> 

375 PRINT:POKE 646,3 <169> 

380 PRINT"<4SPACE><2> AENDERN DER PARAMETE 

R <148> 

385 PRINT:POKE 646,4 <181> 

390 PRINT"<4SPACE><3> FORTFAHREN IM PROGRA 

MM <082> 

400 PRINT CHR*(19):PRINT:POKE 646,10 <23B> 

410 PRINT TAB<26) VFX <013> 

420 PRINT: PRINT TAB(26) VH7. <176> 

430 PRINT:PRINT:PRINT TAB(26) FAX <042> 

440 PRINT TAB (26) HA7. <031 > 

450 PRINT:PRINT TAB(26) HUX <230> 

460 POKE 646,1 <137> 

500 GET T*:IF T* = THEN 500 <025> 

510 IF T* = "1" THEN GOSUB 16000:GOTO 300 <226> 

520 IF T* = "2" THEN GOSUB 10000:GOTO 300 <015> 

530 IF T* = "H“ THEN GOSUB 18650:GOTO 300 <165> 

540 IF T*<> "3"THEN 500 <236> 

1000 POKE ZU,256*RND(1) <020> 

1010 POKE ZU+1,256*RND(1> <173> 

1020 IF AZ=0 THEN SYS HP <131> 

1030 SYS HP+3 <240> 

1040 IF PEEK(ZP+12B)=0 THEN AZ=AZ+65536:GO 

TO 1030 <199> 

1050 AZ = AZ + PEEK(ZP+129) + PEEK(ZP+130) 

*256+1 <095> 

1060 FAX = PEEK(FA)+PEEK(FA+1)*256 <073> 

1070 HA7. = PEEK (HA) +PEEK (HA+1) *256 <222> 

1100 GOTO 300 <028> 

9000 STOP <176> 

10000 PRINT CHR*(147):POKE 646,1:UG =0:OG= 

512:I=FAX: <127> 

10005 PRINT"OHNE EINGABE BLEIBEN DIE ALTEN 
WERTE<4SPACEIERHALTEN”:PRINT:PRINT: 

PRINT <211> 

10010 PRINT“BISHER HATTEN WIR "I "FISCHE": 

PRINT <194> 

10020 PRINT"WIEVIELE IN ZUKUNFT":GOSUB 150 

00 <234> 


Basic-Listing zu »Wator«. Geben Sie dieses Listing am 
besten mit dem Checksummer in dieser Ausgabe (und 
bitte nur mit diesem) ein. 
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10030 PRINT:FAX = I <042> 

10040 UG = 0:OG = 512 -FAX:I = HAX <149> 

10050 PRINT"BISHER HATTEN WIR “I “HAIE“:PR 

INT <057> 

10060 PRINT"WIEVIELE IN ZUKUNFT":GOSUB 150 

00 <018> 

10070 PRINT:HAX = I <114> 

10080 UG = 1:QG = 255 <051> 

10090 PRINT:PRINT:PRINT"BISHER VERMEHRTEN 

SICH FISCHE NACH" <24B> 

10100 PRINT"DEM “VFX” TEN JAHR" <224> 

10110 PRINT"NACH WIEVIELEN JAHREN IN ZUKUN 

FT" <1B9> 

10120 I = VFX:GOSUB 15000:VFX=I <205> 

10130 PRINT:PRINT:PRINT"BISHER VERMEHRTEN 

SICH HAIE NACH“ <037> 

10140 PRINT"DEM "VHX" TEN JAHR“ <012> 

10150 PRINT"NACH WIEVIELEN JAHREN IN ZUKUN 

FT" <229> 

10160 I = VHX:GOSUB 15000:VHX=I <056> 

10170 PRINT:PRINT:PRINT"BISHER VERHUNGERTE 

NI2SPACE}HAIE NACH“ <039> 

10180 PRINT"DEM "HUX" TEN JAHR" <064> 


10190 PRINT"NACH WIEVIELEN JAHREN IN ZUKUN 
FT":I=HUX:GOSUB 15000:HUX=I 
10200 POKE VH,VHX—1:W = VHX-1:GOSUB 11000: 
POKE VH+3.W1 

10210 POKE VF,VFX—1:W = VFX-1:GOSUB 11000: 
POKE VF+3.W1 

10220 POKE HU,HUX—1:W = HUX-1:GOSUB 11000: 
POKE HU+3.W1 

10240 POKE HA+1,1NT(HAX/256) 

10250 POKE HA,HAX—INT(HAX/256)*256 
10260 POKE FA+1,INT(FAX/256) 

10270 POKE FA,FAX—INT(FAX/256)*256 
10280 AZ = 0 
10300 RETURN 
11000 W1=0 

11010 IF W1<W THEN W1 = Wl+Wl+1:GOTO 11010 

11020 RETURN 

14500 STOP 

15000 INPUT I 

15100 I=INT(I) 

15200 IF UG <= I AND OG >=I THEN RETURN 
15300 PRINT:PRINT”WERT ZWISCHEN “ UG“ UND 
"OG “EINGEBEN!“:GOTO 15000 
16000 REM ANLEITUNG 

16050 PRINT CHR* (147):PRINT:PRINT:PRINT 
16100 PRINT TAB (12) "*********" 

16150 PRINT TAB(12) "* WATOR *“ 

16200 PRINT TAB(12) "*********" 

16250 PRINT:PRINT 

16300 PRINT TAB(5) "IST EIN SEHR INTERESSA 
NTES“:PRINT 

16350 PRINT TAB(5) "SIMULATIONSPROGRAMM.": 
PRINT 

16400 PRINT TAB(5)"SIMULIERT WIRD EIN OEKO 
SYSTEM, IN":PRINT 

16450 PRINT TAB(5)"DEM SICH ZWEI VERSCHIED 
ENE ARTEN":PRINT 

16500 PRINT TAB(10)"VON TIEREN TUMMELN:":P 
RINT 

16550 PRINT TAB(11)“HAIE UND FISCHE.":PRIN 
T:PRINT:PRINT 
16600 GOSUB 21000:PRINT 

16650 PRINT TAB(5)"JEDES TIER KANN SICH BE 
WEGEN UND":PRINT 

16700 PRINT TAB(5)"SICH VERMEHREN, WOBEI D 
IE":PRINT 

16750 PRINT TAB(5)"HAIE VERSUCHEN, DIE FIS 
CHE ZU":PRINT 

16800 PRINT TAB(5)"FRESSEN. NAHRUNG FUER D 
IE FISCHE":PRINT 

16850 PRINT TAB(5)"GIBT ES IM UEBERFLUSS." 
:PRINT 

16900 PRINT TAB(5)"FINDET EIN HAI EINE ZEI 
T LANG":PRINT 

16950 PRINT TAB(5)"KEINEN FISCH, SO VERHUN 
GERT ER.":PRINT 

17000 PRINT TAB(5)"LEBENSRAUM IST EIN SEE, 
DER IN":PRINT 

17050 PRINT TAB(5)"DER FORM EINES TORUSSES 
GEKRUEMMT":PRINT 

17100 PRINT TAB(5)"IST. DAHER DER NAME WA 
TOR'.":PRINT 

17110 PRINT:PRINT:GOSUB 21000 
17120 FOR 1=0 TO 10:PRINT:NEXT 


<129> 

< 131 > 
<042> 

< 190> 

< 160> 
<216> 

< 156> 
<059> 

< 128> 

< 198> 
<099> 
<20B> 

< 156> 
<086> 

< 108 > 
< 112 > 
<099> 

<0B7> 

<023> 

<060> 

< 002 > 

<035> 

< 104> 
< 200 > 

< 113> 
< 022 > 
<206> 
<073> 
<201 > 

< 129> 
<201 > 

<214> 

<0B6> 

< 140> 
<079> 
<025> 
<094> 

< 114> 
<153> 
<233 > 

< 195> 

< 191 > 

< 169> 


17200 PRINT TAB(5)“MEHR ZU DIESEM THEMA FI 
NDEN SIE“:PRINT 

17230 PRINT TAB(5)"IM SPEKTRUM DER WISSENS 
CHAFT":PRINT 

17260 PRINT TAB(15)"2/85.“:FOR 1=0 TO 10:P 
RINT:NEXT:GOSUB 21000: 

17265 FOR 1=1 TO 20:PRINT:NEXT 
17270 PRINT TAB(5)"VON IHNEN KOENNEN 5 VER 
SCHIEDENE“:PRINT 

17300 PRINT TAB(5)"PARAMETER EINGESTELLT W 
ERDEN.":PRINT 

17310 PRINT TAB(10)"UND ZWAR:“:FOR 1=0 TO 
10:PRINT:NEXT:GOSUB 21000 
17320 FOR 1=0 TO 30:PRINT:NEXT 
17330 PRINT TAB(5)"DIE VARIABLE":PRINT 
17350 PRINT TAB(5)“'ANZAHL DER FISCHE'.":P 
RINT 

17370 PRINT TAB(5>"DIESE VARIABLE WIRD AM 
ANFANG":PRINT 

17400 PRINT TAB(5)"EINES DURCHLAUFS GESETZ 
T UND":PRINT 

17420 PRINT TAB(5)"WAEHREND DES DURCHLAUFS 
STAENDIG":PRINT 

17450 PRINT TAB(5)"AKTUALISIERT.":PRINT 
17470 PRINT TAB(5)"MAN FINDET IHREN WERT A 
M BILD-":PRINT 

17500 PRINT TAB(5)"SCHIRM UNTEN LINKS." 
17530 PRINT:PRINT:PRINT:PRINT:GOSUB 21000 
17550 FOR 1=1 TO 30:PRINT:NEXT 
17570 PRINT TAB(5)"'ANZAHL DER HAIE' IST D 
IE“:PRINT 

17600 PRINT TAB(5)"ENTSPRECHENDE VARIABLE 
FUER DIE":PRINT 

17630 PRINT TAB(5)"HAIE.":PRINT 
17650 PRINT TAB(5)"MAN FINDET SIE UNTEN RE 
CHTS.":PRINT 

17670 PRINT TAB(5)“IST DIE ANZAHL DER HAIE 
= 0, SO":PRINT 

17680 PRINT TAB(5)"KEHRT DAS PROGRAMM IN D 
AS GRUND-":PRINT 

17690 PRINT TAB(5)"MENUE ZURUECK, EBENSO, 
WENN":PRINT 

176?3 PRINT TAB(5)"WAEHREND DES PROGRAMMLA 
UFS DIE":PRINT 

17695 PRINT TAB(5)“RESTORE-TASTE GEDRUECKT 
WIRD." 

17700 PRINT:PRINT:PRINT:PRINT:PRINT:GOSUB 
21000:FOR 1=0 TO 30:PRINT:NEXT 
17720 PRINT TAB(5)"DIE VARIABLE":PRINT 
17730 PRINT TAB(5)"'VERMEHRUNG FISCHE' GIB 
T AN,NACH":PRINT 

17750 PRINT TAB(5)"WIEVIELEN JAHREN SICH D 
IE FISCHE":PRINT 

17770 PRINT TAB(5)"VERMEHREN;":PRINT 
17800 PRINT TAB(5)"OB NACH DEM ERSTEN, ZWE 
ITEN":PRINT 

17830 PRINT TAB(5)"DRITTEN.":PRINT:PRI 

NT:PRINT:PRINT:PRINT:PRINT 
17850 GOSUB 21000:FOR 1=0 TO 30:PRINT:NEXT 
17870 PRINT TAB(5)"'VERMEHRUNG HAIE' ERFUE 
LLT DENSEL-":PRINT 

17900 PRINT TAB(5)"BEN ZWECK BEI DEN HAIEN 
.":PRINT 

17920 FOR 1=0 TO 10:PRINT:NEXT:GOSUB 21000 
17950 PRINT:PRINT:PRINT:PRINT:PRINT: PRINT 
17970 PRINT TAB(5)"DIE VARIABLE 'HUNGER' G 
IBT AN,":PRINT 

18000 PRINT TAB(5)"NACH WIEVIELEN JAHREN E 
IN HAI":PRINT 

18030 PRINT TAB(5)"STIRBT, WENN ER IN DIES 
ER ZEIT":PRINT 

18050 PRINT TAB(5)"KEINEN FISCH ZUM FRESSE 
N FINDET.”:PRINT 

18070 PRINT TAB(5)"OB NACH EIN, ZWEI, DREI 
.":PRINT 

18100 PRINT TAB(5)"JAHREN." 

18130 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT: 
PRINT 

18150 GOSUB 21000 
18170 FOR 1=1 TO 20:PRINT:NEXT 
18200 PRINT TAB(5)"ZUSAETZLICH FINDEN SIE 
IN DER ":PRINT 

18230 PRINT TAB(5)"MITTE OBEN DIE ANZAHL D 
ER ZYKLEN,":PRINT 

18250 PRINT TAB(5)"DIE SEIT DEM START DIES 
ER":PRINT 

Listing zu »Wator« (Fortsetzung) 



< 120 > 

<023> 

<192> 
<221 > 

<038 > 

< 012 > 

< 173> 

< 116> 

< 154> 

<086> 

< 152> 

< 202 > 

<07B> 

<006> 

< 135> 
<139> 

< 173> 

< 124> 

< 174> 

<07B> 

<053> 

<055> 

< 130> 

< 124> 

< 176> 

< 107> 

<029> 

< 020 > 

<036> 

< 144> 

<001 > 
<099> 

< 108> 

<063> 

<035> 

<042> 

<064> 
< 102 > 
<033> 

<237> 

<037> 

< 162> 

<029> 

<0B8> 

<093> 

< 130> 

< 118> 
< 108 > 

<007> 

<096> 

< 171 > 

47 







Denkspiele 


C 64 


18270 PRINT TAB(5)"KOMBINATION VERGANGEN S 

IND." <082> 

18300 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT: 

PRINT:PRINT <228> 

18330 GOSUB 21000:FOR 1=1 TO 15:PRINT:NEXT <025> 

18350 PRINT TAB(5)"DIES KLINGT JETZT ALLES 

":PRINT <204> 

18370 PRINT TAB(5)"FURCHTBAR KOMPLIZIERT, 

UND SIE ":PRINT <067> 

18400 PRINT TAB<5>"WERDEN AM ANFANG SCHWIE 

RIGKEITEN":PRINT <169> 

18430 PRINT TAB<5)"HABEN, EIN OEKOSYSTEM Z 

U ENTWER-":PRINT <147> 

18450 PRINT TAB(5)“FEN, DAS NICHT SCHON NA 

CH WENIGEN":PRINT <009> 

18470 PRINT TAB<5)"HUNDERT JAHREN ZUSAMMEN 

BRICHT.<3SPACE>":PRINT:PRINT <088> 


18500 PRINT TAB(5)"DRUECKEN SIE 'H' UND DE 

R COMPUTER“:PRINT <088> 

18530 PRINT TAB(5)"STELLT IHNEN EINE KOMBI 

NATION EIN,":PRINT <073> 

18550 PRINT TAB<5)"DIE SICHER LAUEFT!":PRI 

NT <205> 

18600 GET T*:IF T*=""THEN 18600 <112> 

18630 IF T*<>"H"THEN RETURN <249> 

18650 VHX-15: VF7.=3: HUX=2: FA7.=400: HAX-20: GO 

TO 10200 <072> 

21000 PRINT TABC71"WEITER MIT<SPACE,RVSON> 

RETURN{RVOFF>" <160 > 

21020 GET T$:IF TS <> CHR*(13> THEN 21020 <141> 

21030 GET T*:RETURN <030> 
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69 

01 

81 

10 

8d90 

: 

7a 

85 

88 

a9 

7e 

85 

8a 

88 

73 

8968 

8 

25 

81 

2f 

81 

39 

81 

43 

81 

ta 

8b80 

: 

4d 

20 

7d 

8c 

a2 

00 

al 

2f 

dd 

8d98 

- 

bl 

6e 

aa 

bl 

87 

91 

6e 

8a 

35 

8970 

3 

4d 

ad 

0d 

88 

81 

61 

ad 

0c 

da 

8b8B 

: 

c5 

79 

f0 

24 

1B 

69 

01 

48 

2c 

8da0 

: 

91 

87 

bl 

70 

aa 

bl 

89 

91 

ti 

8978 

8 

88 

81 

57 

60 

81 

25 

a9 

00 

8b 

8b90 

3 

a5 

7f 

d0 

06 

68 

81 

2f 

4c 

d2 

BdaB 

: 

70 

8a 

91 

89 

88 

C0 

ff 

dB 

23 

8980 

3 

81 

39 

ad 

08 

88 

81 

61 

ad 

80 

8b98 

S 

d6 

8b 

20 

d4 

88 

a2 

00 

al 

b7 

Bdb0 

: 

e7 

e6 

6f 

e6 

71 

e6 

88 

e6 

01 

898B 

3 

09 

88 

81 

57 

60 

81 

2t 

9B 

21 

8ba0 

: 

4d 

a8 

68 

a6 

la 

20 

8d 

89 

lc 

BdbB 

; 

8a 

c6 

6b 

30 

07 

dB 

d9 

a0 

26 

8990 

8 

81 

4d 

a9 

00 

81 

43 

a9 

ff 

tb 

8b a8 

: 

a2 

00 

20 

65 

89 

4c 

d6 

8b 

6c 

8dc0 

• 

e8 

4c 

98 

Bd 

60 

a0 

00 

e6 

7f 

8998 

8 

81 

25 

ad 

06 

88 

81 

61 

ad 

4d 

8bb0 

: 

a5 

7f 

<0 

ld 

20 

d4 

88 

a2 

05 

8dc8 

: 

92 

b5 

8c 

20 

f0 

Bd 

ca 

10 

23 

89a0 

8 

07 

88 

81 

57 

60 

20 

0e 

88 

87 

SbbB 

: 

00 

al 

4d 

a8 

a9 

00 

81 

2f 

f0 

8dd0 

; 

fB 

60 

f0 

0f 

48 

a9 

00 

85 

f 3 

89a 8 

8 

a5 

78 

4a 

85 

84 

a5 

79 

4a 

bd 

8bc0 

: 

20 

5a 

8d 

a6 

la 

20 

8d 

89 

31 

Bdd8 

: 

92 

68 

09 

30 

91 

6e 

a5 

91 

2d 

89b0 

: 

85 

86 

a9 

00 

85 

83 

85 

85 

78 

8bc8 

: 

e6 

76 

d0 

0a 

e6 

77 

4c 

d6 

68 

8de0 

- 

91 

70 

60 

a5 

92 

tB 

f 3 

a9 

4a 

89b8 

8 

a9 

00 

85 

6e 

85 

70 

85 

93 

aa 

Sbd0 

: 

8b 

20 

5a 

8d 

81 

2f 

20 

e8 

97 

8de8 


00 

91 

70 

a9 

a0 

91 

6e 

60 

13 

89c 0 

3 

85 

94 

85 

95 

85 

96 

a8 

a9 

a6 

8bdB 

: 

8b 

90 

03 

4c 

00 

8b 

60 

a9 

27 

Bdf 0 

- 

48 

4a 

4a 

4a 

4a 

20 

d2 

8d 

45 

89c8 

! 

04 

85 

6f 

a9 

d8 

85 

71 

a2 

65 

8bB0 

: 

00 

aa 

a8 

85 

72 

85 

73 

60 

f 2 

Bdf 8 

- 

c8 

68 

29 

0f 

20 

d2 

8d 

c8 

81 

89d0 

3 

03 

a9 

a0 

91 

6e 

ad 

0a 

88 

90 

8bB8 

: 

a.6 

72 

a4 

73 

b8 

B0 

20 

d0 

17 

8e00 

- 

60 

86 

97 

84 

98 

a9 

00 

85 

■fc 

89d8 

8 

91 

70 

88 

d0 

f 4 

e6 

6t 

e6 

Bt 

8bt0 

: 

0b 

a2 

00 

c8 

C0 

10 

dB 

04 

3d 

8e08 

. 

Bc 

85 

Sd 

a 2 

13 

46 

98 

66 

al 

B9e0 

8 

71 

ca 

30 

07 

d0 

eb 

a0 

e8 

64 

Bbf 8 

: 

18 

4c 

fd 

3b 

38 

86 

72 

84 

b2 

8b 10 

. 

97 

90 

0d 

18 

b5 

99 

65 

8c 

0d 

89eB 

8 

4 c 

dl 

89 

a 9 

a0 

8d 

00 

07 

39 

8c00 

: 

73 

60 

20 

70' 88 

a5 

06 

29 

da 

8e18 

- 

85 

8c 

b5 

98 

65 

8d 

85 

Bd 

58 

B9f 0 

3 

ad 

0a 

88 

Bd 

00 

db 

20 

dt 

95 

8c 08 

: 

lf 

85 

72 

iS 

07 

29 

0f 

B5 

3c 

8 e20 

: 

ca 

ca 

10 

e9 

60 

54 

5a 

48 

33 

89f 8 

= 

8b 

a9 

00 

20 

13 

89 

20 

65 

25 

8c 10 

: 

7 -‘ a* 

72 


73 

a9 

00 

20 

CC 

8b28 

: 

ft 

b0 

00 

bb 

00 

b0 

00 

00 

7c 


Die Maschinenroutine zu »Wator«. Dieses Programm muß mit dem MSE eingetippt werden. 
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C 64 


Denkspiele 


Umzingeln Sie 
Ihren Gegner! 

Taktik ist gefordert. Bei diesem Denk¬ 
spiel gilt es, den Gegner am Ziehen zu 
hindern. Passen Sie auf! Der Compu¬ 
ter ist ein starker Gegner. 

Das Spielfeld (Bild 1) hat fünf Felder. Die Felder werden von 
Ihnen und dem Computer mit je zwei Steinen besetzt. Beim 
abwechselnden Ziehen müssen Sie versuchen eine Stellung 
aufzubauen, die dem Gegner keine Zugmöglichkeit mehr 
offen läßt. Sie können jeweils ein Feld weiter ziehen, entlang 
der Verbindungslinien zwischen den Feldern. 



100-220 

230-275 

280-350 

380-610 

620-720 

730-840 

850-955 

2000-2090 

Anleitung 

Definieren der Sprites; 

festlegen der Ausgangsposition der Spielsteine 

Aufbau des Bildschirms 

Eingabe Ihres Zuges; 

Auswertung ob dieser Zug zulässig ist 

Festlegen, welches Feld frei ist 

Bestimmung der Position des 1. Spielsteins des 
Computers, und Auswertung, welche Zugmöglich¬ 
keiten es gibt 

Wie 730-840 mit 2. Spielstein. 

Wenn der Computer mit diesem nicht mehr ziehen 
kann, hat er das Spiel verloren. 

Abfrage, ob Sie noch ziehen können 

Tabelle 1. Die Funktionen der Programmzeilen 


Variablenliste 

x,y 

Position vom 1. Sprite auf dem Bildschirm 

x 1 ,y 1 

Position vom 2. Sprite auf dem Bildschirm 

x2,y2 

Position vom 3. Sprite auf dem Bildschirm 

x3,y3 

Position vom 4. Sprite auf dem Bildschirm 

a(i) 

Position der fünf Punkte auf dem Bildschirm in Sprite- 


Koordinaten 

aal 

Zugeingabe des Spielers 

f 

freies Feld 

x4,y4 

freies Feld in Sprite-Koordinaten 

x5,y5 

wie x4,y4, nur für Computer 


Tabelle 2. Variablenliste 


In Tabelle 1 finden Sie eine Erklärung der einzelnen Pro¬ 
grammzeilen von »Barre«. In Tabelle 2 die Variablenliste. 

Die Chancen sind für Sie und den Computer gleich. Sie kön¬ 
nen sogar bestimmen, wer beginnt. Das Spiel muß nicht 
schon nach dem ersten Zug entschieden sein. Lassen Sie 
sich also nicht unterkriegen! 

(Jens Schmidt / hm) 


70 DIM A(10) 

90 POKE 53280,0:POKE 53281,0 

100 PRINT CHR$(14)"{CLR,RVSON,PURPLE,23SPA 
CE>'{16SPACE}“; 

110 PRINT“ {RED, 15SPACE1B A R R EU6SPACE}" 
; 

120 PRINT“C0RANGE,12SPACEJBY JENS SCHMIDT{ 
13SPACE,RVOFF >“; 

130 PRINT“(2D0WN,WHITE,SPACE>3£DER SPIELER 
ERHAELT ZWEI STEINE“ 

140 PRINT“ DER BLEICHEN fARBE (SIE BEKOMME 
N DIE“ 

150 PRINT“ SELBEN).“ 

160 PRINT“ ABWECHSELND ZIEHT NUN JEDER EIN 
EN “ 

170 PRINT 
ND) “ 

180 PRINT 

190 PRINT 
ES” 

200 PRINT 
SER“ 

210 PRINT 

220 INPUT 
S/C) 


SEINER STEINE (DEN .LINIEN FOLGE 

VON £UNKT ZU PJJNKT“ 

HAN MUSS PROBIEREN DIE STEINE D 

SOMPUTERS EINZUSPERREN,DASS DIE 


NICHT MEHR ZIEHEN KANN.“ 

<2D0WN,SPACE>HES S.O.L.L aEG.I_HN.LK ( 

; AN* 

230 FOR 1=1 TO 10:READ A(I):NEXT I 

250 V=53248:POKE V+21,15:POKE V+40,5:POKE 
V+39,5:POKE V+41,7:POKE V+42,7 

260 POKE 2040,13:POKE 2041,13:POKE 2042,13 
:POKE 2043,13 

270 FOR N=0 TO 62:READ Q:POKE 832+N,Q:NEXT 
<1 

275 X=228:Y=110:Xl=124:Yl=175:X2=124:Y2=l1 
0:X3=228:Y3=175 

280 PRINT CHR*(142)“{CLR,RVSON,PURPLE,23SP 
ACE >'T16SPACE >“; 

285 PRINT“{RED,15SPACE>B A R R EL16SPACE.R 
VOFFJ“ 

290 PRINT“{6D0WN,PURPLE,11SPACE>5 urp{9SPA 
CEJmiCSHIFT—SPACEJl “ 

300 PRINT“<13SPACE>ÜL<RVS0N,WHITEJ3P{RVOFF, 
PURPLE >fi<7SPACE>H<WHITE,RVSON >£CRVOFF, 
PURPLE >ÜL“ 

304 PRINT“ {14SPACE,RVSON,SPACE,WHITE,SPACE 
>3?{RVOFF,PURPLE >ß{5SPACE>K<WHITE,RVSON 
>£{SPACE,PURPLE,SPACE,RVOFF,2SPACE,RVS 
ON,GREEN,8SPACE,PURPLE >“ 

305 PRINT“{13SPACE,SHIFT-SPACE,RVSON,SPACE 
, WH ITE , 2SPACE >1?{RVOFF , PURPLE > ttU_CIK {WH I 
TE,RVSON >£<2SPACE,PURPLE,SPACE,RVOFF,2 
SPACE,RVSON,GREEN,2SPACE> MEIN{2SPACE,P 
URPLEJ“ 

310 PRINT“C13SPACE,SHIFT-SPACE,RVSON,SPACE 
,WHITE,3SPACE,RVOFF,SPACE,PURPLE IW 

HITE,SPACE,RVSON,3SPACE,PURPLE,SPACE,R 
VQFF,2SPACE,RVSON,GREEN,3SPACE> ZUG{2SP 
ACE,PURPLE>“ 

320 PRINT“{13SPACE,SHIFT-SPACE,RVSON,SPACE 
.WHITE,2SPACE,RVOFF >£{PURPLE >E££&&{WHI 
TE > 5 CRVSON,2SPACE,PURPLE,SPACE,RVOFF,2 
SPACE,RVSON,GREEN,8SPACE,PURPLE >“ 

324 PRINT“{13SPACE,SHIFT-SPACE.RVSON,SPACE 
.WHITE,SPACE.RVOFF >£<PURPLE >14 {WHITE,RV 
SON >£{3SPACE >5? {RVOFF,PURPLE>fl{WHITE>5{ 
RVSON,SPACE,PURPLE,SPACE >" 

325 PRINT“{14SPACE,RVSON,SPACE.WHITE,RVOFF 
>Ü{PURPLE>H{WHITE,RVSON >£{5SPACE >¥{RVO 
FF, PURPLE >11 {WH I TE > ¥ {RVSON, PURPLE .SPACE 
>“ 

330 PR I NT “ {13SPACE > Hi'oWoWoWom" 

340 PRINT" {11SPACEJ4 JK.'l/u'U'uWuVlAArüt 2" 

350 POKE V+0,124:POKE V+l,110:POKE V+2,228 


< 178> 
<218> 

<074> 

< 164> 
<192> 
<248> 

<201 > 

< 125> 

< 155> 

<028> 

< 167> 

< 002 > 

<073> 

< 001 > 

< 170> 
<058> 

<032> 

<223> 

<203> 

<216> 

< 169> 
<079> 
<213> 

<014> 


<219> 


<044> 


< 136> 


<209> 


<243> 


<078> 

<058> 

<204> 


Listing zu »Barre«. Geben Sie das Programm am besten 
mit dem neuen Checksummer aus dieser Ausgabe ein. 
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Denkspiele 


C 64 


:POKE V+3,X75sPOKE V+4,228:POKE V+5,11 
0 <140> 

360 POKE V+6,124:POKE V+7,175:IF AN*="C"TH 


EN GQTO 620 <198> 

370 PRINT"{HOME,11DOWN,2SPACE,RVSON,YELLOW 

,8SPA0E>" <223> 

375 PRINT"{2SPACE,RVSON,2SPACE >IHR <SHIFT-S 

PACE,2SPACEJ" <089> 

376 PRINT"{2SPACE,RVSON,2SPACE>ZUG{3SPACE> 

" <119> 

377 PRINT"C2SPACE,RVSON,8SPACE>" <087 > 

380 INPUT"{PURPLE,4D0WN>";A <167> 

390 PRINT"ZU “ <214> 

400 INPUT Al <197> 

410 IF A>5 TUEN 370 <174> 

420 IF A=1 THEN X4=A (1)-. Y4=A (2): GOTO 470 <112> 

430 IF A=2 THEN X4=AC3>:Y4=A(4)sGOTO 470 <218> 

440 IF A=3 THEN X4=A(5):Y4=A<6>tGOTO 470 <068> 

445 IF A=4 THEN X4=A(7):Y4=A(8):GOTO 470 <169> 

450 IF A=5 THEN X4=A(9):Y4=A(10):GOTO 470 <096> 

460 IF A<5 THEN 370 <000> 

470 IF X=X4 AND Y=Y4 THEN C=4:D=5:G0T0 490 <04B> 

480 IF X1=X4 AND Y1=Y4 THEN C=6sD=7:G0T0 4 

90 <1B7> 

485 GOTO 370 <031> 


490 IF Al = l THEN X4=A<1)sY4=A(2):GOTO 540 <087> 
500 IF Al=2 THEN X4=A(3>sY4=A(4):GOTO 540 <033> 
510 IF Al=3 THEN X4=A(5):Y4=A(6)iGOTO 540 <235> 
520 IF Al=4 THEN X4=A(7)sY4=A(8):GOTO 540 <185> 
530 IF Al=5 THEN X4=A(9):Y4=A(10) : GOTO 540 <029> 


535 GOTO 370 <083> 

540 IF PEEK(V+0)=X4 AND PEEK(V+l>=Y4 THEN 

370 <002> 

550 IF PEEK(V+2)=X4 AND PEEK(V+3)=Y4 THEN 

370 <017> 

560 IF PEEK(V+4> =X4 AND PEEK(V+5)=Y4 THEN 

370 <032> 

570 IF PEEK(V+ 6 )=X4 AND PEEK(V+7)=Y4 THEN 

370 <047> 

580 IF A-Al=—3 OR A-Al=-4 THEN 370 <046> 

585 IF A=4 AND Al=l THEN 370 <125> 

590 IF D=5 THEN X=X4:Y=Y4:GOTO 610 <151> 

600 X1=X4:Y1=Y4 <056> 

610 POKE V+C, X 4 :POKE V+D,Y4 <148> 

620 FOR 1=1 TO 10 STEP 2 <029> 

630 IF PEEK(V+0)=A(I)AND PEEK(V+l>=A(1+1)T 

HEN NEXT I <191> 

640 IF PEEK(V+2)=A(I)AND PEEK(V+3)=A(1+1)T 

HEN NEXT I <21B> 

650 IF PEEK(V+4)=A(I)AND PEEK(V+5)=A(1+1)T 

HEN NEXT I <245> 

660 IF PEEK(V+ 6 )=A(I>AND PEEK(V+7)=A(1+1)T 

HEN NEXT I <016> 

670 F=Is1=10:NEXT I <247> 

680 IF F=1 THEN X5=A(1):Y5=A(2):GOTO 730 <155> 

690 IF F=3 THEN X5=A(3):Y5=A(4):F=2:GDSUB 

3000:GOTO 730 <179> 

700 IF F=5 THEN X5=A(5):Y5=A( 6 ):F=3:GOSUB 

3000:GOTO 730 <063> 

710 IF F=7 THEN X5=A(7):Y5-A( 8 ):F=4:GOSUB 

3000:GOTO 730 <203> 

720 IF F=9 THEN X5=A(9):Y5=A(10):F=5:GOSUB 

3000:GOTO 730 <059> 

730 FOR 1=1 TO 10 STEP 2 <139> 

740 IF PEEK(V+0)=A(I)AND PEEK(V+l)=A(1+1)T 

HEN G=I:GOTO 755 <232> 

750 NEXT I <070> 

755 IF 1=1 THEN I=l:GOTO 800 <042> 

760 IF 1=3 THEN 1=2:GOTO 800 <113> 

770 IF 1=5 THEN 1=3:GOTO 800 <191> 

780 IF 1=7 THEN 1=4:GOTO 800 <011> 

790 IF 1=9 THEN 1=5:GOTO 800 <088> 

800 IF F-I=-3 THEN 850 <105> 

810 IF F—I=-4 THEN 850 <003> 

815 IF F—1=4 THEN 850 <170> 

816 IF I—F=—3 THEN 850 <191> 

820 X2=X5:Y2=Y5 <112> 

821 FOR 11=1 TO 3:POKE V+0,A(G):POKE V+1,A 

(G+D-.FOR Z=1 TO 200: NEXT Z <120> 

822 POKE V+0,0:POKE V+1,0:FOR Z=1 TO 200:N 

EXT Z:NEXT II <079> 

825 FOR 11=1 TO 3:P0KE V+0,0:POKE V+1,0:FO 

R Z=1 TO 200:NEXT Z <093> 

B30 POKE V+0,X5:POKE V+1,Y5:F0R Z=1 TO 200 

: NEXT Z:NEXT II <148> 

835 PRINT"{HOME,16D0WN>" <049> 

840 PRINT SPC(28)" ";I;" ZU " 5 F:GOTO 2000 <031> 

850 FOR 1=1 TO 10 STEP 2 <005> 
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860 IF PEEK(V+2)=A(I)AND PEEK(V+3)=A(1+1)T 


HEN 871 <130> 

870 NEXT I <192> 

871 FOR 11=1 TO 3:POKE V+2,A(I>:POKE V+3,A 

(1+1):FOR Z=1 TO 200:NEXT Z <255> 

872 POKE V+2,0:POKE V+3,0:FOR Z=1 TO 200:N 

EXT Z:NEXT II <225> 

875 IF 1=1 THEN 1=1:GOTO 920 <244> 

880 IF 1=3 THEN 1=2:GOTO 920 <059> 

890 IF 1=5 THEN 1=3:GOTO 920 <135> 

900 IF 1=7 THEN 1=4:GOTO 920 <211> 

910 IF 1=9 THEN 1=5:GOTO 920 <032> 

920 IF F-I=-3 THEN GOTO 970 <076> 

930 IF F-I=-4 THEN GOTO 970 <087> 

935 IF F—1= 4 THEN GOTO 970 <016> 

936 IF I—F=—3 THEN GOTO 970 <019> 

940 X3=X5:Y3=Y5 <242> 

945 FOR 11=1 TO 3:P0KE V+2,0:POKE V+3,0:FO 

R Z=1 TO 200:NEXT Z <053> 

950 POKE V+2,X5:POKE V+3,Y5:F0R Z=1 TO 200 

c NEXT Z:NEXT II <140> 

954 PRINT"{HOME,16D0WN>" <16B> 

955 PRINT SPC(28)" " 5 I 5 " ZU ";F <017> 

960 GOTO 2000 <146> 

970 PRINT"{CLR,3D0WN,SPACE}GRATULIERE,SIE 

HABEN GEWONNEN!!” <205> 

980 PRINT"{2D0WN,SPACEJGEBEN SIE MIR EINE 

REVANCHE (J/N) " <044> 

990 GET A*:IF A*=""THEN 990 <168> 

995 IF A*="J"THEN 275 <171> 

996 IF A*="N"THEN PRINT"{CLR>":END <156> 

997 GOTO 990 <115> 

1000 REM DATA'S FUER STEINSETZEN <215> 

1010 DATA 228,110,228,175,180,142,124,175, 

124,110 <221> 

1020 REM DATA'S FUER SPRITES <173> 

1030 DATA 0,0,0,0,0,0,0,0,0,0 <181> 

1040 DATA 0,0,0,0,0,0,0,0,0,0 <191> 

1050 DATA 0,0,0,0,0,0,0,0,0,0 <201> 

1060 DATA 0,0,0,1,255,0,3,255,128 <162> 

1070 DATA 3,255,128,3,207,128,3,207,128,3, 

207,128,3,207,128 <125> 

0 DATA 3,205,128,3,204,128,3,204,128 <024> 

2000 IF X=228 AND Y=110 AND Xl=228 AND Yl= 

175 THEN 2050 <079> 

2010 IF X=228 AND Y=175 AND Xl=228 AND Yl= 

110 THEN 2050 <025> 

2020 IF X=124 AND Y=175 AND Xl=124 AND Yl= 

110 THEN 2070 <190> 

2030 IF X=124 AND Y=110 AND Xl=124 AND Yl= 

175 THEN 2070 <008> 

2040 GOTO 370 <062> 

2050 IF X2=180 AND Y2=142 AND X3=124 AND Y 

3=175 THEN 2100 <090> 

2060 IF X2=124 AND Y2=175 AND X3=180 AND Y 

3=142 THEN 2100 <214> 

2065 GOTO 370 <089> 

2070 IF X2=228 AND Y2=175 AND X3=180 AND Y 

3=142 THEN 2100 <036> 

2080 IF X2=180 AND Y2=142 AND X3=228 AND Y 

3=175 THEN 2100 <044> 

2090 GOTO 370 <114> 

2100 PRINT"{CLR,DOWN>" <158> 

2110 PRINT" SIE HABEN VERLOREN ." <075> 

2120 PRINT" WOLLEN SIE EINE REVANCHE (J/N) 

< 156> 

2130 GET Ms IF A*=""THEN 2130 <244> 

2140 IF A$="J"THEN 275 <046> 

2150 IF A*="N"THEN PRINT"{CLR>":END <040> 

2160 GOTO 2130 <18B> 

3000 IF Y=110 OR Y=175 AND X=124 AND Yl=l1 

0 OR Yl=175 AND Xl=124 THEN 3500 <110> 

3020 RETURN <028> 

3500 IF X=228 THEN RETURN <147> 

3510 IF X2=1B0 AND Y2=142 AND X3=228 AND Y 

3=110 THEN 850 <112> 

3520 IF X2=22B AND Y2=175 THEN 850 <153> 

3530 RETURN <030> 
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Listing zu »Barre« (Schluß) 
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Spielegeneratoren 


C 64 


Auf der Suche 
nach der 64’er 

Steuern Sie einen Roboter durch ein 
Labyrinth, in dem sehr viele Gefahren 
lauern. Das Besondere: Das Spielfeld 
(16 Bildschirmseiten) können Sie 
selbst erstellen. 

Der Spieleautor über die Entstehungsgeschichte von 
»Roboservant«: »Ich hatte schon lange den Drang, ein Spiel 
für die 64'er zu schreiben. Natürlich handelt auch das Spiel 
davon, oder vielmehr von Chefredakteur Michael Pauly. So 
dachte ich mir, daß es nicht schlecht wäre, wenn er sich die 
64'er selbst, mit Hilfe eines Roboters holen würde. Daraus 
ergab sich die Spielgeschichte«. 

Man steuert mit dem Joystick einen Roboter (elektroni¬ 
schen Sklaven), der die Aufgabe hat, zum Chefredakteur zu 
gehen und sich seinen Auftrag zu holen. Der Auftrag: Die so¬ 
eben gedruckte 64'er ist für den Chef zu besorgen. Eine 
gefährliche Aufgabe, wie sich schnell herausstellt. Viele 
Gefahren lauern und viele Abenteuer sind zu bestehen oder 
besser, zu überstehen. 

Das Ziel des Spiels ist, möglichst schnell die neue Ausgabe 
beizubringen. Die schnellsten Zeiten werden in die High- 
Score-Liste aufgenommen. s * eR or 

Konstruieren Sie sich Ihren eigenen Level 

Wird Ihnen das Spiel langweilig, erstellen Sie sich doch ein¬ 
fach ein neues Spielfeld. Sie können bis zu 16 Bildschirmsei¬ 
ten, der Länge nach, aneinanderreihen. Beim Spiel werden 
die verschiedenen Seiten über den Bildschirm gescrollt. Es 
wird also nicht plötzlich eine neue Bildschirmseite gezeigt, 
sondern langsam und stufenios von links oder rechts ins Bild 
geschoben. 

Tips zum Eintippen und zur Benutzung 

Das Maschinenprogramm geben Sie am besten mit dem 
MSE ein. Beachten Sie dabei bitte, daß das Programm unbe¬ 
dingt den Namen »ROBOSERVANT« hat. Den Basic-Teil soll¬ 
ten Sie mit dem Checksummer aus dieser Ausgabe eingeben 
und unter dem Namen »BASIC« abspeichern. Der Basic-Teil 
wird nämlich vom Maschinenprogramm nachgeladen. Das 
Maschinenprogramm besitzt eine Basic-Zeile und kann des¬ 
halb mit LOAD "ROBOSERVANT",8 geladen und mit RUN 
gestartet werden. Auf dem Bildschirm erscheint dann die Mel¬ 
dung »Now Loading Part 2«. 

Ist das Programm »BASIC« geladen, können Sie in einem 
Menü die folgenden Punkte auswählen: 

1 PLAY — Das Programm kann gespielt werden. Schließen 
Sie dazu einen Joystick am Control-Port 2 an. 

2 EDIT — Hier können Sie ein eigenes Spielfeld erstellen 
und speichern. 

3 LOAD — Laden eines selbsterstellten Spielfeldes. 

4 HIGHSCORES — Die Highscore-Liste wird gezeigt. Mit 
einem Tastendruck kommen Sie wieder ins Hauptmenü 
zurück. Sollten Sie besser als die Autoren spielen, werden Sie 
im Highscore verewigt. Dazu wird auf Diskette ein File 
namens »HS« angelegt. 

5 END — Das Programm wird beendet. 


Nun zur Tastenbelegung im Editmodus: 

R — Zeichen auswählen, rückwärts 
F — Zeichen auswählen, vorwärts 
S — Zeichen setzen 
L —Spielfeld löschen 

A—Spielfeld SAVEn. Als Namen müssen Sie eine Zahl oder 
einen Buchstaben angeben. 

X — Zurück zum Menü 

Zum Editieren des Spielfeldes stehen verschiedene Zei¬ 
chen bereit, die sich vom Aussehen und der Funktion unter¬ 
scheiden. Die Zeichen und ihre Funktion sind in Tabelle 1 
zusammengefaßt. 

(Robert Brandl/Thomas Schmidt / hm) 


Zeichen 

BEEIDE 




Bedeutung 

Backsteine: der Roboter kann auf diesen Zeichen 
stehen, gehen und hüpfen. 

Springknopf: wenn man auf dieses Zeichen 
kommt, springt er ein paar Zeichen hoch. Wenn 
man auf keinem Zeichen zum Stehen kommt, ist 
der Roboter nach dem Landen schrottreif. Man 
kann aber während des Springens den Joystick 
nach links oder rechts bewegen. Dadurch kann 
man ein Zeichen nach rechts oder links gehen. 
Zauberstein: der Roboter kann solange auf die¬ 
sem Zeichen stehen bis das Zeichen verschwin¬ 
det. Wenn dann der Roboter mehr als zwei Zei¬ 
chen tiefer fällt, geht er kaputt. 

Fließband: der Roboter wird nach links oder 
rechts befördert. 

Strauch: der Strauch ist für den Roboter nur dann 
gefährlich wenn er ihn mit den Ketten (dem 
unteren Teil des Roboters) berührt. 

Faß: das Faß ist für Ketten und Kopf gefährlich. Es 
darf also nicht berührt werden. 

Steinzapfen: die Zapfen dürfen ebenfalls nicht 
berührt werden. 

Spiralleiter: der Roboter wird hinauftransportiert. 
Sperrstein: der Stein wird dazu benutzt um dem 
Roboter den Weg nach links oder rechts zu ver¬ 
sperren (z.B. als Endwand am rechten und linken 
Ende des Spielfelds). Man kann aber auch darauf 
stehen und laufen. 


Maschinenroutinenbelegung 

SC800 = Musikprogramm mit Daten 

SCOOO = Scrollroutine und Bewegung der Sprites 

SCI 80 = Löschroutine 

SC1A0 = Saveroutine 

SC2C6 = Interrupt, Zeichenbewegung und Musiksteuerung 
SC400 = Hauptprogramm für das Spiel 

Um das Programm zu starten, muß man den ersten Teil laden und mit 
RUN starten. Das Programm lädt den zweiten Teil automatisch nach. 


0 POKE 792,193:CLR:GOSUB 50000 <007> 

1 REM ******************************* <139> 

2 REM * <W) ROBOSERVANT * <139> 

3 REM * * <052> 

4 REM »ROBERT BRANDL THOMAS SCHMIDT * <173> 

5 REM »KAISERSTR. 4 BUERKLEINSTR.15* <186> 

6 REM * * <055> 

7 REM *8510 FUERTH 8510 FUERTH * <005> 

9 REM ******************************* <147> 

10 D=49184:A=D+17:LO=16364:30=54272:FG=532 

80:DA=2040:X=730:S=53248:SP=0 <210> 

Listing des Basic-Teils von »Roboservant«. Sollten Sie 
das Listing mit dem Checksummer eingeben, benutzen 
Sie bitte den Checksummer aus dieser Ausgabe. 
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20 AS=49152:DS=AS+16:BN=16384:SYS AS+2051: 

GOSUB 6000:GOSUB 6100:POKE 56325,45 
30 POKE S+24,24:POKE 251,0:POKE 252,61:NN= 
56322 

1000 SYS 49862:POKE SO+24,15:POKE S0+1,3:P 
OKE SO+5,135 

2000 POKE FG,0:POKE FG+1,14:P0KE S+21,0:PO 
KE S+22,24:POKE FG+2,8:P0KE FG+3,0 
2005 POKE 766,0 

2010 PRINT"{CLR}"CHRS(142 >CHR* (8)SPC(14 >"{ 
DOWN,BLACK1ROBOSERVANT" 

2020 PRINT"{2D0WN,LIG.RED,6SPACE,RVSON >WU1? 

Ub ur-u-rWu-hWu-r-ur u'mffiTTFiW' 

2030 PRINT"C6SPACE,RVS0N>U<RV0FF,SPACE>PR0 
GRAMMED BY ROBERT B.{SPACE,RVSON>U{RV 
OFF} 

2040 PRINT"{6SPACE,RVSON >ff{RVOFF,11SPACE >A 
ND THOMAS S. {SPACE,RVSON}?T{RVOFF} 

RWunWuBif 

2120 PRINT"{BLACK,2D0WN,RIGHT}1 = PLAY GAM 
E" 

2130 PRINT"{DOWN,RIGHT>2 = EDIT MODUS" 

2140 PRINT"{DOWN,RIGHT>3 = LOAD" 

2145 PRINT"{DOWN,RIGHTJ4 = HIGHSCORES" 

2160 PRINT"{3D0WN}"SPC(15)"5 = END" 

2200 POKE 198,0:WAIT 198,1:GET A* 

2300 ON VAL(A*)GOTO 5000,4000,9000,9500,30 
000 

2400 GOTO 2200 

4000 PRINT"<CLR>":GOSUB 6150:FOR Y=0 TO 39 
:PRINT"T" ;:NEXT 

4005 POKE 766,6:FOR AD=56216 TO 56255:POKE 
AD,10:NEXT 


<087> 

< 193> 

< 198> 

<236> 

<070> 

<091 > 

<052> 


<058> 

< 156> 

<040> 

<041 > 
<090> 
<052> 

< 140 > 

< 187> 
<092> 

< 156> 
<094> 

<070> 

< 143> 


4010 SYS AS+320:GOSUB 6100:BU=255:BI=1044: 


PO=16377:FL=7:GOSUB 6000 
4020 POKE S,181:POKE S+1,48:P0KE DA,160:GO 
TO 4610:SYS AS+320 
4100 POKE NN,255 
4105 GET AS:IF A*=""THEN 4105 
4110 IF A*="R"THEN 4650 
4120 IF A*="F"THEN 4600 
4130 IF A*="L"THEN 4700 
4140 IF A*="{UP}"THEN 4800 
4150 IF A*="{DOWN>"THEN 4850 
4160 IF A*="S"THEN 4900 
4170 IF A*="{RIGHT}"THEN 4400 
4180 IF A*=" {LEFTVTHEN 4430 
4200 IF A*="A"THEN 15000 
4220 IF A*="X"THEN 2000 
4300 GOTO 4100 

4400 POKE NN,0:IF FL=659 THEN 4100 
4410 FL=FL+1:PO=PO—1 
4415 FOR T=0 TO 7:SYS AS:NEXT 
4420 GOTO 4100 

4430 POKE NN,0:IF FL=0 THEN 4100 
4440 FL=FL—1:PO=PO+l 
4445 FOR T=0 TO 7:SYS DS:NEXT 
4450 GOTO 4100 

4600 BU=BU-1:IF BU=238 THEN BU=255 
4610 FOR QW=1944 TO 19B3:P0KE QW,BU:NEXT:G 
OTO 4105 

4650 BU=BU+1:IF BU=256 THEN BU=239 
4660 FOR QW=1944 TO 1983:POKE QW,BU:NEXT:G 
OTO 4105 

4700 SYS AS+384:GOTO 4000 
4800 BI=BI—40:IF BI<1044 THEN 4840 
4810 PO=PO—680:POKE S+l,PEEK(S+l)-8:GOTO 4 
105 

4840 BI=1044:GOTO 4100 
4850 BI=BI+40:IF BI>1884 THEN 4880 
4860 PO=PO+680:POKE S+l,PEEK(S+l)+8:GOTO 4 
105 

4880 BI=1884:GOTO 4105 

4900 POKE BI,BU:POKE PO,BU:GOTO 4105 

5000 RO=3:PRINT"<LIG.RED,CLR}":GOSUB 6100: 

GOSUB 6000:GOSUB 6150 
5040 FOR Y=0 TO 39:PRINT"T": : NEXT 
5060 PRINT"{PURPLE,5SPACE1R0B0S: "RO SPC(1 
0)"TIME: 000000" 

5080 TI*="000000":POKE X-1,0:POKE X,0:SYS 
AS+320:SYS 50176:G*=TI* 

5090 IF PEEK(X—1)=1 THEN 5200 
5100 GOSUB 7000:PRINT SPC(11)"{BLACK,RVSON 
>MISSION COMPLETED{RVOFF}":FOR T=0 TO 
4000:NEXT:GOTO 50060 

5200 FOR T=0 TO 160:POKE FG+1,2:NEXT:GOSUB 


<255> 

<076> 

< 184> 

< 127> 
<250> 



<119> 

< 145> 

< 116> 
<059> 
< 181 > 

< 115> 
<227> 
<216> 

< 146> 

< 160> 
<007> 
<082> 
<219> 

< 190> 
<049> 

< 112 > 

< 177> 

< 134> 
<229> 

< 184> 
<250> 
<142> 

<149> 

< 106 > 
<209> 

< 199> 
<217> 
<054> 

<003> 

< 16B> 

<094> 

<073> 

<167> 


< 163> 


6150:RO=RO-l:PRINT SPC(12)"{PURPLE,D 
OWN}"RO 

5220 IF RO=0 THEN 5950 

5240 GOSUB 6000:GOSUB 6100:GOTO 5080 

5900 GOTO 5900 

5950 GOSUB 7000:PRINT SPC<15)"{BLACK,RVSON 
}GAME OVER{RVOFF}":FOR T=0 TO 3000:NE 
XT:GOTO 2000 

6000 POKE DA,160:POKE DA+1,162:POKE DA+2,1 
63:POKE 717,100:POKE 718,4:P0KE 729,0 
6020 POKE S+21,7:POKE S+2,215:P0KE S+3,197 
:POKE S+4,215:POKE S+5,53 
6040 POKE S,181:POKE S+1,53:P0KE S+16,0:PO 
KE 708,211:POKE 709,63 
6060 POKE S+37,15:POKE S+38,6:F0R T=0 TO 3 
:POKE S+39+T,0:NEXT:POKE S+28,7 
6080 RETURN 

6100 POKE 674,228:POKE 675,63:SYS D:RETURN 
6150 PRINT"{HOME,BLUE,21DOWN}":RETURN 
7000 PRINT"{HOME,9D0WN}";:RETURN 
9000 GOSUB 10000:LOAD A*,8,B 
9500 GOSUB 50240:PRINT SPC(12)"<2D0WN>PRES 
S ANY KEY”:POKE 19B,0:WAIT 198,1:G0T0 
2000 

10000 POKE SO+24,0:SYS 49972:POKE FG+1,14: 

A*=.INPUT"{CLR,BLACK,2D0WN,RIGHT}N 

R."jA* 

10010 IF A*=""THEN SYS 49862:POKE SO+24,15 
:GOTO 2000 

10020 POKE 49591,ASC(A* >:RETURN 
15000 POKE S+21,0:GOSUB 10000:SYS 49568:SY 
S 49862:POKE SO+24,15:GOTO 2000 
30000 SYS 64738 

50000 OPEN 2,8,15:OPEN 1,8,2,"HS,P,R" 

50010 INPUT#2,N:CLOSE l:CLOSE 2:IF N=0 THE 
N 50040 

50020 FOR T=1 TO 5:NA*<T)="R.BRANDL & T.SC 
HMIDT":SC*(T)="999999": NEXT 
50030 RETURN 

50040 OPEN 1,8,2,"HS,P,R":FOR T=1 TO 5:INP 
UT#1,NAS(T):INPUT#1,SCS(T):NEXT:CLOS 

50E2-’ RETURN 

50060 SC*=G*:NA*="":POKE S+21,0 
50070 FOR T=1 TO 5:IF SC*<=SC*(T)THEN 5009 
0 

50080 NEXT:GOSUB 50240:FOR T=0 TO 3000:NEX 
T:GOTO 2000 

50090 FOR J=5 TO T STEP-1:NA*<J+l)=NA*<J): 
SC*(J+1)=SC*(J>:NEXT:SC*(T)=SC* 

50100 NA*(T>="." 

50110 GOSUB 50240:PRINT"{HOME,4D0WN,2SPACE 
}"5:FOR M=1 TO T:PRINT"{2DOWN}NEX 
T 

50120 POKE 198,0:WAIT 198,1:GET A* 

50130 IF A*=CHR*(13)THEN 50200 
50140 IF A*=CHR*(44)0R A*=CHR*(58)OR A*=CH 
R*(59)THEN 50120 
50150 IF A*=CHR*(20)THEN 50180 
50160 IF A*<CHR*(32)OR A*>CHR*(95)THEN 501 
20 

50165 IF LEN(NA*> >19 THEN 50120 
50170 NA*=NA*+A*:PRINT A*;:GOTO 50120 
50180 IF LEN(NA*> =<0 THEN 50120 
50190 NA*=LEFT*(NA*,LEN(NA*)-1):PRINT"{LEF 
T }. {LEFT } " ■, : GOTO 50120 
50200 NA*(T)=NA*+RIGHT*(NA*(T),LEN(NA*(T)) 
-LEN(NA*)> 

50210 SYS 49972:POKE SO+24,0:POKE FG+1,14 
50213 OPEN 1,8,15,"S:HS":CLOSE 1 
50215 OPEN 1,8,2,"HS,P,W":FOR T=1 TO 5:PRI 
NT#1,NA*(T):PRINT#1,SC*(T):NEXT:CLOS 
E 1 

50230 SYS 49862:POKE SO+24,15:GOTO 2000 
50240 PRINT"{CLR>“SPC(15)"{BLACK,2D0WN>T0P 
FIVES : 

50260 PRINT SPC (14) " tYJYt'VVYt'yWT{2D0WN> 
50270 FOR R=1 TO 5: PRINT" {2SPACEV; NA* (R) , 
SC*(R)CHR*(13):NEXT 
50280 RETURN 


< 162> 

< 113> 
<157> 

< 174> 


<242> 

<213> 

< 010 > 

<013> 

<073> 
<040> 
<198> 
< 133> 
< 210 > 
<209> 


< 151 > 


<034> 

<208> 

<047> 

<096> 

<086> 

<060> 

<014> 

< 132> 
<047> 


<208> 

<067> 

<033> 

< 184> 
<018> 

<021 > 

< 180> 


<072> 
<003> 
<211 > 

< 104> 
<166> 

<032> 

<228> 

< 177> 

< 185> 

<059> 

< 115> 

< 161 > 
< 160> 


<203> 
< 121 > 

< 127> 

< 167> 

< 104> 
<043> 


6 64'er- 


»Roboservant«-Basic-Teil (Schluß) 
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Programm 

: roboservant 

0801 1cg5 

0acl 

: 

a0 

0f 

fa 

30 

00 

00 

00 

00 

bc 












0ac9 

: 

00 

00 

00 

00 

00 

00 

00 

00 

ca 












0ad 1 

: 

00 

00 

00 

00 

00 

00 

00 

00 

d2 

0801 

: 

10 

08 

34 

0a 

9e 

32 

30 

36 

0c 

0ad9 

: 

00 

00 

00 

00 

00 

00 

00 

0a 

ee 

0809 

s 

36 

20 

20 

20 

20 

17 

00 

00 

16 

0ael 

: 

00 

00 

2a 

00 

30 

0b 

00 

a0 

io 

0811 

: 

00 

87 

a2 

ba 

bd 

0d 

07 

48 

c6 

0a&9 

: 

3f 

00 

30 

0c 

00 

a4 

3e 

bb 

f b 

0819 

: 

30 

df 

b9 

30 

08 

99 

ff 

00 

6b 

0af 1 

: 

a5 

ae 

00 

aa 

3e 

00 

20 

fe 

a5 

0821 

: 

88 

d0 

f7 

a9 

lf 

87 

24 

bd 

7f 

0af 9 

: 

00 

20 

ea 

00 

20 

g2 

00 

ab 

34 

0829 

: 

18 

07 

38 

e7 

24 

4c 

00 

01 

77 

0b 01 

: 

g2 

02 

aa 

aa 

00 

00 

00 

bb 

e4 

0831 

: 

a8 

85 

02 

a5 

ae 

a6 

af 

85 

bb 

0b09 

• 

00 

00 

00 

00 

00 

00 

00 

00 

0a 

0839 

: 

5a 

86 

5b 

be 

9g 

01 

ca 

30 

02 

0b 11 

: 

00 

00 

00 

00 

00 

00 

00 

00 

12 

0841 

: 

67 

bd 

9f 

01 

85 

59 

ca 

bd 

59 

0b 19 

: 

00 

00 

00 

00 

00 

00 

00 

0a 

2e 

0B49 

: 

9 f 

01 

85 

58 

ca 

bd 

9f 

01 

f0 

0b21 

: 

00 

00 

2a 

00 

30 

0b 

00 

a0 

50 

0851 

: 

85 

60 

ca 

bd 

9f 

01 

B5 

5f 

47 

0b29 

: 

3f 

00 

a0 

0C 

00 

a4 

be 

00 

32 

0859 

s 

Se 

9e 

01 

38 

a5 

59 

e5 

5b 

fl 

0b31 

3 

a5 

2e 

00 

aa 

3e 

00 

20 

fe 

a5 

0861 

: 

90 

06 

20 

10 

09 

58 

dB 

37 

03 

0b39 

: 

00 

20 

ea 

00 

20 

e2 

00 

ab 

74 

0869 

s 

65 

60 

aa 

18 

a5 

60 

85 

25 

6a 

0b41 

: 

e2 

02 

aa 

aa 

a2 

00 

30 

00 

dl 

0871 

: 

a5 

5f 

85 

24 

65 

58 

90 

01 

09 

0b49 

: 

a9 

07 

ad 

cl 

02 

8e 

C0 

02 

ad 

0879 

: 

e8 

38 

g5 

5a 

b0 

01 

ca 

85 

8b 

0b51 


8e 

c3 

02 

a9 

01 

Bd 

c2 

02 

02 

0B81 

: 

22 

86 

23 

bl 

24 

91 

22 

e6 

0a 

Bb59 

3 

Be 

20 

d0 

Be 

21 

dB 

b9 

78 

6e 

0889 

: 

24 

d0 

02 

e£> 

25 

e6 

22 

d0 

26 

0b61 

: 

30 

f0 

0c 

20 

d2 

ff 

c8 

dB 

02 

0891 

: 

02 

e6 

23 

a5 

23 

c5 

59 

dB 

eb 

0b69 

3 

f 5 

ee 

lc 

30 

4c 

la 

30 

a9 

Bc 

0899 

: 

ea 

a5 

22 

c5 

58 

d0 

e4 

a5 

B2 

0b71 

3 

00 

85 

02 

a9 

04 

85 

03 

a9 

b5 

08a 1 

: 

5f 

a6 

60 

a4 

02 

4c 

07 

01 

al 

0b79 

: 

dB 

85 

04 

a9 

3f 

85 

05 

30 

C0 

0Ba9 

: 

20 

8e 

a6 

ea 

ea 

ea 

ea 

ea 

9f 

0b81 

3 

00 

bl 

02 

18 

69 

80 

91 

04 

c6 

08b 1 

: 

ea 

68 

20 

88 

01 

6c 

02 

30 

a5 

0b89 

3 

cB 

C0 

28 

dB 

f 4 

e6 

05 

e6 

3e 

0Bb9 

: 

c8 

49 

0b 

48 

2d 

9d 

01 

aa 

0b 

0b91 

3 

05 

a5 

02 

18 

69 

28 

90 

02 

0b 

08c: 1 

: 

29 

06 

c9 

06 

f0 

01 

78 

68 

ea 

0b99 

3 

e6 

03 

85 

02 

a5 

04 

1B 

69 

50 

0Bc9 

: 

97 

00 

4c 

00 

30 

37 

30 

38 

61 

0b al 

: 

a8 

90 

02 

e6 

05 

85 

04 

e8 

4d 

08dl 


09 

86 

03 

7g 

09 

00 

28 

06 

eb 

0b a9 

: 

eta 

16 

dB 

d3 

30 

00 

b9 

ea 

0a 

0Bd9 

: 

0a 

3f 

29 

45 

0b 

15 

34 

5a 

55 

Bbbl 

3 

33 

f0 

06 

20 

d2 

ff 

c8 

dB 

d4 

08el 


0+ 

28 

cl 

82 

10 

71 

cl 

b3 

C0 

0bb9 

3 

f 5 

4c 

40 

03 

93 

bl 

af 

af 

2a 

0Be9 

: 

10 

9a 

cl 

cd 

10 

bB 

cl 

e5 

0a 

Bbcl 

3 

af 

af 

b4 

af 

b4 

af 

b4 

af 

66 

08f 1 

» 

10 

68 

c3 

4d 

12 

b6 

c3 

93 

dd 

0bc9 

: 

af 

af 

af 

af 

af 

af 

af 

af 

c8 

08f 9 

: 

12 

3f 

c7 

d2 

15 

13 

cf 

0c 

38 

0bd 1 

s 

af 

af 

af 

af 

af 

af 

af 

af 

dB 

0901 

: 

0C 

0c 

0C 

0d 

0d 

0d 

0d 

0G 

42 

0bd9 

: 

af 

af 

af 

af 

af 

af 

af 

af 

d8 

0909 

: 

0G 

0e 

0G 
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Mousetrap 

Eine Mausefalle für Spielernaturen: 
Labyrinthspiel mit Generator. 

Grki führte ein ganz normales Feldmausleben, bis sie eines 
düsteren Tages von einem Institut für Verhaltensforschung im 
Rahmen eines Beobachtungsprogramms gefangen und in ein 
Labyrinth eingesperrt wurde zwecks Verhaltensstudiums. Da 
Grki natürlich auch hier des öfteren einem nagenden Hunger¬ 
gefühl verfällt, muß sie irgendwie für ihre Nahrung sorgen. 
Glücklicherweise sind im ganzen Labyrinth Käsestückchen 
verteilt, welche Grki fressen kann, um zu überleben. Die 
Sache wäre zu wundervoll, wenn sie nicht ein paar Haken 
hätte! 

Haken Nummer 1: Grki kann nicht ewig im Labyrinth auf der 
Suche nach Käse umherirren, sondern muß ihren Hunger in 
einer bestimmten Zeit gestillt haben. 

Haken Nummer 2 besteht aus Katzen, die — zwar festge¬ 
bunden — nur darauf warten, daß Grki in sie hineinrennt. 

Und schließlich gibt es da noch weitere gefräßige Tierchen, 
die speziell für Mäuse einen Heißhunger entwickeln können. 

Zum Glück kommt Grki ihr ausgezeichneter Geruchssinn zu 
Hilfe. Mit diesem nämlich kann sie Käse und Verfolger im gan¬ 
zen Labyrinth lokalisieren, auch außerhalb ihres Blickfeldes, 
das nur einen kleinen Teil des Labyrinths umfaßt. Zusätzlich 
hat Grki im Laufe ihrer Gefangenschaft einen speziellen »Mäu¬ 
seschrei« entwickelt, der selbst die Verfolger so erschreckt, 
daß sie langsamer werden und manchmal für ein paar Sekun¬ 
den erstarren. 


Gesteuert wird das Ganze mit einem Joystick (oder auf der 
Tastatur mit I, J, M, L). Ein Druck auf den Feuerknopf (shift) läßt 
den lautsprecherruinierenden Mäuseschrei erklingen. Der 
Geruchssinn wird in Form eines kleinen Radarfeldes darge¬ 
stellt (man kann darauf die Käsestückchen und die blinken¬ 
den Verfolger erkennen). 

Anläßlich des 300. Geburtstages des berühmten Kompo¬ 
nisten wird das Spiel von der Badinerie der h-moll Suite von 
J.S. Bach begleitet. 

Das Spiel wird von einem kleinen Menü aus angesprochen, 
in welchem man das Tempo von Grki und jenes der Verfolger 
wählen kann. Es ist somit möglich, ein beliebiges Geschwin¬ 
digkeitsverhältnis einzugeben. Außerdem kommt man durch 
Druck auf F5 in das Untermenü »Maze Construction«. 

Da es sich bei dem Spiel um ein reines Maschinencodepro¬ 
gramm handelt, mußesmitderHex-Eingaberoutine(Listing 1) 
eingegeben werden. Diese ist so konzipiert, daß man bisher 
eingegebene Bytes Zwischenspeichern kann, um zum Bei¬ 
spiel erst am nächsten Tag fortzufahren. 

Achtung! Vor Eingabe oder Laden der Eingaberoutine 
müssen sie unbedingt stets zuerst »POKE44,53:POKE53* 
256,0:NEW« eingeben, dain den darunterliegenden Bereich 
der Maschinencode gepoked wird. Nach Starten mit» RUN « 
fragt das Programm zunächst, ob ein bereits abgespeicherter 
Teil des Maschinenprogramms (Listing 2) geladen werden 
soll. Falls Sie bereits einen Teil abgespeichert haben, sollten 
Sie diesen jetzt laden lassen. Während des Ladevorgangs 
erhalten Sie eine Meldung über Anfang und Ende des gespei¬ 
cherten Programmteils. 

Anschließend erscheint die Frage, ab welcher Adresse Sie 
neue Daten eingeben wollen. Falls Sie vorher einen Pro¬ 
grammteil geladen hatten, sollten Sie jetzt die von der Lade¬ 
routine ausgegebene »bis«-Adresse angeben. Haben Sie 
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nichts geladen (also beim ersten Start der Eingaberoutine), 
dann sollten Sie jetzt »1200« eingeben, also die Anfangs¬ 
adresse des Maschinenprogramms (siehe Listing 2). 

Sie können jetzt die Daten aus Listing 2 eingeben. Der Auf¬ 
bau einer Zeile in Listing 2 ist folgender: Zunächst kommt die 
Adresse (wie alle Eingaben hexadezimal!), gefolgt von einem 
Doppelpunkt. Die Adresse wird während der Eingabe vorge¬ 
geben, braucht also nicht eingetippt zu werden (den Doppel¬ 
punkt bitte auch nicht eingeben). 

Anschließend folgen acht Datenbytes, im Listing durch 
einen Zwischenraum getrennt, der aber von der Eingaberou¬ 
tine ebenfalls vorgegeben wird. Das letzte Datenbyte in jeder 
Zeile (das neunte) stellt eine Prüfsumme dar. Geben Sie die¬ 
ses Byte ebenfalls ein. Die Eingaberoutine stellt fest, ob die 
Prüfsumme stimmt. Falls die Zeile einen Fehler enthält, erfolgt 
eine entsprechende Meldung, und die fragliche Zeile muß 
neu eingegeben werden. Wollen Sie die Eingabe unterbre¬ 
chen, dann drücken Sie einfach die RETURN-Taste. Dies 
bewirkt einen Sprung in die SAVE-Routine. Sie müssen einen 
Filenamen angeben und den Speicherbereich (hexadezi¬ 
mal!), der auf Kassette oder Diskette gespeichert werden 
soll. Die Anfangsadresse (»von«) sollte dabei immer 1200 


sein, die Endadresse (»bis«) ist die Adresse des zuletzt einge¬ 
gebenen Datenbytes. Nach dem Abspeichern ist ein VERIFY 
möglich, was bei Verwendung einer Datasette unbedingt zu 
empfehlen ist. 

Haben Sie auf diese Art und Weise schließlich in mehreren 
Etappen das gesamte Programm im Speicher, dann sollten 
Sie es sicherheitshalber zunächst nochmals, wie oben 
beschrieben, abspeichern. Dann unterbrechen Sie das 
Eingabe-Programm und geben im Direktmodus folgende 
Zeile ein: 

POKE 43,1: POKE 44,18: POKE 45,0: POKE 46,53:CLR 
Nach »LIST« sollte jetzt die Basic-Zeile 

0 SYS 13457 

erscheinen. Ist dies nicht der Fall, haben Sie irgend etwas 
falsch gemacht. Lesen Sie sich die Anleitung bitte nochmals 
aufmerksam durch. 

Erscheint aber die SYS-Zeile auf dem Bildschirm, dann kön¬ 
nen Sie aufatmen. Bevor Sie aber irgend etwas anderes 
unternehmen, sollten Sie das jetzt erst einmal wie ein norma¬ 
les Basic-Programm mit SAVE abspeichern. Danach dürfen 
Sie mit »RUN« auf Käsesuche gehen... 

(Jirco Kos / ev) 


1 REM HEX—EINGABE—ROUTINE 

2 REM 

5 GOTO 100 

10 Z=0:FOR 1=1 TO LEN(Z*>:ZZ=ASC(MID*<Z*,I 
,1)):Z=16*Z+Z Z-4B+(Z Z >64)*7:NEXT s RETURN 

20 Z*="":FOR 1=1 TO 4: ZZ=INT (Z/16) : Z=Z-INT 
(ZZ)*16:Z*=CHR*(48+Z-<Z>9>*7)+Z*:Z=ZZ 

21 NEXT:RETURN 

25 GOSUB 20:Z*=RIGHT$ <Z*,2):RETURN 

30 X*="":I=0:PRINT"TRVSON,SPACE,RVOFF,LEFT 
>"; 

31 GET A$:IF A$=""THEN 31 

32 1=1+1:IF A$<>MIDT("0123456789ABCDEF"+CH 
R9U3>+A*,I,1> THEN 32 

33 1=1-1:IF 1=16 THEN 60 

34 IF 1=17 THEN 30 

35 PRINT A$;:Z$=Z$+A$:RETURN 

40 PRINT” ";:ZS="":GOSUB 30:GOSUB 30:GOSUB 
10:RETURN 

50 Z=X:GOSUB 20:PRINT Z$;" ";:S=0 

51 FOR J=1 TO 8:GOSUB 40:POKE X,Z:X=X+1:S= 
S+Z:NEXT 

52 PRINT"<2SPACE>";:GOSUB 40:S=S AND 255:P 
RINT:RETURN 

60 PRINT:INPUT”FILENAME"; NS: INPUT”VON";X1$ 
:INPUT"BIS";X2* 

61 INPUT“DISK/TAPE <D/T)";G*:IF G*="T“THEN 

G=1:FS="“:GOTO 64 

62 IF G*="D"THEN G=8:F*=",S,W":N*="@:"+N*: 
GOTO 64 

63 GOTO 61 

64 Z*=X1*:G0SUB 10:X1=Z:Z*=X2*:GOSUB 10:X2 
=Z 

65 OPEN 1,G,2,N*+F*:PRINT#1,X1:PRINT#1,X2: 
PRINT"{DOWNJSAVING...<DOWN>" 

66 FOR I=X1 TO X2:PRINT#1,PEEK(I):NEXT:CLO 
SE 1 

67 INPUT"VERIFY (J/N)"sV*:IF V*="N"THEN EN 


<057> 

<064> 

<189> 

<016> 

< 189> 
<216> 

< 199> 

< 106> 
<008> 

<096> 


68 IF V*<>"J"THEN 67 

69 IF G=8 THEN F*=",S,R" 

70 OPEN 1,G,0,N*+F$:PRINT"<DOWN>VERIFYING. 
.. <DOWN>":INPUT#l,A,B:IF AOX1 OR BOX2 

THEN 72 

71 FOR I=X1 TO X2:INPUT#1,P:IF P=PEEK(I)TH 
EN NEXT:PRINT"OK":END 

72 PRINT"FEHLER, BITTE NEU ABSPEICHERN !": 
PRINT:GOTO 60 

90 REM 

100 INPUT"LOAD (L)":L*:IF L*="L"THEN GOSUB 
140 

110 1PUT"EINGABE AB ADR";ZS:GOSUB 10:X=Z 


<185> 
<030> 
< 144> 

<238 > 
<042> 

<117> 

<254> 


120 GOSUB 50: IF SOZ THEN: X=X-8: Z=S: GOSUB 
25:PRINT"<DOWN>*** FEHLER CS="5Z$;"> * 
**<DOWN>" 

130 GOTO 120 

140 PRINT:INPUT"FILENAME" : N* 

145 INPUT"DISK/TAPE (D/T)";GS:IF G$="T”THE 
N G=1:F$="“:GOTO 155 

150 IF G*="D"THEN G=8: FS=" ,S,R" : GOTO 155 

151 GOTO 145 

155 Z*=X1*:G0SUB 10: X 1=Z: Z*=X2S: GOSUB 10-.X 


2=Z 


< 153> 

<159> 

<085> 
<041 > 


160 OPEN 1,G,0,N*+F*:INPUT#1,X1:INPUT#1,X2 

162 Z=X1:GOSUB 20:PRINT:PRINT"VON: ";Z*:Z= 
X2:GOSUB 20:PRINT"BIS: ";ZS 

163 PRINT"{DOWNJLOADING.. .<DOWN>” 

165 FOR I=X1 TO X2:INPUT#1,P:POKE I,P:NEXT 
:CLOSE 1:PRINT"OK" 

170 RETURN 


<254> 


6 64'*?r 


< 102 > 

< 169> 

< 188> 


<204> 

< 190> 

< 105> 

< 152> 

<015> 

<018> 


< 129> 
<090> 
<22B> 

<058> 
<041 > 
<047> 

<0B9> 

<157> 

<066> 

<076> 

< 135> 
<228> 


< 111 > 
< 196> 


Listing 1. Hex-Eingabe-Routine zur Eingabe des Maschi¬ 
nenprogramms in Listing 2. Vor der Eingabe oder dem 
Laden »POKE 44,53:POKE 53*256,0: NEW« eingeben. 


1200: 

00 

0C 

12 

00 

00 

9E 

31 

33 

20 

1208: 

34 

35 

37 

00 

00 

00 

00 

00 

A0 

1210: 

50 

4F 

00 

00 

00 

00 

00 

4A 

E9 

1218: 

44 

14 

5C 

F9 

10 

85 

EA 

08 

34 

1220: 

1A 

10 

C4 

AE 

05 

26 

El 

03 

AB 

1228: 

84 

40 

78 

A9 

4D 

8D 

14 

03 

D6 

1230: 

A9 

12 

8D 

15 

03 

A9 

10 

85 

9E 

1238: 

00 

A9 

05 

85 

01 

A9 

00 

85 

62 

1240: 

02 

A9 

02 

8D 

18 

03 

A9 

FE 

FC 

1248: 

BD 

19 

03 

SB 

60 

C6 

01 

A5 

CD 

1250: 

01 

C9 

00 

F0 

03 

4C 

BF 

EA 

B2 

1258: 

A9 

07 

85 

01 

C6 

00 

A5 

00 

Al 

1260: 

8D 

0E 

90 

C9 

0F 

EA 

F0 

03 

E0 

1268: 

4C 

BF 

EA 

A9 

10 

85 

00 

E6 

19 

1270: 

02 

A6 

02 

E0 

81 

D0 

04 

A2 

81 

1278: 

00 

86 

02 

BD 

00 

IF 

8D 

0C 

FD 

1280: 

90 

BD 

00 

IF 

8D 

0C 

90 

4C 

El 

1288: 

BF 

EA 

78 

A9 

BF 

8D 

14 

03 

2D 

1290: 

A9 

EA 

BD 

15 

03 

58 

A9 

00 

39 

1298: 

8D 

0C 

90 

8D 

0B 

90 

60 

C3 

74 



12A0: 

13 

ID 

ID 

ID 

ID 

ID 

IE 

48 

0A 

12AB: 

49 

47 

48 

53 

43 

4F 

52 

45 

54 

12B0: 

3A 

13 

11 

11 

11 

11 

11 

11 

B3 

12B8: 

11 

11 

11 

11 

11 

11 

11 

ID 

94 

12C0: 

05 

46 

31 

9E 

20 

44 

45 

49 

0C 

12C8: 

4E 

20 

54 

45 

4D 

50 

4F 

3A 

2D 

12D0: 

0D 

11 

ID 

ID 

ID 

ID 

ID 

ID 

CC 

12DB: 

ID 

ID 

ID 

05 

46 

33 

9F 

20 

94 

12E0: 

49 

48 

52 

20 

54 

45 

4D 

50 

39 

12E8: 

4F 

20 

3A 

0D 

11 

9D 

9D 

9D 

9E 

12F0: 

9D 

9D 

05 

46 

35 

IE 

20 

4D 

45 

12F8: 

41 

5A 

45 

20 

43 

4F 

4E 

53 

33 

1300: 

54 

52 

55 

43 

54 

49 

4F 

4E 

78 

1308: 

D2 

90 

47 

41 

4D 

45 

20 

4F 

EB 

1310: 

56 

45 

52 

IC 

D2 

0D 

93 

11 

BC 

1318: 

9C 

ID 

ID 

ID 

4D 

41 

5A 

45 

20 

1320: 

20 

43 

4F 

4E 

53 

54 

52 

55 

4E 

1328: 

43 

54 

0D 

11 

IE 

ID 

ID 

ID 

2A 

1330: 

ID 

48 

45 

52 

53 

54 

45 

4C 

34 

1338: 

4C 

55 

4E 

47 

0D 

ID 

ID 

ID 

9A 


1340: 

ID 

ID 

ID 

45 

49 

47 

45 

4E 

BF 

1348: 

45 

52 

0D 

ID 

ID 

ID 

ID 

4C 

64 

1350: 

41 

42 

59 

52 

49 

4E 

54 

48 

61 

1358: 

45 

0D 

11 

11 

05 

31 

9F 

2E 

77 

1360: 

2E 

9E 

4E 

45 

55 

45 

53 

20 

6C 

1368: 

4C 

41 

42 

59 

52 

49 

4E 

54 

65 

1370: 

48 

0D 

11 

11 

05 

32 

9F 

2E 

7B 

1378: 

2E 

9E 

41 

4C 

54 

45 

53 

20 

65 

1380: 

45 

52 

57 

45 

49 

54 

45 

52 

67 

1388: 

4E 

0D 

11 

IE 

4D 

49 

54 

20 

94 

1390: 

05 

46 

31 

IE 

20 

4B 

4F 

45 

99 

1398: 

4E 

4E 

45 

4E 

20 

53 

49 

45 

30 

13A0: 

20 

20 

20 

20 

5A 

57 

49 

53 

CD 

13A8: 

43 

48 

45 

4E 

20 

4C 

4F 

45 

IE 

13B0: 

53 

43 

48 

20 

55 

4E 

44 

20 

05 

13BB: 

20 

20 

50 

52 

55 

45 

46 

4D 

0F 


Listing 2. Maschinenprogramm 
»Mousetrap«. Eingabe nur mit der 
Hex-Eingabe-Routine nach Listing 1. 

57 







Spielegeneratoren 


VC 20 + 16 KByte 


13C0: 

4F 

44 

55 

53 

20 

55 

4D 

53 

50 

1688: 

E0 

10 

88 

C8 

C0 

E0 

E0 

E0 

A0 

1950: 

00 

00 

FF 

FF 

FF 

FF 

FF 

FF 

FA 

13C8: 

43 

48 

41 

4C 

54 

45 

4E 

2E 

2D 

1690: 

FF 

FF 

DB 

FF 

FF 

DB 

FF 

FF 

B0 

1958: 

FF 

FF 

01 

01 

01 

01 

00 

01 

03 

13D0: 

0D 

9F 

4D 

49 

54 

20 

9C 

52 

A4 

1698: 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

F8 

1960: 

01 

01 

01 

01 

01 

01 

00 

01 

07 

13D8: 

45 

54 

55 

52 

4E 

9F 

20 

47 

94 

16A0: 

00 

03 

0F 

1F 

39 

39 

3F 

3F 

21 

1968: 

01 

01 

00 

01 

01 

00 

00 

01 

05 

13E0: 

45 

4C 

41 

4E 

47 

45 

4E 

20 

1A 

16A8: 

00 

C0 

F0 

F8 

9C 

9C 

FC 

FC 

D8 

1970: 

00 

00 

00 

01 

01 

01 

00 

01 

04 

13E8: 

20 

20 

53 

49 

45 

20 

49 

4E 

D8 

16B0: 

10 

3C 

7F 

77 

6D 

3B 

7B 

6F 

D4 

1978: 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

F8 

13F0: 

53 

20 

4D 

45 

4E 

55 

20 

5A 

22 

16BB: 

00 

90 

F8 

74 

FC 

9C 

EC 

F8 

78 

1980: 

01 

00 

00 

00 

00 

00 

00 

00 

01 

13F8: 

55 

52 

55 

45 

43 

4B 

2E 

00 

FD 

16C0: 

FF 

81 

81 

81 

81 

81 

81 

FF 

04 

1988: 

00 

00 

00 

01 

00 

00 

00 

00 

01 

1400: 

18 

18 

18 

7E 

7E 

7E 

18 

18 

F2 

16C8: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

1990: 

00 

01 

01 

00 

00 

00 

00 

01 

03 

1408: 

7C 

7C 

C6 

C6 

FE 

FE 

C6 

00 

46 

16D0: 

13 

3D 

7F 

6F 

5F 

66 

3C 

00 

3F 

1998: 

01 

01 

01 

01 

00 

00 

FF 

FF 

02 

1410: 

FC 

FE 

66 

7C 

66 

FE 

FC 

00 

3C 

16D8: 

FB 

DC 

F6 

7A 

E6 

7E 

3C 

00 

E4 

19A0: 

FF 

FF 

FF 

FF 

FF 

FF 

01 

00 

FB 

1418: 

3C 

7E 

E6 

C0 

E6 

7E 

3C 

00 

00 

16E0: 

0F 

0F 

0F 

07 

27 

23 

11 

0E 

9D 

19A8: 

01 

01 

00 

01 

00 

01 

01 

01 

06 

1420: 

FB 

FC 

66 

66 

66 

FC 

F8 

00 

1A 

16E8: 

E0 

E0 

E0 

C0 

C0 

80 

00 

00 

A0 

19B0: 

00 

01 

00 

01 

01 

01 

00 

01 

05 

1428: 

FE 

FE 

C0 

FC 

C0 

FE 

FE 

00 

74 

16F0: 

23 

21 

20 

11 

13 

0B 

0F 

07 

A9 

19B8: 

01 

01 

00 

01 

00 

00 

00 

01 

04 

1430: 

FE 

FE 

C0 

FB 

C0 

C0 

C0 

00 

F4 

16F8: 

30 

E0 

F0 

F8 

FC 

FC 

FE 

D6 

C4 

19C0: 

01 

01 

00 

01 

FF 

FF 

FF 

FF 

FF 

1438: 

3E 

7E 

C0 

CE 

C6 

7E 

3C 

00 

CA 

1700: 

50 

42 

48 

41 

60 

IC 

03 

00 

9A 

19CB: 

FF 

FF 

FF 

FF 

01 

00 

01 

01 

FF 

1440: 

C6 

C6 

C6 

FE 

FE 

C6 

C6 

00 

DA 

1708: 

78 

08 

28 

08 

48 

08 

88 

78 

00 

19D0: 

00 

01 

00 

01 

01 

00 

00 

00 

03 

1448: 

3C 

3C 

18 

18 

18 

3C 

3C 

00 

38 

1710: 

3F 

1F 

07 

00 

00 

00 

00 

00 

65 

19D8: 

00 

01 

01 

01 

00 

00 

00 

01 

04 

1450: 

IE 

IE 

0C 

0C 

CC 

FC 

78 

00 

94 

1718: 

F6 

DC 

80 

00 

00 

00 

00 

00 

52 

19E0: 

00 

01 

00 

01 

00 

00 

00 

00 

02 

1458: 

C6 

CC 

08 

F0 

F8 

DC 

CE 

00 

FC 

1720: 

6F 

3B 

01 

00 

00 

00 

00 

00 

AB 

19E8: 

00 

00 

FF 

FF 

FF 

FF 

FF 

FF 

FA 

1460: 

C0 

C0 

C0 

C0 

C0 

FE 

FE 

00 

BC 

1728: 

FD 

F9 

El 

02 

0C 

00 

00 

00 

E5 

19F0: 

FF 

FF 

01 

00 

01 

01 

00 

01 

02 

1468: 

C6 

EE 

FE 

D6 

C6 

C6 

C6 

00 

DA 

1730: 

07 

07 

03 

07 

05 

07 

03 

01 

28 

19F8: 

00 

01 

01 

00 

01 

01 

00 

00 

04 

1470: 

C6 

E6 

F6 

OE 

CE 

C6 

C6 

00 

DA 

1738: 

C0 

C0 

80 

C0 

40 

C0 

80 

00 

40 

1A00: 

00 

00 

00 

01 

00 

01 

00 

01 

03 

1478: 

7C 

FE 

C6 

C6 

C6 

FE 

7C 

00 

46 

1740: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

1A08: 

00 

01 

01 

01 

01 

01 

01 

00 

06 

1480: 

FE 

FE 

C6 

FE 

C0 

C0 

C0 

00 

00 

1748: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

1A10: 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

F8 

1488: 

7C 

FE 

C6 

D6 

CE 

FC 

7A 

00 

5A 

1750: 

3D 

3F 

1F 

1F 

06 

0C 

0C 

18 

F0 

1A18: 

01 

00 

00 

00 

00 

01 

00 

01 

03 

1490: 

FE 

FE 

C6 

FE 

08 

CC 

C6 

00 

2A 

1758: 

5C 

FC 

F8 

F8 

60 

30 

30 

18 

20 

1A20: 

01 

00 

01 

01 

00 

01 

00 

01 

05 

1498: 

3E 

7E 

60 

7E 

06 

7E 

7C 

00 

9A 

1760: 

7B 

33 

36 

77 

ED 

FF 

7F 

18 

DE 

1A28: 

01 

01 

00 

01 

00 

01 

00 

00 

04 

14A0: 

7E 

7E 

18 

18 

18 

3C 

3C 

00 

BC 

1768: 

38 

6C 

FC 

DE 

EE 

FC 

7C 

08 

EC 

1A30: 

00 

00 

00 

00 

01 

00 

FF 

FF 

FF 

14A8: 

C6 

C6 

C6 

C6 

C6 

FE 

7C 

00 

58 

1770: 

7F 

40 

5E 

5E 

52 

52 

52 

5E 

CF 

1A3B: 

FF 

FF 

FF 

FF 

FF 

FF 

01 

01 

FC 

14B0: 

C6 

C6 

C6 

6C 

6C 

38 

38 

00 

9A 

1778: 

5E 

50 

50 

50 

50 

50 

40 

7F 

AD 

1A40: 

01 

01 

01 

01 

00 

01 

01 

00 

06 

14B8: 

C6 

C6 

C6 

D6 

FE 

EE 

C6 

00 

DA 

1780: 

FF 

00 

F7 

F7 

94 

94 

94 

F7 

A0 

1A48: 

01 

01 

00 

01 

00 

01 

01 

01 

06 

14C0: 

C6 

C6 

6C 

38 

6C 

C6 

C6 

00 

28 

1788: 

F7 

96 

95 

95 

94 

94 

00 

FF 

DE 

1A50: 

00 

00 

00 

01 

01 

01 

01 

01 

05 

14C8: 

66 

66 

66 

3C 

3C 

18 

18 

00 

DA 

1790: 

FF 

01 

BD 

BD 

A5 

A5 

A5 

BD 

26 

1A58: 

01 

00 

01 

00 

FF 

FF 

FF 

FF 

FE 

14D0: 

7E 

7E 

06 

18 

60 

7E 

7E 

00 

76 

1798: 

BD 

25 

25 

25 

A5 

A5 

01 

FF 

76 

1A60: 

FF 

FF 

FF 

FF 

00 

00 

00 

00 

FC 

14DB: 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

F8 

17A0: 

00 

18 

18 

7E 

7E 

18 

18 

00 

5C 

1A68: 

01 

01 

00 

00 

00 

00 

00 

00 

02 

14E0: 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

F8 

17A8: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

1A70: 

00 

01 

00 

01 

01 

01 

01 

01 

06 

14E8: 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

F8 

17B0: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

1A78: 

00 

00 

00 

01 

01 

01 

01 

00 

04 

14F0: 

FF 

FF 

FF 

FF 
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F5 
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F5 
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F5 
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A9 

6C 

D3 
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8D 
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A9 

00 

8D 

0A 

3F 

4B 
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A9 

10 

8D 
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3F 
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02 

6D 
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3F 

E9 

9C 

8D 
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3F 
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03 
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3F 
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A9 
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Spielegeneratoren 


VC 20 + 16 KByte 
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AD 

02 

1A 

3458: 

8D 

B0 

03 

A9 

01 

BD 

57 

03 

Dl 

2ED0 

03 

20 

CD 

DD 

AE 

D0 

03 

BD 

0B 

3198: 

3F 

85 

FB 

AD 

03 

3F 

85 

FC 

2F 

3460: 

AD 

46 

03 

BD 

48 

03 

AD 

47 

C2 

2ED8 

9F 

12 

20 

D2 

FF 

EE 

D0 

03 

63 

31A0: 

A0 

00 

A9 

02 

91 

FB 

18 

90 

7F 

3468: 

03 

BD 

49 

03 

20 

EC 

ID 

4C 

51 

2EE0 

AE 

D0 

03 

E0 

69 

D0 

F0 

A2 

2C 

31 AS: 

12 

8D 

3E 

03 

20 

6D 

23 

20 

B0 

3470: 

C7 

33 

A9 

01 

8D 

D9 

03 

8D 

9A 

2EE8 

06 

A9 

06 

9D 

2D 

95 

9D 

61 

12 

31B0: 

76 

20 

A9 

F5 

BD 

DB 

03 

20 

BF 

3478: 

CI 

03 

4C 

40 

2D 

13 

05 

4C 

El 

2EF0 

95 

A9 

58 

9D 

2D 

11 

9D 

61 

6F 

31B8: 

D2 

2D 

60 

A2 

08 

8E 

D0 

03 

6A 

3480: 

4F 

45 

53 

43 

48 

45 

4E 

13 

18 

2EF8 

11 

CA 

10 

ED 

AD 

D7 

03 

8D 

EC 

31C0: 

A9 

DA 

20 

A9 

31 

A9 

01 

20 

47 

3488: 

90 

50 

52 

55 

45 

46 

45 

4E 

A5 

2F00 

A4 

03 

AD 

D8 

03 

8D 

A6 

03 

65 

31C8: 

A9 

31 

A9 

26 

20 

A9 

31 

A9 

4C 

3490: 

20 

A9 

00 

8D 

9A 

03 

8D 

9B 

1B 

2F08 

38 

A9 

34 

ED 

A4 

03 

85 

03 

31 

31D0: 

FF 

20 

A9 

31 

CE 

D0 

03 

D0 

6A 

3498: 

03 

8D 

D9 

03 

A9 

0F 

8D 

0E 

BF 

2F10 

A9 

11 

85 

04 

38 

A9 

68 

ED 

79 

31D8: 

E7 

A9 

56 

BD 

04 

11 

A9 

57 

BB 

34 A0: 

90 

A9 

06 

8D 

D7 

03 

8D 

D8 

0B 

2F18 

A6 

03 

85 

05 

A9 

11 

85 

06 

78 

31E0: 

8D 

05 

11 

A9 

6C 

8D 

16 

11 

6C 

34 A8: 

03 

4C 

40 

2D 

2C 

FF 

B7 

FF 

9D 

2F20 

20 

E4 

FF 

F0 

79 

C9 

87 

D0 

8C 

31E8: 

A9 

6D 

SD 

17 

11 

A9 

00 

8D 

01 

34B0: 

FF 

00 

FF 

05 

FF 

FF 

FF 

FF 

FF 

2F28 

06 

4C 

4D 

33 

DD 

03 

60 

C9 

DB 

31F0: 

0B 

90 

8D 

0C 

90 

AD 

D7 

03 

4B 











2F30 

85 

D0 

35 

A5 

04 

18 

69 

84 

3B 

31F8: 

8D 

A4 

03 

AD 

D8 

03 

8D 

A6 

EF 











2F38 

85 

04 

A9 

06 

A0 

00 

91 

03 

6C 

3200: 

03 

EE 

D5 

03 

20 

FE 

30 

AD 

C4 











2F40 

38 

A5 

04 

E9 

84 

85 

04 

A9 

80 

3208: 

D5 

03 

CD 

D6 

03 

D0 

06 

4C 

A0 











2F48 

58 

91 

03 

E6 

03 

CE 

A4 

03 

4A 

3210: 

2A 

32 

B2 

03 

60 

4C 

D8 

2B 

C0 

Listmg 2 . 

Maschinenprogramm 


2F50 

CE 

D7 

03 

A5 

03 

C9 

34 

D0 

ID 

3218: 

8D 

BF 

03 

8E 

D0 

03 

AD 

BF 

IC 

»Mousetrap« 

(Schluß) 
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Spielegeneratoren 


VC 20 + 8 KByte 




Autorennen 

der 

Sonderklasse 

Nicht nur Beschleunigung, Höchstge¬ 
schwindigkeit und Bremswirkung des 
Rennwagens können per Menü einge¬ 
stellt werden, es lassen sich mit Circle 
Circuit auch eigene Rennstrecken auf 
dem VC 20 entwerfen und speichern. 

Mit diesem Spiel können Sie den besten Rennfahrer in Ihrer 
Familie oder in Ihrem Freundeskreis ermitteln. Es geht darum, 
mit einem Rennwagen so schnell wie möglich eine bestimmte 
Anzahl von Runden in einem Rundkurs zu fahren. Das Fahr¬ 
zeug wird mittels Joystick gelenkt. Drückt man auf den Feuer¬ 
knopf, so beschleunigt das Auto, läßt man ihn wieder los, so 
wird es abgebremst. Nach jeder Runde wird die Zwischenzeit 
angezeigt. Nachdem jeder Spieler gefahren ist, wird die 
Rangliste mit den Zeiten auf dem Bildschirm ausgegeben. 

Doch nun von Anfang an: Nach dem Start des Programms 
erscheint nach einer Weile das Titelbild mit den Wahlmöglich¬ 
keiten. Im Gegensatz zur normalen Bildschirmaufteilung wird 
bei diesem Programm der Bildschirmrahmen mitbenutzt, so 
daß jetzt 800 statt den bisherigen 506 Zeichen auf dem Bild¬ 
schirm Platz haben. Sollte das Bild nicht genau in der Mitte 
stehen, kann es mit den Cursor-Tasten zentriert werden. 

Zum Spielen muß man die Taste »S« drücken. Es folgt die 
Eingabe der Spieler- und der Rundenzahl. Der Rundkurs 
erscheint nun auf dem Bildschirm. Mit Betätigung des Joy¬ 
stickknopfs oder der Leertaste beginnt die Uhr zu laufen und 
man kann losfahren. Erreicht man das Ziel, so wird die Zwi¬ 
schenzeit angezeigt, und man ist in der nächsten Runde. 
Fährt man gegen eine Bande, so explodiert der Rennwagen, 
ist bald darauf aber wieder fahrtüchtig. Bei hoher Geschwin¬ 
digkeit kann es Vorkommen, daß das Auto einen Totalschaden 
hat. Der Spieler muß dann aufgeben, das heißt die Taste Fl 
drücken. Diese Taste bricht die Fahrt eines Spielers ab, egal in 
welcher Runde er sich befindet. 

Aus der Rangliste kann man ablesen, welches die besten 
Spieler waren. Jeder kann sich dann seine persönliche Best¬ 
leistung merken und versuchen, sie zu verbessern, was bei 
einiger Übung auch oft gelingt. Wenn diese Zeit dazu noch 
Bestzeit ist, kommt es nicht selten vor, daß sich der bisherige 
Rekordhalter ein wenig ärgert und zugleich dazu angespornt 
wird, noch besser zu fahren. Circle Circuit ist damit eines der 
wenigen Computerspiele, die in Gesellschaft genauso span¬ 
nend zu spielen sind wie alleine. 

Doch jetzt wird es erst richtig interessant: Wählt man beim 
Menü die Funktion »Motorleistung«, so können die Werte für 
die Beschleunigung (0 bis 254), Bremsbeschleunigung (0 
bis 254) und Höchstgeschwindigkeit (1 bis 254) durch Ver¬ 
ändern der alten Werte bestimmt werden, wobei die 
Beschleunigung größer als die Bremsbeschleunigung sein 
muß. Dadurch kann man Rennwagen sehr unterschiedlicher 
Leistungsklassen simulieren. Vom Tourenwagen bis Formel I 
ist alles drin. 

Um ganze Meisterschaftsserien fahren zu können, reicht 
es jedoch noch nicht aus, verschiedene Wagenklassen zur 
Verfügung zu haben. Es ist realistischer und macht auch 


mehr Spaß, auf verschiedenen Rennstrecken zu fahren. Und 
auch das ist kein Problem. 

Mit dem Editor kann der bestehende Rennkurs geändert 
oder ein vollkommen neuer Kurs erstellt werden. Auf diese 
Weise kann man beliebig viele Rennstrecken entwerfen und 
auf Massenspeicher übertragen. Die Palette reicht dabei von 
reinen Hochgeschwindigkeitskursen bis zu technisch 
anspruchsvolleren Strecken. 


Der Streckeneditor 


Nach Betätigen der Taste »E« des Menüs erscheint der Kurs 
auf dem Bildschirm. Der Cursor kann nun mit dem Joystick 
bewegt werden. Wenn man den Feuerknopf betätigt, er¬ 
scheint an der Cursorposition ein vorher gewähltes Zeichen. 

Die Zeichenwahl trifft man durch Druck auf eine entspre¬ 
chende Taste. Es sind fast alle nichtinversen Zeichen in allen 
Farben erlaubt. Folgende Tasten sind umdefiniert worden: 

T inverses Blank 
F Ecke links oben 
G Ecke rechts oben 
H Ecke links unten 

V Ecke rechts unten 
W Abrundung links 

X Abrundung rechts 

Y Abrundung oben 
Z Abrundung unten 

Die CLR-Taste löscht den Bildschirm. Mit den Tasten 2 bis 
8 wählt man die laufende Farbe. 

Die Funktionstasten F3 bis F7 dienen zur Positionierung 
des Rennwagens. Dabei bedeutet F3 in Richtung nach oben, 
F5 in Richtung nach links und F7 in Richtung nach rechts. 
Das fLjmmernzeichen »#« stellt die Ziellinie dar. Mit der 
Taste Fl gelangt man ins Menü zurück. 

Der sich momentan im Speicher befindliche Rennkurs kann 
auf Diskette oder Kassette gespeichert werden. Dabei wer¬ 
den Floppy-Fehler abgefangen. Wenn man für den Filenamen 
nur einen Stern (»*«) eingibt, so springt man zum Menü 
zurück. Dies kann von Nutzen sein, wenn man sich vertippt 
haben sollte. Wenn man das Programm mit STOP oder 
STOP/RESTORE abgebrochen hat, kann man mit »GOTO 
400« einen Warmstart durchführen. 


Das Eintippen 


Um das Programm einzutippen, geht man so vor: 

(1) POKE44,32:POKE7936,0:NEW (diese Befehle verschie¬ 
ben den Basic-Anfang nach oben). 

(2) Eintippen und Abspeichern des Listings 1. Wenn man den 
Basic-Teil fehlerlos abtippt und die -1 am Ende eines DATA- 
Blocks nicht vergißt, dürfte wohl jeder Fehler vom Programm 
erkannt werden. 

(3) Löschen des Listings 1 mit NEW und Abtippen des Listings 
2 (der Basic-Anfang muß immer noch verschoben sein!). 

Wenn Sie die beiden Teile abgespeichert haben, können Sie 
das Programm nach gleichem Schema laden (vor dem Laden 
muß ebenfalls der Basic-Anfang verschoben werden). 

Man kann das Programm auch als ein Ganzes abspeichern. 
Dazu sind folgende Schritte zu unternehmen: 

— Computer einschalten 

— POKE44,31:POKE7936,0:NEW 

— Listing 1 laden und starten 

— Listing 2 laden 

— ?PEEK(45);PEEK(46) eingeben und sich die Werte 
aufschreiben 

— POKE44,18:POKE4608,0:NEW 

— Folgende Basic-Zeile eingeben: 1 POKE44,31:RUN 
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— POKE45,(1.Wert):POKE46,(2.Wert) 

— SAVE'CIRCLE CIRCUIT”,1 (,8 bei Floppy) 

Auf diese Weise kann das Programm geladen und gestartet 
werden, ohne vorher etwas eingeben zu müssen. Und natür¬ 
lich sind Sie auch jetzt noch völlig frei, sich eigene Renn¬ 
strecken zu erzeugen und abzuspeichern. Vom Hinderniskurs 
bis zum Nürburgring ist alles möglich. Also auf zur Formel I- 
Weltmeisterschaft im Wohnzimmer! 

(Hannes Kaltenbach/ev) 


,202,208,250,133,1,165,2,24,105,20 <093> 

1050 DATA 133,2,96,169,0,133,42,133,63,133 

,64,162,8,70,41,144,13,165,63,24,101 <046> 

1060 DATA 40,133,63,165,64,101,42,133,64,6 

,40,38,42,202,208,232,96,177,251,170 <110> 

1070 DATA 56,237,68,3,240,4,201,5,144,4,13 

8,201,32,96,170,189,61,3,201,32,96 <142> 

1080 DATA 208,8,169,0,141,114,3,76,235,29, 

169,35,205,62,3,240,16,205,63,3,240 <132> 

1090 DATA 11,205,64,3,240,6,205,65,3,240,1 

,96,173,114,3,240,3,76,235,29,169,1 <174> 

1100 DATA 141,114,3,96,-1 <244> 

1999 REM »*** BLOCK 2 »*** <128> 

2000 DATA 254,252,252,248,240,224,128,0,12 

7,63,63,31,15,3,1,0 <242> 

2010 DATA 0,128,224,240,248,252,252,254,0, 

1,3,15,31,63,63,127 <218> 

2020 DATA 3,7,15,15,15,15,7,3,192,224,240, 

40,240,240,224,192 <211> 

2030 DATA 0,0,24,126,126,255,255,255,255,2 

55,255,126,126,24,0,0 <171> 

2040 DATA 8,62,20,20,93,93,73,0,16,96,82,2 

01,60,28,76,32 <063> 

2050 DATA 14,68,124,206,124,68,14,0 <173> 

2060 DATA 16,38,14,30,172,73,114,16 <191> 

2070 DATA 0,73,93,93,20,20,62,8,4,50,56,60 

,147,74,6,8 <015> 

2080 DATA 112,34,62,115,62,34,112,0 <032> 

2090 DATA 8,78,146,53,120,112,100,8,-1 <126> 

2999 REM **** BLOCK 3 **** <12B> 

3000 DATA 138,41,7,141,66,3,152,41,7,141,6 
7,3,138,74,74,74,170,152,74,74,74,168 <088> 

3010 DATA 134,251,169,25,133,40,132,41,32, 

138.19.165.64.24.105.16.133.252.165 <003> 
3020 DATA 251,24,101,63,133,251,144,2,230, 

252,96,32,116,19,160,0,177,1,145,82 <202> 

3030 DATA 200,192,8,208,247,96,160,0,140,6 

0,3,162,2,134,40,169,3,133,83,169,69 <089> 

3040 DATA 133,82,32,173,19,234,24,208,1,56 

,46,60,3,132,42,32,52,28,164,42,165 <237> 

3050 DATA 82,24,105,8,133,82,198,40,208,2, 

160,24,200,192,27,208,220,96,162,0 <047> 

3060 DATA 134,41,134,42,174,66,3,240,6,74, 

102,42,202,208,250,133,41,96,32,116 <148> 

3070 DATA 19,160,0,140,61,3,132,40,177,1,3 

2,121,28,172,67,3,165,41,240,27,25 <223> 

30B0 DATA 69,3,133,63,185,69,3,24,101,41,1 

76.4.197.63.240.5.169.1.141.61.3.165 <053> 
3090 DATA 63,153,69,3,165,42,240,27,25,77, 

3,133,63,185,77,3,24,101,42,176,4,197 <110> 
3100 DATA 63,240,5,169,1,141,61,3,165,63,1 

53,77,3,230,40,164,40,192,8,240,1B <099> 

3110 DATA 238,67,3,173,67,3,201,8,208,168, 

24,105,8,141,67,3,144,160,96,177,251 <051> 

3120 DATA 170,56,229,242,240,4,201,5,144,4 

,138,201,32,96,170,189,61,3,201,32 <157> 

3130 DATA 96,160,0,173,62,3,145,189,200,17 

3,63,3,145,189,160,25,173,64,3,145 <019> 

3140 DATA 189,200,173,65,3,145,189,96,160, 

0,177,251,141,62,3,200,177,251,141 <243> 

Listing 1. Maschinenspracheteil und Sonderzeichen zu 
»Circle Circuit« 


$1000 

4096 

Bildschirmspeicher 

$1320 

4896 

Maschinensprache 

$1400 

5120 

Zeichensatz 

$1C00 

7168 

Maschinensprache 

$1F00 

7936 

Basic-Beginn 

$3FFF 

16383 

Ende RAM-Speicher 


Speicheraufteilung bei »Circle Circuit« 


1 REM * CIRCLE CIRCUIT * <125> 

2 REM <064> 

3 REM VON HANNES KALTENBACH <069> 

4 REM PRIELMAYERSTR.16 <02B> 

5 REM 7990 FRIEDRICHSHAFEN <121> 

6 REM <06B> 

7 REM MASCHINENSPRACHE UND SONDERZEICHEN <065> 

8 REM <070> 

9 REM VOR DEM EINTIPPEN: <203> 

10 REM POKE44,31:P0KE7936,0:NEW <014> 

11 REM <073> 

12 REM <074> 

100 REM BLOCK 1 <007> 

110 BL=1:Z=212:PS=21320:GOSUB 800 <116> 

120 REM BLOCK 2 <028> 

130 BL=2:Z=128:PS=11737:GOSUB 800 <097> 

140 REM BLOCK 3 <049> 

150 BL=3:Z=350:PS=35875:GOSUB 800 <115> 

160 REM BLOCK 4 <070> 

170 BL=4:Z=353:PS=36706:GOSUB 800 <149> 

200 REM MASCHINENSPRACHE <169> 

210 RESTORE:FOR 1=4896 TO 5107:READ X:POKE 

I,X:NEXT:READ X <223> 

220 REM SONDERZEICHEN <062> 

230 A=6144:SYS 4943:REM ZEICHENSATZ KOPIER 

EN <124> 

240 FOR 1=5280 TO 5287:P0KE I,255:NEXT <165> 

250 FOR 1=5168 TO 5191:READ X:POKE I,X:NEX 

T <122> 

260 FOR 1=5296 TO 5335:READ X:POKE I,X:NEX 

T ' <117> 

270 FOR N=1 TO 8:FOR 1=0 TO 7:READ X:POKE 

A+I,X:NEXT:A=A+40:NEXT:READ X <049> 

280 REM MASCHINENSPRACHE <251> 

290 FOR 1=7168 TO 7517:READ X:POKE I,X:NEX 

T:READ X <246> 

300 FOR 1=7518 TO 7B70:READ X:POKE I,X:NEX 

T <108> 

310 END <05B> 

600 IF N=Z THEN 640 <010> 

610 PRINT"FALSCHE ANZAHL VON ZAHLEN IN BLO 

CK"BL <249> 

620 PRINT"SOLL:"Z <037> 

630 PRINT"IST :"N:END <203> 

640 IF S=PS THEN PRINT"BLOCK"BL"OK":RETURN <088> 
650 PRINT"PRUEFSUMMENFEHLER IN BLOCK"BL <040> 
660 PRINT"SOLL:"PS <191> 

670 PRINT"IST :"S:END <253> 

800 REM PRUEFSUMME UND ANZAHL VON BLOCK BE 

STIMMEN <227> 

810 N=0:S=0 <165> 

820 READ X:IF X=-l THEN GOSUB 600:RETURN <212> 
830 N=N+1:S=S+X:GOTO 820 <234 > 

999 REM **** BLOCK 1 **** <128> 


1000 DATA 169,31,133,1,169,19,133,2,169,32 

,160,0,145,1,170,165,2,72,24,105,132 <035> 

1010 DATA 133,2,169,1,145,1,104,133,2,138, 

198,1,166,1,232,208,230,198,2,166,2 <116> 

1020 DATA 224,15,208,222,96,169,20,133,2,1 

60,0,132,1,165,2,72,24,105,10B,133 <212> 

1030 DATA 2,177,1,170,104,133,2,138,145,1, 

200,208,236,230,2,165,2,201,28,208 <111> 

1040 DATA 228,96,160,0,132,2,162,3,10,38,2 


F 

zur Farbadressenberechnung 

BE 

Bildschirmadresse 

AF 

Autofarbe 

R 

Richtung des Autos 

XA,YA 

X,Y-Wert des Autos 

SZ 

Spielerzahl 

RZ 

Rundenzahl 

J 

Joystickadresse 

T 

Tonadresse 

AC 

Beschleunigung 

AN 

Bremsbeschleunigung 

HG 

Höchstgeschwindigkeit 

HZ,VZ 

zur Bildschirmzentrierung 

T(9) 

Zeiten der Spieler 

Z(9) 

sortierte Zeiten 

F$(6) 

Farben 

A$(28) 

enthält den Kurs 


Wichtige Variable 
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3150 DATA 63,3,160,25,177,251,141,64,3,200 

,177,251,141,65,3,174,68,3,232,138 <175> 

3160 DATA 32,116,19,160,0,185,69,3,145,1,2 
00,192,32,208,246,173,68,3,24,105,4,- 
1 <025> 

3169 REM **** BLOCK 4 *»** <060> 

3170 DATA 160,26,145,251,170,78,60,3,144,1 

6,165,252,72,24,105,132,133,252,173 <131> 

3180 DATA 101,3,145,251,104,133,252,136,19 

2.24.208.2.160.1.202.138.205.68.3.208 <231> 
3190 DATA 218,165,251,133,189,165,252,133, 

190,173,68,3,141,102,3,96,32,0,28,32 <065> 

3200 DATA 67,28,173,68,3,32,141,28,96,32,1 

5,29,32,42,29,96,174,105,3,172,106 <142> 

3210 DATA 3,173,104,3,208,1,136,201,1,208, 

2.136.202.201.2.208.1.202.201.3.208 <132> 
3220 DATA 2,202,200,201,4,208,1,200,201,5, 

208,2,232,200,201,6,208,1,232,201,7 <222> 

3230 DATA 208,2,232,136,142,105,3,140,106, 

3,32,149,29,173,61,3,76,197,19,169 <246> 

3240 DATA 160,141,11,144,32,162,29,173,104 

,3,133,40,169,5,133,41,32,138,19,165 <223> 


3250 DATA 63,9,128,141,68,3,32,162,29,174, 

105.3.142.107.3.172.106.3.140.108.3 <213> 
3260 DATA 76,145,30,169,127,141,34,145,173 

,31,145,41,28,174,104,3,201,8,208,2 <123> 

3270 DATA 162,1,201,12,208,2,162,2,201,4,2 

08,2,162,3,72,173,32,145,41,128,168 <019> 

3280 DATA 104,201,20,208,8,162,4,192,0,208 

,2,162,5,201,28,208,6,192,0,208,2,162 <247> 
3290 DATA 6,201,24,208,8,162,0,192,0,208,2 

,162,7,142,104,3,173,31,145,41,32,208 <236> 
3300 DATA 19,206,113,3,208,14,169,10,234,1 

41.113.3.206.111.3.208.3.238.111.3 <187> 
3310 DATA 169,255,141,34,145,206,112,3,208 

,14,173,111,3,141,112,3,76,169,29,169 <117> 
3320 DATA 0,141,11,144,206,115,3,208,13,16 

9,40,141,115,3,238,111,3,208,3,206 <200> 

3330 DATA 111,3,165,197,201,39,208,4,141,6 

1,3,96 <197> 

3340 DATA 173,111,3,201,25,208,3,238,111,3 

,76,24,30,-1 <074> 

Listing 1. Maschinenspracheteil und Sonderzeichen zu 
»Circle Circuit« (Schluß) 


1 REM * CIRCLE CIRCUIT * <125> 

2 REM <064> 

3 REM VON HANNES KALTENBACH <069> 

4 REM PRIELMAYERSTR.16 <02B> 

5 REM 7990 FRIEDRICHSHAFEN <121> 

6 REM <068> 

7 REM HAUPTPROGRAMM <052> 

8 REM ' <070> 

9 REM VOR DEM EINTIPPEN: <203> 

10 REM P0KE44,31:P0KE7936,0:NEW <014> 

11 REM <073> 

15 GOTO 100 <199> 

20 FOR 1=1 TO 1500:NEXT:RETURN <174> 

100 PRINT"BITTE WARTEN !" <035> 

199 REM VARIABLE <246> 

200 DIM T(9>,Z(9):F=33792:BE=4147:J=37151: 

T=36876:HZ=9:VZ=21 <21B> 

210 AF=0:R=0:XA=0:YA=0:N=0:AC=238:AN=220:H 

G—230 <8S8P O' 

220 X=0:Y=0:0=0:FA=0:A=0:BC=0:BO=0:BN=0 <057> 

300 AS="":DIM AS(28):G0SUB 5000 <013> 

320 DIM FS(6):FOR 1=0 TO 6:READ A:FS(I)=CH 

RS(A):NEXT <226> 

330 DATA 5,28,159,156,30,31,158 <253> 

400 POKE T+3,10:1=36864:POKE I,HZ:POKE 1+1 

,VZ:POKE 1+2,25:POKE 1+3,64 <005> 

410 POKE 1+14,15:PRINT CHRS(142)CHRS(8) <249> 

499 REM TITELBILD <145> 

500 SYS 4896:POKE T+3,10:POKE T-7,192:G0SU 

B 4500 <196> 

510 GOSUB 4600: PRINT SPC(27) " tWHITE> □’ t ' t ' t ' tY 

rrrrrrrrrrrrfTE" spc(4> "g* circle<2spac 

EJCIRCUIT *H"; <020> 

515 PRINT SPC (4) 11 TT'SPC < 19) "H"SPC (4) “5£2SPA 

CE >-9/84-BY-C2SPACE >H" SPC (4 > •"&" S 

PC(19)"W"; <119> 

520 PRINT SPC(4>"StSSPACEIH. KALTENBACH<3S 

pace>h"spc(4> <053> 

540 PRINT SPC(29)" <RVSONJS<RVOFFIPIEL<10SP 

ACE,RVSONJE <RVOFF>DITOR"; <015> 

545 PRINT SPC(28)"CSPACE,RVSON>A<RVOFF>BSP 

EICHERN <4SPACE,RVSON >L{RVOFF JADEN"; <062> 

550 PRINT SPC(30)"{RVSON>M{RVOFF>OTORLEIST 

UNG”;:POKE 198,0 <202> 

600 GET AS <046> 

610 IF AS="S"THEN 700 <056> 

615 IF AS="E"THEN B00 <05B> 

620 IF AS="A"THEN 3300 <071> 

625 IF AS="L"THEN 3500 <226> 

630 IF AS="M"THEN 4200 <083> 

640 IF AS=CHRS(29)THEN HZ=HZ+1:IF HZ>17 TH 

EN HZ=1 <182> 

650 IF AS=CHRS(17)THEN VZ=VZ+1:IF VZ>70 TH 

EN VZ=0 <140> 

655 POKE T—12,HZ:POKE T-11,VZ <148> 

690 GOTO 600 <150> 

700 PRINT SPC(37)"SPIELERZAHL (1-9) ::POK 

E 204,0 <199> 

705 GET AS:SZ=VAL(AS):IF SZ<1 OR SZ>9 THEN 

705 <249> 

710 PRINT ASSPC(31)"RUNDENZAHL (1-98>:";:G 

OSUB 4000 <04B> 

720 RZ=INT(VAL(BS)):IF RZ<1 THEN RZ=1 <155> 


730 IF RZ>98 THEN RZ=9B <198> 

780 SP=1:A=1:O=0 <007> 

799 REM KURS ZEICHNEN <162> 

800 SYS 4896:POKE T+3,8:P0KE T-7,205 <053> 

805 PRINT"<HOME,WHITE>SP 1 RUNDE 01C3SPACE 

>00:00.00" <162> 

810 BN=9016:FOR 1=4121 TO 4145:P0KE I+F,2: 

POKE 1,20 <033> 

815 POKE BN—I+F,2:POKE BN-I,20:NEXT <226> 

820 FOR 1=4146 TO 4846 STEP 25:POKE I+F,2: 

POKE 1,20 <060> 

825 POKE BN—I+F,2:P0KE BN-I,20:NEXT <236> 

850 PRINT"<HOME>"SPC(49);:FOR 1=0 TO 17:PR 

INT SPC(2)AS(I);:NEXT <207> 

860 POKE 648,17:PRINT"{HOME >"SPC(245)LEFTS 

(AS(18),22); <252> 

870 POKE 648,18:PRINT"<HOME>"MIDS(AS(18),2 

3); <181> 

8«“' FOR 1=19 TO 28: PRINT SPC (2) AS(I) ; : NEXT 

:POKE 648,16 <073> 

890 BN=BE+XA+25*YA:IF AS="E"THEN 2000 <158> 

899 REM INITIALIZE <251> 

900 X=(XA+1)*8:Y=(YA+2)*8 <129> 

905 POKE 190,BN/256:POKE 189,BN-256*PEEK(1 

90) <028> 

910 POKE 830,PEEK(BN):POKE 831,PEEK(BN+1> <239> 

915 POKE 832,PEEK(BN+25):POKE 833,PEEK(BN+ 

26 ) < 102 > 

930 POKE 873,X:POKE 874,Y:POKE 882,0 <084> 

940 POKE 836,R*5+128:POKE 869,AF:POKE 872, 

R:POKE 879,255 <007> 

950 POKE 7793,255-AC:POKE 7836,255-AN:POKE 

7862,255—HG <059> 

980 POKE 781,X:POKE 782,Y:SYS 7573:SYS 758 

6 <196> 

990 N=14:GOTO 1430 <131> 

995 TIS="000000" <212> 

1000 SYS 7704 <167> 

1010 IF PEEK(829)=39 THEN T(SP)=0:GOTO 131 

0 <254> 

1020 IF PEEK(882)THEN 1250 <028> 

1050 IF PEEK(879>>200 THEN 1140 <156> 

1080 X=PEEK(873):Y=PEEK(874):POKE T+1,134 <068> 

1100 FOR N=1 TO 255-PEEK(879)STEP 15 <157> 

1110 POKE 781,X:POKE 782,Y:P0KE 836,INT(RN 

D(1)*8)*5+128 <238> 

1120 SYS 7573:SYS 7586:NEXT <168> 

1140 POKE T+1,0:POKE 879,255:POKE 873,PEEK 

(875):POKE 874,PEEK(876) <178> 

1160 GOTO 1000 <0B4> 

1250 CS=RIGHTS(STRS(INT(TI/6*10)),2):BS=TI 

* <228> 

1255 A=A+1:AS=MIDS(STRS(A>,2):IF LEN(AS><2 

THEN AS="0"+AS <087> 

1260 PRINT"<HOME>"SPC(11)ASSPC(3)MIDS(BS,3 

,2)SPC(1> MIDS(BS,5)SPC(1> CS <086> 

1280 IF A=RZ+1 THEN 1300 <136> 

1290 SYS 7664:GOTO 1010 <209> 

1300 T(SP)=VAL(BS)»100+VAL(CS):GOTO 1400 <151> 

1310 SP=SP+1:IF SP>SZ THEN 1500 <255> 

1320 PRINT"{HOME>"SPC(11)"01{3SPACE>00:00. 


Listing 2. »Circle Circuit«, Hauptprogramm. Verwenden Sie 
bei der Eingabe den Checksummer VC 20 in diesem Heft. 
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VC 20 + 8 KByte 


Spielegeneratoren 


00" <061> 

1330 0=0:A=1 <050> 

1350 SYS 7439:GOTO 900 <211> 

1400 FQR N=1 TO 8:FÜR 1=200 TO 240:POKE T, 

I <235> 

1410 NEXT I,N:POKE T,0:GOSUB 20:GOTO 1310 <139> 

1430 IFCPEEK(J)AND 32)=0 OR PEEK(197>=32 T 

HEN GOSIIB 1470: GOTO 995 <175> 

1440 N=N+1:IF N=15 THEN GOSUB 1460 <054> 

1445 IF N=30 THEN N=0:GOSUB 1470 <217> 

1450 GOTO 1430 <024> 

1460 PRINT" {HOME, 4SPACEV: RETURN <127> 

1470 PRINT"{HOME,WHITE }SP"SP:RETURN <206> 

1500 SYS 4896:POKE T-7,192:F0R 1=6400 TO 6 
407:POKE I,255:NEXT:GOSUB 4500:GOSUB 
4600 <049> 

1510 PRINT"{2SPACE>RANGLISTE"SPC(16)"{RED} 

UuWüVUW {WHITE>"SPC (11); <146> 

1515 0=230:IF SZ=1 THEN SP=1:Z<1)=TC1):FOR 

N=1 TO 1:GOTO 1600 <214> 

1520 FOR 1=1 TO SZ:Z(I)=T(I>:NEXT <203> 

1530 FOR 1 = 1 TO SZ—1:FOR N=I + 1 TO SZ: IF Z< 

I)<Z(N)THEN 1550 <11B> 

1540 A=Z(I):Z(I)=Z <N):Z(N)=A <045> 

1550 NEXT N,I <129> 

1570 FOR N=1 TO SZ:FOR 1=1 TO SZ:IF T(I)=Z 

(N)THEN SP=I <188> 

1580 NEXT:T<SP)=0:IF ZtN)=0 THEN 1640 <053> 

1600 POKE T,O:POKE T-l,0+15:0=0-10:A*=MID* 

(STR*(Z(N>),2) <113> 

1610 IF LEN(A*><6 THEN A*="0“+A*:GOTO 1610 <081> 
1620 PRINT SPC(30)"SPIELER"SP”{2SPACEVLEF 

T*(A*,2)":"MID#(AS,3,2)"."MID*(A*,5); <066> 
1630 FOR D=15 TO 0 STEP-.5:P0KE T+2,D:NEXT <160> 
1640 POKE T,0:POKE T-1,0:POKE T+2,15:NEXT 

N <102> 

1650 PRINT"{HOME}"SPC(15)”(TASTE)":POKE 19 

8,0:WAIT 198,1:POKE T+3,10:GOTO 510 <169> 

1999 REM EDITOR <192> 

2000 POKE BN,R»5+128:POKE BN+F,AF <073> 

2010 X=0:Y=0:0=PEEK(BE):FA=5:BN=BE:BO=BE:B 

C=20:C*="T" <250> 

2020 POKE BN,102:POKE 198,0 <121> 

2100 FOR 1=1 TO 40:NEXT <2l4> 

2105 I=PEEK(J):IF(I AND-16>=0 THEN IF X>0 

THEN X=X-1 <010> 

2110 POKE J+3,127:IF(PEEK(J+l>AND 128)=0 T 

HEN IF X<22 THEN X=X+1 <037> 

2120 POKE J+3,255:IF(I AND 4)=0 THEN IF Y> 

0 THEN Y=Y—1 <142> 

2130 IF(I AND 8)=0 THEN IF Y<28 THEN Y=Y+1 <120> 
2140 BN=BE+X+25*Y:IF BN=BO THEN 2160 <194> 

2150 POKE BD,O:0=PEEK(BN):POKE BN,102:BO=B 

N <186> 

2160 IF(I AND 32)THEN 2500 <079> 

2400 D=BC:POKE BN+F,FA <189> 

2450 A*(Y> =LEFT*(A* (Y) ,X*2)+F*(FA-1> +C*+MI 

D*(A*(Y),2*X+3> <246> 

2500 GET A*:IF A*=""THEN 2100 <231> 

2510 A=ASC(A*> <11B> 

2520 IF A>49 THEN IF A<57 THEN FA=A-49:G0T 

0 2500 <045> 

2530 IF A=133 THEN 500 <052> 

2540 IF A=147 THEN 2700 <154> 

2550 IF A=134 THEN R=0:0=128:AF=FA:XA=X:YA 

=Y:POKE BN+F,FA:GOTO 2500 <101> 

2560 IF A=135 THEN R=2:0=138:AF=FA:XA=X:YA 

=Y:POKE BN+F,FA:GOTO 2500 <002> 

2570 IF A=136 THEN R=6:0=158:AF=FA:XA=X:YA 

=Y:POKE BN+F,FA:GOTO 2500 <175> 

2580 IF A<32 THEN 2500 <061> 

2585 IF A>127 THEN IF A<161 THEN 2500 <002> 

2590 IF A=44 OR A=58 OR A=34 THEN 2500 <048> 

2600 C*=A*:BC=A AND 63:IF A AND 128 THEN B 

C=BC OR 64 <089> 

2650 POKE BN,BC:GOTO 2100 <031> 

2700 A*="":FOR 1=1 TO 23:A*=A*+"{WHITE,SPA 

CE}":NEXT:FOR 1=0 TO 28:A*(I)=A*:NEXT <211> 
2710 A*="E":GOTO 800 <082> 

2999 REM CASS.DISK <010> 

3000 PRINT SPC(37)"CASS.DISK (C,D> ? ";:P0 

KE 204,0 <106> 

3005 GET A*: IF A*<>"C"AND A*< >"D"THEN 3005 <163> 
3010 PRINT A*;:RETURN <19B> 

3100 PRINT SPC(31)"FILENAME::GOSUB 4000: 

RETURN <082> 

3300 GOSUB 3000:GOSUB 3100:IF BS="*"THEN 5 


10 

3310 IF A*="C"THEN PRINT"<CLR>OPEN 2,1, 
1,B*:G0T0 3400 

3320 OPEN 1,8,15:OPEN 2,8,2,B*+“,S,W":INPU 
T#1,I,A*:IF I THEN 3700 
3400 FOR 1=0 TO 28:PRINTD2,A*(I>:NEXT 
3410 C*=CHR*(13):PRINT#2,AF;CS;R;C*;XA;C*; 
YA 

3450 CLOSE 2:CLOSE 1:G0T0 510 
3500 GOSUB 3000:GOSUB 3100:IF B*="*"THEN 5 
10 

3510 IF A*="C"THEN PRINT"<CLR>";:OPEN 2,1, 
0,B*:PRINT"<3D0WN>GEFUNDEN !":GOTO 36 
00 

3520 OPEN 1,8,15:OPEN 2,8,2,B*+“,S,R":INPU 
T#1,I,A*:IF I THEN 3700 
3600 FOR 1=0 TO 28:INPUT#2,A*(I):NEXT 
3610 INPUT#2,AF,R,XA,YA 
3620 CLOSE 1:CLOSE 2:GOTO 510 
3700 PRINT"<HOME}"SPC(250)SPC(150)"FEHLER" 
I;A* 

3710 CLOSE 1:CLOSE 2:G0SUB 20:GOSUB 20:GOS 
UB 20:GOTO 510 
4000 B*="" 

4005 POKE 204,0 
4010 GET C*:IF C*=""THEN 4010 
4020 IF C*=CHR*(13)THEN POKE 204,1:RETURN 
4030 IF C*=CHR*(20)THEN IF B*< >""THEN B*=L 
EFT*(B*,LEN(BS)-l):GOTO 4070 
4040 IF LEN(B*)=16 THEN 4010 
4050 IF ASC(C*)<32 OR ASC(C*>>95 THEN 4010 
4060 B*=B*+C* 

4070 PRINT C*|:GOTO 4010 
4100 IF LEN(B*)>4 THEN A=-1:G0T0 4120 
4110 A=INT(VAL(B*)):IF A>255 THEN A=255 
4120 RETURN 

4199 REM MOTORLEISTUNG 

4200 B*=STR*(AC):PRINT SPC(37)"BESCHLEUNIG 
UNG:"B*; 

4210 GOSUB 4005:GOSUB 4100:IF A<0 THEN 510 

4220 AC=A:IF AC=255 THEN AC=254 
430^ RINT SPC(10—LEN(B*))"BREMSBESCHL.{2S 
PACE>:";:B*=STR*(AN):PRINT B*; 

4310 GOSUB 4005:GOSUB 4100:IF A<0 THEN 510 

4320 AN=A:IF AN=255 THEN AN=254 

4350 PRINT SPC(10—LEN(B*))"HOECHTSGESCHW.: 

";:B*=STR*(HG):PRINT B*; 

4360 GOSUB 4005:GOSUB 4100:IF A<0 THEN 510 
4370 HG=A:IF HG=0 THEN HG=1 
4380 GOTO 510 

4499 REM 3D—STRASSE 

4500 BN=4607:FOR 1=1 TO 12:P0KE BN,78:P0KE 

BN+2*I,77:BN=BN+24:NEXT 
4510 BN=460B:FOR 1=2 TO 5:POKE BN,46:BN=BN 
+25*1:NEXT:RETURN 

4600 PRINT"<CLR}";:BN=4246:FOR 1=12 TO 1 S 
TEP-1:POKE BN,77:POKE BN+2*I,78 
4620 BN=BN+26:NEXT:POKE 4558,160:POKE 4583 
,160:RETURN 
5000 A*="{10SPACE}" 

5100 A*(0)="{RED}F C7SPACE,WHITE}#"+A*+"<3S 
PACE,RED}G" 

5110 A*(1)="{8SPACE,WHITE}#{4SPACE}"+A* 
5120 A*(2)=A*(1) 

5130 A*(3)=A*(1) 

5140 A*(4)="{4SPACE,CYAN}WTTTTTTTTTTTTTH<4 
SPACE}" 

5150 A*(5)=A*+"GTTTTF{2SPACE}GH{3SPACE}" 
5160 A*(6)=A*+"{9SPACE}T{3SPACE}" 

5170 A*(7)="{2SPACE,GREEN}VH”+A*+"C5SPACE, 
CYAN}T{3SPACE}" 

5180 A*(8)="{2SPACE,GREEN}GF"+A*+"{5SPACE, 
CYAN}T{3SPACE}" 

5190 A*(9 > =A*+"{9SPACE}T{3SPACE}" 

5200 A*(10)=A*(9) 

5210 A*(11)=A*(9) 

5220 A*(12)="{4SPACE,RED)VTTTTTTTTX{5SPACE 
,CYAN}T{3SPACE}" 

5230 A*(13)=“{RED}H{2SPACE}VF"+A*+"{4SPACE 
,CYAN}T {3SPACE}' 1 

5240 A*(14 > =“{RED}TTTF"+A*+"{5SPACE,CYAN}T 
{3SPACE}" 

5250 A*(15)="{RED}F"+A*+"{7SPACE,CYAN}VT{3 
SPACE}" 

Listing 2. »Circle Circuit« (Fortsetzung) 


<015> 

<075> 

<065> 

<09B> 

< 127> 
<255> 

<217> 


<227> 

<006> 
<220 > 
< 188> 
<227> 

< 000 > 

<242> 
<223> 
<094> 
< 106> 
<254> 

<037> 

<111> 

< 129> 

< 128> 
<088> 
<234> 
< 210 > 

< 114> 
<099> 

<075> 

<085> 

<097> 

<106> 

< 185> 
<062> 

< 125> 
<237> 
<052> 
<03B> 

< 130> 

< 159> 
<094> 

< 13B> 

< 119> 
<203> 

<0B7> 

<049> 

<253> 

<039> 

<004> 

<025> 

<046> 

< 141 > 

< 108> 

< 173> 

< 163> 
<237> 

<045> 


< 197> 
< 212 > 

< 113> 
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Spielegeneratoren 


C 64 


5260 A*(16)=A$+"<7SPACE>VTF<:3SPACE>" <002> 

5270 A*(17>=A*+"<6SPACE>VTF{4SPACEJ" <076> 

5280 A*U8)="{7SPACE>VTTTTTTTTTF<5SPACE}" <206> 
5290 AS<19)="{6SPACE>VF<5SPACE>"+AS <220> 

5300 AS(20)= "<5SPACE >VF"+AS+"CGREEN>V{5SPA 

CE>" <254> 

5310 AS(21)="C4SPACE,CYAN >VF“+AS+-CSPACE,G 

REEN >GH{4SPACE >" <194> 

5320 AS(22)="MSP ACE,CYAN > Z C5SPACE,RED >H{2 

SPACE>"+AS <116> 

5330 AS(23)=AS+"G<2SPACE>"+AS <209> 

5340 AS<24)=AS+"{3SPACE,GREEN>V<9SPACE>“ <055> 
5350 AS < 25)=AS+"<2SPACE >VF <5SPACE,RED > V C2S 

PACEJW" <013> 

5360 AS < 26 > =“<7SPACE,GREEN >GHC9SPACE,RED >V 


F<3SPACE>" <176> 

5370 AS ( 27 > = 11 C8SPACE , GREEN >F " +AS+ " <3SPACE , 

REDJV“ <028> 

5380 AS < 28)="H n +AS+"<9SPACE >VTT“ < 249> 

5390 AF=l:R=2:XA=6sYA=l <121> 

5399 REM KURS FORMATIEREN <106> 

5400 FOR N=0 TO 28:AS="" <246> 

5410 FOR 1=1 TO LEN(AS(N)):BS=MIDS<AS<N>,I 

*!> <031> 

5420 A=ASC <BS):IF A<32 OR A>143 AND A<160 

THEN CS=BS:GOTO 5450 <050> 

5430 AS=AS+CS+BS <192> 

5450 NEXT I:AS(N)=AS:NEXT N:RETURN <203> 


Listing 2. »Circle Circuit«, Hauptprogramm (Schluß) 


Gold-Fieber 

Sammeln Sie Goldklumpen! Die lukra¬ 
tive Tätigkeit wird allerdings durch 
viele Gefahren sehr erschwert. 

»Stone Rescue«, so der Name des Spiels, handelt von dem 
nie aufgebenden Goldsucher Freddy Stone. Freddy durch¬ 
wühlt unterirdische Gänge und Räume nach Goldklumpen. Er 
ist dermaßen goldgierig, daß er einen Raum erst dann wieder 
verläßt, wenn er den letzten Rest des gelben Metalls »einge¬ 
sackt« hat. Selbst Gefahren wie bissige Giftschlangen, Pilze 
mit tödlicher Wirkung, magische Fallen und spitze Dornen, 
dämpfen Freddy’s Goldgier nicht im mindesten. 

Hat Freddy alle Nuggets eingesteckt, krabbelt er tiefer in 
die Höhle. Er steigt dazu über eine Leiter in eine tiefer lie¬ 
gende Etage. Innerhalb eines Höhlenraums kann sich Freddy 
auch an Lianen nach oben oder unten hangeln. 

Tödlich sind die Höhlenwände, wenn Freddy dagegen¬ 
springt. Ebenso verträgt Freddy keinen Sturz über vier Meter 
Höhe. Wie soll er auch! Sollte Freddy einen Raum nicht mehr 
lebend verlassen, werden alle Goldklumpen, wie durch eine 
magische Hand, wieder am ursprünglichen Ort plaziert. In die¬ 
sem Fall vertreten Freddy seine beiden Zwillingsbrüder, die 
auch vom Goldfieber gepackt werden. 


Schlangen und Veränderung der Grafikzeichen, Veränderung 
des Zeichensatzes, Bildgenerator und Laden von Bildern. 

Das Programm »STONE 2« enthältdie Daten der zwölf Multi- 
color-Sprites der Männchen und für die beiden Schlangen- 
Sprites. Benennen Sie bitte beide Maschinenprogramme mit 
dem angegebenen Namen. Die Maschinenroutinen werden 
nämlich vom Basic-Programm nachgeladen. 

Der »Bildgenerator« dient nur zum Erstellen der ersten zehn 
Grafikbilder. Laden Sie dazu »STONE 1« und »STONE 2« abso¬ 
lut von Diskette (,8,1) und geben nach jedem Ladevorgang 
NEW ein. Danach können Sie den »Bildgenerator« laden und 
mit RUN starten. Nach etwa 25 Minuten sind die ersten zehn 
Level generiert und Sie können »STONE RESCUE 1« laden 
und starten. Das Spiel beginnt. 

Wenn Sie »Stone Rescue« zum erstenmal eingeben und 
starten, halten Sie bitte die untenstehende Reihenfolge ein. 

1 3TONE RESCUE 1« abtippen und speichern 

2. NEW eingeben 

3. »STONE 1« mit dem MSE eintippen und speichern 

4. NEW 

5. »STONE 2« wieder eingeben (MSE) und speichern 

6. NEW 

7. LOAD "STONE 1 *,8,1 

8. NEW 

9. LOAD "STONE 2",8,1 

10. NEW 

11. LOAD "BILDGENERATOR",8 

12. RUN (Bilder werden auf Diskette erzeugt) 

13. LOAD "STONE RESCUE 1 ",8 


Helfen Sie dem Goldsucher Freddy! 

Führen Sie Freddy durch das unterirdische Reich und zei¬ 
gen Sie ihm, wo die Goldklumpen liegen. Schließen Sie dazu 
einen Joystick an den Control-Porti an. Haben Sie sich durch 
die zehn Bilder »geschlagen«, können Sie Ihre eigenen Höh¬ 
len konstruieren. Mit dem Spielgenerator von »Stone Res¬ 
cue« sind bis zu 89 Bilder möglich. 

Tips zur Eingabe und zur Bedienung 

»Stone Rescue« besteht aus drei Programmen: zwei 
Maschinenroutinen und einem Basic-Hauptprogramm. Der 
»Bildgenerator« wird nur ein einziges Mal zur Erzeugung von 
zehn Bildern benötigt. Er enthält die zehn Bilder in stark kom¬ 
primierter Form. 

Das Hauptprogramm lädt die Maschinenroutinen von Dis¬ 
kette und steuert den Spielverlauf. Es druckt das Titelbild, 
übergibt Parameter an die Maschinenprogramme und über¬ 
nimmt die beiden Funktionen »Play« (spielen) und »Generate« 
(Spielfeld generieren). 

Das Maschinenprogramm »STONE 1« ist das Herzstück des 
Programms. Es erfüllt folgende Aufgaben: Joystickabfrage, 
Kollisionsüberprüfung, Scoreangabe, Sound, Animation der 


14. RUN (Spiel und Generator werden gestartet) 

Haben Sie diese Prozedur einmal hinter sich gebracht, 
müssen Sie nur noch LOAD "STONE RESCUE 1 ",8 und 
danach RUN eingeben. Alles andere geschieht dann automa¬ 
tisch. 

Nun zum interessantesten Teil von »Stone Rescue«, dem 
Bildgenerator. Im Hauptprogramm müssen Sie dazu, bei der 
Frage »Play or Generate«, »G« eingeben und den Joystick, wie 
beim Spiel, am Control-Port 1 anschließen. Sie sehen dann 
das Spielfeld. Mit dem Joystick fahren Sie den Cursor nun an 
die Stelle, an der Sie mit Ihrer Konstruktion beginnen möch¬ 
ten. Zum Setzen eines Zeichens drücken Sie einfach den 
Feuerknopf, zur Auswahl eines Zeichens die Fl - (vorwärts im 
Zeichensatz) oder die F3-Taste (rückwärts). Das Zeichen wird 
rechts unten am Bildschirm und an der Cursorstelle darge¬ 
stellt. Zum Abspeichern eines Bildes auf Diskette drücken Sie 
F4. Mit der Plus- oder Minus-Taste wird die gewünschte Bild¬ 
nummer eingestellt. Mit RETURN wird mit dem Speichern 
begonnen. Sollte die Nummer schon vorhanden sein, fragt 
das Programm, ob der alte Level überschrieben werden soll. 
Das Laden funktioniert ähnlich dem Speichern eines Levels, 
nur müssen Sie F6 drücken. Sollte ein Bild nicht vorhanden 
sein, wird die Fehlermeldung der Diskettenstation angezeigt. 
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C 64 


Spielegeneratoren 


Hüten Sie sich vor der F2-Taste, mit der ein Bild endgültig 
gelöscht wird. 

Mit F5 (schneller) und F7 (langsamer) können Sie die Cur¬ 
sorgeschwindigkeit regulieren. 

Mit »@« wird das Programm abgebrochen. Es kann mit RUN 
wieder gestartet werden. 

(Dirk Schlote, Matthias Strecker / hm) 
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20 

11 

11 

9d 

9d 

9d 

9d 

d7 

ccd 0 

3 

9d 

9d 

42 

49 

4c 

44 

20 

3a 

dl 

ccd8 

3 

11 

11 

9d 

9d 

9d 

9d 

9d 

9d 

05 

cce 0 

3 

20 

20 

20 

20 

20 

20 

11 

11 

B6 

cce8 

3 

9d 

9d 

9d 

9d 

9d 

9d 

4c 

45 

fl 

ccf 0 

3 

56 

45 

4c 

3a 

11 

11 

9d 

9d 

8f 

ccfB 

3 

9d 

9d 

9d 

9d 

20 

20 

20 

20 

43 

cd00 

3 

20 

20 

11 

11 

11 

9d 

9d 

9d 

47 

cd 0 B 

3 

9d 

9d 

9d 

28 

43 

29 

20 

55 

89 

cd 10 

3 

32 

00 

11 

11 

11 

9d 

9d 

9d 

59 

cdl8 

3 

9d 

9d 

9d 

9d 

9d 

9d 

9d 

9d 

17 


cd 20 

: 

le 

4e 

55 

4d 

4d 

45 

52 

20 

ed 

cd 28 

: 

44 

45 

53 

20 

42 

49 

4c 

44 

10 

cd30 

: 

45 

53 

20 

3f 

00 

53 

41 

56 

5b 

cd38 

: 

45 

4e 

11 

9d 

9d 

9d 

9d 

9d 

15 

cd40 

: 

b7 

b7 

b7 

b7 

b7 

00 

ld 

ld 

e2 

cd48 

s 

ld 

ld 

ld 

ld 

ld 

ld 

ld 

ld 

48 

cd50 

: 

ld 

ld 

ld 

11 

11 

11 

ld 

ld 

ae 

cd5B 

: 

le 

00 

4c 

4f 

41 

44 

45 

4e 

5b 

cd 60 

: 

11 

9d 

9d 

9d 

9d 

9d 

9d 

b7 

07 

cd6B 

: 

b7 

b7 

b7 

b7 

b7 

00 

40 

3a 

dl 

cd70 

c 

53 

54 

4f 

4e 

45 

2d 

42 

49 

e4 

cd78 

: 

4c 

44 

20 

20 

20 

00 

46 

45 

9B 

cdBB 

: 

48 

4c 

45 

52 

4b 

41 

4e 

41 

04 

cdB8 

: 

4c 

20 

3a 

90 

00 

le 

42 

49 

12 

cd90 

s 

54 

54 

45 

20 

46 

45 

48 

4c 

ac 

cd9B 

: 

45 

52 

20 

42 

45 

53 

45 

49 

ed 

cda 0 

: 

54 

49 

47 

45 

4e 

20 

21 

00 

7e 

criaB 

: 

le 

53 

4f 

4c 

4c 

20 

40 

2d 

ee 

cdb0 

: 

3a 

47 

45 

53 

41 

56 

45 

27 

74 

cdbB 

: 

44 

20 

57 

45 

52 

44 

45 

4e 

84 

cdc 0 

s 

20 

28 

4a 

2f 

4e 

29 

20 

3f 

9a 

cdcB 

: 

00 

a9 

12 

a0 

cd 

20 

le 

ab 

e3 

cdd0 

: 

a2 

31 

8e 

a0 

05 

8e 

al 

05 

18 

cdd8 

: 

a9 

05 

Bd 

a0 

d9 

8d 

al 

d9 

bf 

cde 0 

: 

20 

bc 

cb 

a5 

cb 

aa 

ad 

a 0 

10 

cdeB 

: 

05 

c9 

39 

dB 

07 

ad 

al 

05 

a9 

cdf 0 

: 

c9 

39 

f0 

05 

8a 

c9 

28 

f0 

ac 

cdfB 

: 

39 

Ba 

c9 

2b 

f0 

10 

8a 

c9 

9b 

ce00 

: 

01 

dB 

03 

a9 

01 

60 

8a 

c9 

30 

ce08 

: 

39 

dB 

dS 

a9 

00 

60 

ad 

a0 

4f 

cel0 

: 

05 

c9 

31 

dB 

07 

ad 

al 

05 

cf 

cel8 

: 

c9 

31 

f0 

c4 

ad 

al 

05 

c9 

de 

ce20 

: 

30 

dB 

0a 

ce 

a0 

05 

a9 

39 

60 

ce 2 B 

: 

8d 

al 

05 

dB 

b3 

ce 

al 

05 

23 

ce30 

: 

d0 

ae 

ad 

al 

05 

c9 

39 

f0 

5c 

ce38 

: 

05 

ee 

al 

05 

dB 

a 2 

ee 

a0 

de 

ce40 

: 

05 

a9 

30 

Bd 

al 

05 

dB 

98 

8e 

ce48 

: 

20 

c9 

cd 

dB 

03 

4c 

b7 

cf 

eb 

ce50 

: 

20 

bc 

cf 

20 

90 

ce 

a0 

0d 

e2 

ce58 

: 

20 

5a 

cf 

a9 

00 

8d 

86 

02 

59 

ce 60 

: 

a2 

00 

a0 

90 

86 

fb 

84 

fc 

91 

ce68 

s 

a9 

fb 

a2 

e9 

a 0 

93 

20 

d8 

cd 

ce70 

: 

ff 

60 

20 

c9 

cd 

dB 

03 

4c 

e9 

ce7B 

: 

b7 

cf 

20 

90 

ce 

a0 

0d 

20 

97 

ceS 0 

: 

5a 

cf 

20 

bc 

cf 

a9 

00 

8d 

c7 

ce88 

: 

86 

02 

20 

d5 

ff 

4c 

98 

ce 

34 

ce90 

: 

a2 

08 

a0 

01 

20 

ba 

ff 

60 

17 

ce9B 

: 

a9 

00 

85 

90 

a9 

01 

a 2 

08 

f 2 

ceaB 

: 

a 0 

6f 

8d 

86 

02 

20 

ba 

ff 

38 

ceaS 

: 

a 2 

0f 

a 0 

04 

20 

af 

cf 

a9 

8d 

ceb0 

: 

7e 

a 0 

cd 

20 

le 

ab 

a9 

00 

de 

cebB 

: 

20 

bd 

ff 

20 

C0 

ff 

a9 

08 

7d 

cec 0 

: 

20 

b4 

ff 

a9 

6f 

20 

96 

ff 

c 2 

cecB 

: 

20 

a5 

ff 

20 

d2 

ff 

24 

90 

9e 

cedB 

: 

50 

f 6 

a9 

08 

20 

ab 

ff 

a9 

b9 

cedB 

: 

01 

20 

c3 

ff 

a0 

96 

b9 

40 

BC 

cee0 

: 

06 

c9 

lb 

b0 

07 

a9 

05 

99 

ac 

ceeB 

: 

40 

da 

a9 

00 

88 

dB 

ef 

ad 

2a 

cef 0 

: 

69 

06 

c9 

36 

dB 

3d 

ad 

6a 

IE 

cefB 

: 

06 

c9 

33 

dB 

36 

a2 

13 

a 0 

de 

cf 00 

: 

03 

20 

af 

cf 

a9 

aB 

a0 

cd 

f 7 

cf 08 

: 

20 

le 

ab 

a5 

cb 

c9 

22 

f0 

4c 

cf 10 

: 

09 

a5 

cb 

c9 

27 

dB 

f 4 

4c 

7c 

cf 18 

: 

b7 

cf 

a 2 

6e 

a0 

cd 

a9 

0f 

6d 

cf 20 

: 

20 

bd 

ff 

a9 

20 

a0 

00 

99 

86 

cf 28 

: 

40 

06 

c8 

dB 

fa 

20 

53 

ce 

53 

cf 30 

: 

4c 

98 

ce 

ad 

69 

06 

c9 

30 

8C 

cf 38 

: 

d0 

09 

ad 

6a 

06 

c9 

30 

dB 

57 

cf 40 

: 

02 

f0 

0e 

a2 

13 

aB 

06 

20 

21 

cf 48 

: 

af 

cf 

a9 

8d 

a0 

cd 

20 

le 

30 

cf 50 

s 

ab 

a5 

cb 

c9 

40 

f0 

fa 

4c 

0a 

cf 58 

: 

b7 

cf 

ad 

a0 

05 

99 

6e 

cd 

e9 

cf 60 

: 

cB 

ad 

al 

05 

99 

6e 

cd 

60 

0d 

cf 68 

: 

a0 

18 

a2 

05 

bl 

Bd 

91 

8b 

42 

cf 70 

: 

c9 

4c 

dB 

04 

a9 

20 

91 

8b 

0d 

cf 78 

s 

c8 

dB 

fl 

ca 

f0 

06 

e6 

8c 

72 

cf 80 

: 

e6 

8e 

dB 

e8 

60 

a5 

Bc 

48 

f 4 

cf 88 

: 

a5 

8b 

48 

20 

c4 

C0 

68 

85 

08 

cf 90 

: 

8b 

68 

85 

8c 

60 

a0 

00 

a9 

al 

cf 98 

: 

20 

91 

8b 

a9 

eB 

85 

8b 

a9 

d5 

cf a0 

: 

Bf 

85 

8c 

a9 

e8 

85 

8d 

a9 

8e 

cfa8 

: 

03 

85 

8e 

20 

68 

cf 

60 

B6 

a9 

cfb 0 

: 

d6 

84 

d3 

20 

10 

e5 

60 

e6 

41 

cfb8 

3 

9f 

4c 

90 

c9 

a 2 

70 

a0 

cd 

a6 

cf C0 

: 

a9 

0d 

20 

bd 

ff 

60 

ef 

ff 

72 


MSE-Listing »STONE1« (Schluß) 


Programm : stone 2 3d40 3fc2 

3d40 : 00 00 00 00 00 00 00 fc 3a 
3d48 : 00 03 ff 00 00 ec 00 00 31 


68 










C 64 


Spielegeneratoren 


3d50 

: 

ea 

00 

00 

eB 

00 

00 

G0 

00 

db 

3e30 

- 

00 

10 

00 

3d58 

: 

00 

28 

00 

00 

20 

00 

00 

fc 

68 

3e38 

- 

00 

00 

f0 

3d60 

: 

00 

00 

de 

00 

00 

de 

00 

00 

7e 

3e40 


00 

00 

00 

3d68 

: 

de 

00 

00 

de 

00 

00 

30 

00 

al 

3e48 

• 

00 

00 

ec 

3d70 

: 

00 

10 

00 

00 

10 

00 

00 

10 

9a 

3e50 

: 

ac 

00 

00 

3d7B 

: 

00 

00 

3c 

00 

00 

00 

00 

00 

88 

3e58 

: 

00 

20 

00 

3d80 

: 

00 

00 

00 

00 

fc 

00 

03 

ff 

5c 

3e60 

: 

00 

00 

74 

3dB8 

: 

00 

00 

ec 

00 

00 

ea 

00 

00 

lb 

3e6B 

: 

fc 

00 

00 

3d90 

: 

G0 

00 

00 

eS 

00 

00 

20 

00 

0e 

3e70 

: 

01 

01 

00 

3d98 

: 

00 

fc 

00 

04 

de 

00 

01 

74 

52 

3e78 

: 

C0 

00 

00 

3da0 

: 

00 

00 

f d 

00 

00 

30 

40 

00 

a2 

3e80 

s 

00 

00 

00 

3da8 

: 

54 

00 

00 

44 

00 

01 

01 

00 

91 

3e88 

: 

00 

00 

ec 

3db0 

: 

04 

00 

40 

0f 

00 

f 0 

00 

00 

2e 

3e90 

: 

ac 

00 

00 

3db8 

: 

00 

00 

00 

00 

00 

00 

00 

00 

b9 

3e98 

: 

00 

20 

00 

3dc0 

: 

00 

00 

00 

00 

fc 

00 

03 

ff 

9c 

3ea0 

: 

00 

00 

f 5 

3dc8 

: 

00 

00 

ec 

00 

00 

ea 

00 

00 

5b 

3ea8 

: 

fc 

00 

35 

3dd0 

: 

e0 

00 

00 

28 

00 

00 

20 

00 

36 

3eb0 

: 

00 

00 

00 

3dd8 

: 

00 

fc 

00 

00 

74 

40 

01 

fd 

a0 

3<?b8 

: 

00 

00 

00 

3de0 

: 

00 

04 

fc 

30 

00 

fc 

30 

35 

3b 

3ec0 

: 

04' 

00 

00 

3de8 

- 

75 

70 

30 

00 

00 

30 

00 

00 

23 

3ecB 

: 

40 

04 

+ c 

3df0 

; 

00 

00 

00 

00 

00 

00 

00 

00 

fl 

3ed0 

: 

fc 

40 

04 

3df 8 

; 

00 

00 

00 

00 

00 

00 

00 

00 

f 9 

3ed8 

: 

00 

fd 

40 

3e00 

: 

00 

00 

00 

00 

fc 

00 

03 

ff 

de 

3ee0 

: 

00 

00 

fc 

3e08 


00 

00 

ec 

00 

02 

ae 

00 

00 

c9 

3ee8 

: 

fc 

00 

00 

3el0 

- 

ac 

00 

00 

2c 

00 

00 

a0 

00 

c 5 

3ef 0 

: 

00 

44 

00 

3el8 

- 

00 

20 

00 

00 

fc 

00 

00 

de 

b2 

3ef 8 

: 

00 

00 

04 

3e20 

• 

00 

00 

de 

00 

00 

de 

00 

00 

3e 

3f 00 

: 

00 

00 

40 

3e28 

« 

de 

00 

00 

30 

00 

00 

10 

00 

4b 

3f 08 

! 

40 

04 

f c 


10 REM********************************* <141> 


20 REM*** 

WRITTEN 

*■** 

< 188> 

30 REM*** 

BY 

*** 

<246> 

40 REM*** 

DIRK SCHLOTE 

*** 

<062> 

50 REM*** 

AND 

*** 

< 176> 

60 REM*** 

MATTHIAS STRECKER 

*** 

<050> 


70 REM********************************* <201> 


80 BN=1:Ll=l:WB=8:GOSUB 950:GOSUB 1000 
90 IF XO0 THEN 670 

100 REM******************************** 

110 REM*** TITELBILD *** 

120 REM******************************** 

130 POKE 53280,1:POKE 53281,1 

140 PRINT CHR*(142):PRINT CHRS18) 

141 PRINT OHRSC147):PRINT:PRINT:PRINT 

150 PRINT"<10SPACE,LIG.BLUE,RVSON,2SPACE,B 
LACK,SPACE,RVOFF >" 

160 PRINT"<LIG.BLUE,SPACE,RVSON,15SPACE,RV 
OFF,BLACK,RVSON,SPACE,RVOFF>“ 

170 PRINT"<LIG.BLUE,SPACE,RVSON,2SPACE,BLA 
CK,SPACE,RVOFF,6SPACE,LIG.BLUE,RVSON,2 
SPACE,BLACK,SPACE,RVOFF,14SPACE,LIG.BL 
UE,RVSON <BLACK,SPACE,RVOFF}" 

180 PRINT“<LIG.BLUE,SPACE,RVSON,2SPACE,BLA 
CK,SPACE,RVOFF,6SPACE,LIG.BLUE,RVSON,2 
SPACE , BLACK , SPACE, RVOFF , 2SPACE , LIG. BLU 
E,RVSON,6SPACE,BLACK,SPACE,RVOFF,SPACE 
,LIG.BLUE,RVSON,5SPACE,BLACK,SPACE,RVO 
FF,SPACE,LIG.BLUE,RVSON,5SPACE,BLACK,S 
PACE,RVOFF>" 

190 PRINT"CLIG.BLUE,SPACE,RVSON,6SPACE,BLA 
CK,SPACE,RVOFF,2SPACE,LIG.BLUE,RVSON,2 
SPACE.BLACK,SPACE,RVOFF,2SPACE,LIG.BLU 
E,RVSON,2SPACE,BLACK,SPACE,RVOFF,LIG. B 
LUE,SPACE,RVSON,2SPACE,BLACK,SPACE,RVO 
FF,SPACE,LIG.BLUE,RVSON,SPACE,BLACK,SP 
ACE,RVOFF,2SPACE,LIG.BLUE,RVSON,SPACE, 
BLACK,SPACE,RVOFF,SPACE,LIG.BLUE,RVSON 
, SPACE , BLACK, SPACE , RVOFF , 2SPACE , LIG. BL 
UE,RVSON,SPACE,BLACK,SPACE,RVOFF >" 

200 PRINT"<LIG.BLUE,5SPACE,RVSON,2SPACE,BL 
ACK,SPACE,RVOFF,2SPACE,LIG.BLUE,RVSON, 
2SPACE, BLACK, SPACE, RVOFF, 2SPACE, LIG. BL 
UE,RVSON,2SPACE.BLACK,SPACE,RVOFF,LIG. 
BLUE , SPACE , RVSON , 2SPACE , BLACK , SPACE , RV 
OFF,SPACE,LIG.BLUE,RVSON,SPACE,BLACK,S 
PACE,RVOFF,2SPACE,LIG.BLUE.RVSON,SPACE 
,BLACK,SPACE,RVOFF,SPACE,LIG.BLUE,RVSO 
N,5SPACE,BLACK,SPACE,RVOFF >“ 

210 PRINT"{LIG.BLUE,5SPACE,RVSON,2SPACE,BL 
ACK.SPACE,RVOFF,2SPACE,LIG.BLUE,RVSON, 
2SPACE,BLACK,SPACE,RVOFF,2SPACE,LIG.BL 
UE,RVSON,2SPACE,BLACK,SPACE,RVOFF,LIG. 
BLUE, SPACE, RVSON, 2SPACE, BLACK, SPACE, RV 
OFF,SPACE,LIG.BLUE,RVSON.SPACE,BLACK,S 
PACE.RVOFF,2SPACE,LIG.BLUE,RVSON,SPACE 
,BLACK,SPACE,RVOFF,SPACE,LIG.BLUE,RVSO 
N,SPACE,BLACK,SPACE,RVOFF >" 


< 151 > 
<134> 

< 150> 

< 127> 

< 170> 
<008> 
<018> 

< 155> 

< 135> 
<173> 


<128> 


< 125> 


<007> 


< 125> 


< 135> 


00 

10 

00 

00 

10 

5a 

3f 10 

s 

fc 

40 

04 

20 

40 

04 

fd 

00 

4e 

00 

00 

00 

00 

00 

75 

3f 18 

: 

05 

f c 

00 

00 

fc 

00 

00 

fc 

65 

00 

fc 

00 

03 

ff 

lc 

3f 20 

s 

00 

00 

fc 

00 

00 

fc 

00 

00 

47 

00 

02 

ac 

00 

00 

09 

3f 28 

: 

fc 

00 

00 

fc 

00 

00 

74 

00 

96 

2c 

00 

00 

ac 

00 

35 

3f 30 


00 

44 

00 

00 

44 

00 

00 

4c 

2f 

00 

fc 

00 

00 

de 

f 2 

3f 38 

: 

00 

00 

40 

00 

00 

C0 

00 

00 

4f 

40 

01 

fd 

00 

04 

8e 

3f 40 

: 

00 

00 

00 

00 

00 

00 

00 

00 

41 

30 

00 

00 

44 

00 

7c 

3f 48 

: 

00 

00 

00 

00 

00 

00 

00 

00 

49 

04 

00 

40 

3c 

03 

6b 

3f 50 

s 

00 

00 

00 

20 

00 

00 

a8 

00 

f 7 

00 

00 

00 

00 

00 

39 

3f 58 

: 

02 

8a 

0a 

0a 

02 

ab 

a8 

00 

83 

00 

fc 

00 

03 

ff 

5c 

3f 60 

: 

aa 

00 

00 

00 

00 

00 

00 

00 

0b 

00 

02 

ac 

00 

00 

49 

3f 68 

: 

00 

00 

00 

00 

00 

00 

00 

00 

69 

2c 

00 

00 

a0 

00 

45 

3f 70 

* 

00 

00 

00 

00 

00 

00 

00 

00 

71 

04 

fc 

00 

01 

5c 

b5 

3f 78 

i 

00 

00 

00 

00 

00 

00 

00 

00 

79 

40 

00 

fc 

10 

30 

ae 

3f 80 

■ 

00 

00 

00 

00 

00 

00 

00 

00 

81 

75 

70 

00 

00 

30 

08 

3f B8 

: 

00 

00 

00 

00 

00 

00 

00 

00 

89 

00 

00 

00 

00 

00 

bl 

3f 90 

; 

00 

00 

00 

00 

00 

00 

00 

0 a 

aS 

00 

00 

00 

00 

00 

b9 

3f 98 

: 

00 

00 

0b 

2a 

aa 

aa 

aa 

aa 

a0 

04 

f c 

00 

07 

ff 

31 

3fa0 

: 

a8 

00 

00 

00 

00 

00 

00 

00 

49 

40 

04 

fc 

40 

04 

83 

3fa8 

- 

00 

00 

00 

00 

00 

00 

00 

00 

a9 

20 

40 

01 

fc 

40 

72 

3fb0 

■ 

00 

00 

00 

00 

00 

00 

00 

00 

bl 

00 

f c 

00 

00 

f C 

bl 

3fb8 

: 

00 

00 

00 

00 

00 

00 

00 

00 

b9 

00 

00 

fc 

00 

00 

07 

3fc0 

8 

00 

ef 

00 

ff 

ff 

ff 

ff 

ff 

b8 

74 

00 

00 

44 

00 

84 












00 

c4 

00 

00 

04 

67 

MSE-Listinq .» 

STONE 2« 

. Dieses 


00 

00 

00 

fc 

0 c 

40 

00 

07 

00 

ff 

5a 

fe 

Unterprogramm müssen Sie mit dem 

40 

04 

fc 

40 

04 

c3 

MSE eingeben. 








220 PRINT”<LIG.BLUE,SPACE,RVSON,6SPACE,BLA 
CK,SPACE,RVOFF,2SPACE,LIG.BLUE,RVSON,2 
SPACE,BLACK .SPACE,RVOFF,2SPACE,LIG. BLU 

E, RVSON,6SPACE,BLACK,SPACE,RVOFF,SPACE 
,LIG.BLUE,RVSON,SPACE,BLACK.SPACE,RVOF 

F, 2SPACE,LIG.BLUE,RVSON,SPACE,BLACK,SP 
ACE,RVOFF,SPACE,LIG.BLUE,RVSON,5SPACE, 
BLACK,SPACE,RVOFF >" 

230 PRINT"{2D0WN,BLUE,RVSON,39SPACE>“; 

240 PRINT"{BLUE,RVSON,17SPACEJRESCUE 1{16S 
PACE >"; 

250 PRINT"{BLUE,RVSON,40SPACE>"; 

260 PRINT“{HOME,BLACK,SPACE >1985{SPACE,RVO 
FF>" 

270 pr MT"{21DOWN}" 

280 PRINT" BY MATTHIAS STRECKER AND DIRK S 
CHLOTE“ 

290 FOR T=0 TO 4:PRINT"{2UP>":NEXT 
300 PRINT"{12SPACE,RVSON,2SPACE>PLEASE WAI 
T{2SPACE}“ 

310 1=1:GOTO 90 

320 PRINT"{UP,12RI6HT,RVSON,SPACEJPRESS A 
BUTTON " 

330 FOR T=0 TO 350: NEXT 

340 PRINT"{UP,12RIGHT,RVSON,16SPACE,RVOFF > 
350 GET A*:IF A*=""THEN 370 
360 PRINT"{26D0WN>":GOTO 380 
370 FOR T=0 TO 350:NEXT:GOTO 320 
380 PRINT"{8RIGHTJGENERATE OR PLAY GAME ?" 
390 PRINT"{3D0WN,13RIGHT> <{2SPACE>G{2SPACE 
>/{2SPACE>P{2SPACE>>{10DOWN>" 

400 GET A*: IF AS="G"THEN SYS 51590 
410 IF A*<>"P"THEN 400 
420 GOSUB 1030 

430 REM******************************* 

440 REM*** BILD-LADEN *** 

450 REM******************************* 

460 POKE 532B1,1:POKE 53280,1:POKE 646,0 
470 PRINT"{CLR,6D0WN,12RIGHTIES WIRD GELAD 
EN 

480 PRINT"(3D0WN,16RIGHTJBILD :";BN 
530 BN*=STR*(BN> 

540 A*="STONE-BILD"+BN*+"*" 

550 FOR T=1 TO LEN(A$):POKE 12984+T,ASC<MI 
D*(A$,T,1>):NEXT 
560 SYS 51565 

570 IF BN=10 THEN POKE 37794,65:POKE 37787 
,65 

590 RETURN 

600 REM******************************* 

610 REM*** GAME OVER *** 

620 REM******************************* 

630 Fl=48:GOSUB 950:PRINT"{HOME,10DOWN,1IR 
IGHT,YELLOW>GAME OVER“ 

640 PRINT”{2DOWN,10RIGHTIPRESS SPACE" 


<057> 

<248> 

<077> 
<201 > 

< 165> 
<215> 


<042> 

<237> 

< 158> 

< 122 > 

< 176> 

< 120 > 
<229> 
<226> 
<003> 
<137> 
<127> 

< 174> 
<207> 
<229> 
<218> 
<058> 

< 136> 
<078> 

< 151 > 

<217> 

<236> 

<240> 

<230> 

<173> 

<055> 

< 138> 

< 140> 
<230> 

< 122 > 
<250> 

< 189> 
<074> 


Hauptprogramm von »Stone Rescue 1«. Geben Sie das 
Listing bitte nur mit dem Checksummer aus diesem 
Sonderheft ein. 
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Spielegeneratoren 


C 64 


643 PQKE 1179,48 <1U> 

645 FOR Z=0 TQ 50sFOR T=0 TO 8:P0KE V+22,T 

:NEXT:NEXT <007> 

650 Ll=l:L2=0sL3=0:L4=0 <157> 

660 POKE 198,0:WAIT 198,1:G0T0 360 <225> 

670 REM******************************* <044> 

680 REM*** INITIALISIERUNG *** <040> 

690 REM******************************* <064> 

700 IF 1=1 THEN 1=2:LOAD"STONE 1",8,1 <017> 

710 IF 1=2 THEN I=3:SYS 49152:LOAD"STONE 2 

">S.l <040> 

720 V=53248:PQKE V+37,B <008> 

730 POKE V+38,14 <187> 

740 FOR T=39 TO 43:POKE V+T,7:NEXT <153> 

750 POKE 12949,31sPOKE 12969,8 <211> 

760 GOTO 320 <228> 

770 REM******************************* <146> 

780 REM*** ANZEIGEN-TAFEL *** <137> 

790 REM******************************* <166> 

800 B1*=LEFT*(BN*,2> <068> 

805 IF BN<10 THEN B1*=CHR*(48) <010> 

806 B1=VAL(B1*> <233> 

810 B2*=RIGHT*(BN*,1):B2=VAL(B2*> <148> 

820 POKE 12972,F1:POKE 12973,F2 <007> 

830 IF PEEKC12934)=51 THEN F2=F2+1 <194> 

840 IF F2>57 THEN F1=F1+1 <071> 

860 POKE 12974,48+B1:POKE 12975,48+B2 <015> 

870 IF LI>57 THEN L2=L2+1 <021> 

880 IF L2>57 THEN L3=L3+1 <083> 

890 IF L3>57 THEN L4=L4+1 <145> 

900 POKE 12976,48+L4 <182> 

910 POKE 12977,48+L3 <032> 

920 POKE 12978,4B+L2 <139> 

930 POKE 12979,48+L1 <245> 

940 RETURN <236> 

950 REM******************************* <070> 

960 REM*** SCORE LOESCHEN ***’ <111> 

970 REM******************************* <090> 

980 FOR T=12931 TO 12936:POKE T,48:NEXT <016> 

990 RETURN <030> 

1000 FOR T=12937 TO 12942:P0KE T,48:NEXT <111> 

1010 RETURN <050> 

1030 REM****************************** <068> 

1040 REM*** STEUERPROGRAMM *** <203> 

1050 REM****************************** < 088> 

1060 F1=48:F2=51 <218> 

1070 GOSUB 1190:GOSUB 1180:GOSUB 430 <038> 

1080 GOSUB 1190:GOSUB 1180:GOSUB 770 <181> 

1090 POKE V+21,255 <028> 

1100 POKE V+4,144:POKE V+5,80 <044> 

1110 POKE V+28,255.-POKE 2042,245 <238> 

1120 POKE 53280,0:POKE 53281,0:POKE 646,5 <182> 

1123 POKE V+2,0:POKE V+6,0:POKE V+8,0:POKE 

V+10,0 <061> 

1124 POKE V+22,200:POKE V+30,0:POKE 12953, 

0 <099> 

1125 POKE 12960,0:POKE 12952,0 <254> 


1130 POKE 12963,1:SYS 49480:POKE 12963,0 
1140 S2=PEEK<12960) 

1150 IF S2=l THEN BN=BN+1;L1=L1+1:GOTO 107 
0 

1160 IF F2=49 THEN BN=1:GOTO 600 
1170 IF PEEKt12952)=1 THEN F2=F2-1:GOTO 10 
80 

1180 POKE 12958,31 

1181 POKE 12808,0:POKE 12963,WA 

1182 POKE 12964,Wl:POKE 12965.W2 

1183 POKE 12966,W3:P0KE 12967,W4:RETURN:RE 
TURN 

1190 REM****************************** 

1200 REM*** BILDER VORBEREITEN *** 

1210 REM****************************** 

1215 W1=0:W2=0:W3=0:W4=0:GOSUB 1182 

1220 IF BN>=2 THEN 1240 

1230 S1=12:WA=1:W1=87:W3=183:RETURN 

1240 IF BN>=3 THEN 1260 

1250 S1=11:WA=1:W1=87:W2=230:RETURN 

1260 IF BN>=4 THEN 1280 

1270 S1=11:WA=1:W1=230:RETURN 

1280 IF BN>=5 THEN 1300 

1290 S1=17:WA=1:W1=230:RETURN 

1300 IF BN>=6 THEN 1320 

1310 Sl=15:WA=1:Wl=78:W2=230:RETURN 

1320 IF BN>=7 THEN 1340 

1330 Sl=12:WA=1:Wl=230:RETURN 

1340 IF BN>=8 THEN 1360 

1350 S1=12:WA=1:W1=230:RETURN 

1360 IF BN>=9 THEN 1380 

1370 S1=10:WA=1:W1=230:RETURN 

1380 IF BN>=10 THEN 1400 

1390 S1 = 16: WA= 1: W1=96: W2=230: RETURN 

1400 IF BN>=11 THEN 1420 

1410 S1=9:WA=1:W1=230:RETURN 

1420 REM ****************************** 


1430 

REM 

*** 

FOLGENDERMASSEN WERDEN 

*** 

1440 

REM 

*** 

EIGENE BILDER EINGEBAUT*** 

1450 

REM 

*** 

1 

BILD ERZEUGEN 

*** 

1460 

REM 

*** 

2. STEINE ZAEHLEN 

*** 

1470 

REM 

*** 

3 

NACH DEM SELBEN 

*** 

140" 

REM 

*** 


SCHEMA EINGEBEN WIE 

*** 

1490 

REM 

*** 


OBEN. 

*** 

1500 

REM 

*** 

- 

S1 = STEINANZAHL 

*** 

1510 

REM 

*** 

- 

WA = 0 (WURM AUS) 

*** 

1520 

REM 

*** 

— 

WA = 1 (WURM AN) 

*** 

1530 

REM 

*** 

- 

W1-W4 HOEHEN DER 

*** 

1540 

REM 

*** 


WUERMER 

*** 

1550 

REM 

*** 


+ :RETURN 

*** 

1560 

REM 

*** 

— 

GOTO IN DER LETZTEN 

*** 

1570 

REM 

*** 


ZEILE ENTSPRECHEND 

*** 

1580 

REM 

**# 


AENDERN.(FERTIG) 

*** 


1590 REM ****************************** 
63999 IF BN>=11 THEN POKE 12949,PEEK<12949 
)-2:BN=1:RETURN 

Hauptprogramm »Stone Rescue 1« (Schluß) 


10 POKE 53280,1:POKE 53281,1:POKE 646,0 <084> 

20 PRINT"CCLR,3DOWN,12SPACE>BILD-ERZEUGER< 

5SPACE,2SHIFT—SPACE > <171> 

40 PRINT"<3D0WN,17SPACE>BY <144> 

50 PRINT"C3D0WN,13SPACE>U2-S0FTWARE <092> 

60 DIM H(75) <225> 

70 FOR T=0 TO 9:H < 48+T)=T:H(65+T)=T+10:NEX 

T <107> 

80 B=30000 <123> 

90 READ A*,A <153> 

100 S=0 <073> 

110 L=LEN(A$>-2: IF LO60 THEN E=1 <164> 

120 FOR T=1 TO L+l STEP 2 <003> 

130 D*=MID*(A*,T,2) <08B> 

140 H=ASC(LEFTS(D*,1>> <117> 

150 L=ASC(RIGHT*(DS,1)) <207> 

160 D=H <H)*16+H<L) <224> 

170 POKE B+SC,D <0B8> 

180 SC=SC+1 <006> 

190 S=S+D <059> 

200 NEXT <210> 

210 Z=Z+1 <022> 

220 IF S=A THEN 270 <144> 

230 POKE 631,13:POKE 198,1 <188> 

'240 PRINT"<CLR>":POKE 211,9:P0KE 214,5:SYS 

58640 <253> 

250 PRINT"FEHLER IN ZEILE :";270+10*Z;"<2D 

OWNJ “ <120> 


260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 


PRINT"<WHITE>FORT=0TO5:P0KE55576+T,1:N 
EX T: LIST";270+10*Z 5 “<3UP,BLACK >":END 
IF EOl THEN 90 

DATA FFA10B1804221813162413160C0224163 
0161318FF270B00FFAC0B18053016, 1658 
DAT A 130C0E133C0E3C0E0C04B300FF9F0B01F 
F270B1804240E3C0E133C1A241305, 1455 
DATA FFBD0B038F019B130C053C1613160C161 
B13160E0C132416130418FF250B05, 1473 
DATA 2300FEFFA10B0C02300E300E0C023C0E0 
C130C0E18020CFF1B0B00FF410B03, 1664 
DATA 8F031701FF180B2402470C026C130CFF2 
10B00FF1B0B0353033B018303A70E, 1778 
DATA 131802470C0254130C3B0218FF1B0B00F 
F1C0B0353032F017703B30C0E1318, 1424 
DATA 02470C023C130C3B0224FF1B0B00FF1D0 
B03530323016B03BF0E020C131853, 1443 
DATA 3C130C470C13020CFF1B0B00FF5A0B03B 
303A701FF180B3016181316181630, 1728 
DATA 160C130C5204FF270B051700FEFF790B0 
C13FF2F0B160C13302EFF170B24E3, 2168 
DATA 3013FF380B18130C9B0E18FF410B18530 
C13160CFF470B6C02180218020CFF, 1906 
DATA 150B0C4700FF1D0B24FF370B03E324D70 


Listing zum Bildgenerator. Geben Sie das Listing, 
alle anderen Basic-Programme auch, möglichst m 
Checksummer aus diesem Sonderheft ein. 


<077> 

<014> 

<084> 

< 114> 

<072> 

< 212 > 

< 194> 
<225> 

< 164> 
<228> 
<059 > 
<248> 
<217> 
<096> 
<030> 
<004 > 

< 156> 
<169> 
<253> 
<003> 

< 148> 

< 168> 
< 220 > 
<076> 

< 123> 
<241 > 

< 143> 

< 149> 
<035> 
<249> 

< 106> 
<046> 

< 119> 
<204> 

< 186> 

< 197> 
< 101 > 
<235> 
< 000 > 
<083> 
<023> 

< 139> 
<099> 
<056> 
< 000 > 
<086> 
<005> 
<248> 
<082> 
<217> 

< 120 > 

<0B8> 


< 120 > 

< 145> 

<088> 

<203> 

< 102 > 
<1B4> 
<082> 
<023> 
< 123> 
< 010 > 


<037> 

<108> 

wie 
t dem 
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Spielegeneratoren 


390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 


20C130CFF3B0B249B031703FF200B, 2136 <104> 

DATA 01231618130CE30C1318FF280B24FF3A0 
B03A718131624161324161324160C, 1520 <234> 

DATA 220E160430FF230B053B00FEFF790B0C1 
30C2F0C130C2F0C130C2F0C130C2F, 1488 <233> 

DATA 0C130CCB0C020C2F0C0E0C2F0C020C2F0 
C0El0CFF880B0C130C1703170C130C, 1052 <053> 

DATA 2F0C130C1703170C130C2F0C130CCB242 
F0C020C2F242F0C020CFFB00B0C13, 1213 <241> 

DATA 0C2F0C130C1703170C130C2F0C130C170 
3170C130CCB0C020C2F242F0C020C, 761 <019> 

DATA 2F24FFDC0B038F03FF170B181324220C2 
E1318163C161804180EFF240B052F, 1745 <117> 

DATA 00FEFF790B1813180E18231A0C04240E2 
30E3013020CA700FF4F0B01FF260B, 1820 <205> 

DATA 1813240E231816301618230E241618A70 
0FF4F0B01FF260B1813180E23130C, 1363 <059> 

DATA 1648160C13230E181318A700FF4F0B01F 
F260B18130C0E23130C1660160C13, 1386 < 091> 

DATA 230E0C131BA700FF4F0B01FF180B03A71 
8130E23130C166C3A17020C1318A7, 1635 <126> 

DATA 00A7000000FF170B01A70101014703CB4 
813163C0524460C0430FF230B053B, 1617 <074> 

DATA 00FEFF7F0B0E18FF1F0B0C020C130C3B0 
2130E3C2F24020C13020CA7000083, 1621 <224> 

DATA 008F00FF270B02FF170B03531324FF1A0 
B02300EA703FF270B01FF1B0B2413, 2060 <151> 

DATA 2F48FB03FF220B480E18132301FF2B0B1 
B13FF720B1813FF180B0101FF260B, 2209 <134> 

DATA 241348FF270B00531813FF3D0B036B019 
B032303A718045E241324160C133A, 1683 <006> 

DATA 0E24B305FF190B00FEFF790B0C130C232 
423242F0C1A0C2F0C130CFF360B24, 1894 <223> 

DATA 1A241A540E0C0E24FF290B181302CB0C1 
30CFF2E0B0E183B0E18FF190B24CB, 1823 <131> 

DATA 03A7249B24470C1318FF180B180EFF190 
B0E13240E0C0E245F60FF410B0C16, 1843 <141> 

DATA 181718165F18FF350B13183B16182F0C1 
60C2F1816230C13FF350B160C020C, 1298 <171> 

DATA 16181624160C1624163C2F1BFF380B131 
85F0C130C5F1813BF03FF250B0418, 1515 <054> 

DATA 522413301630163C9B05FF1B0B00FEFFC 
90B02130C5318020C04180218530C, 1814 <208> 

DATA 130CFF260B0000FF370B0C16182F0C171 
30518170C2F0C1318FF8E0B246B18, 1556 <049> 

DATA 13FF2D0B01FF200B18FF170B24FB019B0 
38F18130C1718231B130CE313D700, 2184 <039> 

DATA FF3A0B0424D7012330FF270B00FF170B0 
33B03FF190B0C130C162416241613, 1813 |<037> 

DATA 241648160C019B05FF1B0BFEFF790B130 
C16FF160B160C13FF340B0C023016, 2055 <135> 

DATA 3C1602301630162413FB0083005300B30 
3FF270B0C131802BF301301FF1A0B, 1839 <225> 

DATA 035F00FF1C0B023013FF1D0B03FF230B0 
21324BF010C161318FF170B03BF00, 1869 <018> 

DATA FF170B30130C02FF1B0B03FF270B0C131 
802BF301601FF1D0B033B00FF1A0B, 1936 <224> 

DATA 01230C13302301FF690B03BF01E3130C0 
E240E133016133016131804180E0C, 1314 <090> 

DATA 13FF220B054700FE23021702170217021 
70217021702170217021702170217, 959 <201> 

DATA 0217021702FF230B03170317039B00170 
01700170017004700170017001700, 795 <194> 

DATA 1700FF1A0B03FF1E0B010301030103010 
301E302FF150B02001700830C1318, 1358 <237> 

DATA FF270B00FF160B03A7020002B30C130C1 
64801030103011701030103010301, 1128 <215> 

DATA FF1B0B24FF1C0B021702170217022300F 
F1D0B00170017001700FF300B03FF, 1671 <U2> 

DATA 220B0113165416130CE30317031703170 
300029B00D701170117011701FF2B, 1275 <049> 

DATA 0B000200020002000200020002FF620B2 
4161324FF500B0103010301030103, 862 <040> 

DATA 0103010301030103010301039B0C13161 
33C16301316180430160C1318FF1E, 860 <180> 

DATA 0B0577FE, 389 <094> 

REM **** ENTSCHLUESSELN **»* <109> 

POKE 646,PEEK(53281>:POKE 53280,PEEK(6 
46) <143> 

DIM G(250>,Z(14>sS=0sE=lsLN=l <095> 

FOR T=0 TO 14s Z <T)=T+65s NEXT <007> 

H=0 <233> 

X=PEEK(30000+S)s G(H)=X:H=H+1 <254> 

S=S+1:IF X< >254 THEN 820 <180> 

PRINT CHR$ <147) <107> 

Bl=1064 <150> 

B=B1:H=0 <014> 



870 IF B>2012 THEN POKE 2013,Z<11):GOTO 10 

30 <076> 

880 L=G(H) <091> 

890 IF L=255 THEN 990 <230> 

900 IF L>5 THEN 920 <242> 

910 POKE B,L:B=B+E:H=H+E:GOTO 870 <097> 

920 D1=INT(L/12> <105> 

930 D2=L-12*D1 <165> 

940 POKE B,D2+Z <0)s D1=D1—EsIF D1=0 THEN 97 

0 <253> 

950 B=B+E <036> 

960 GOTO 940 <254> 

970 B=B+EsH=H+E <204> 

980 GOTO 870 <058> 

990 H=H+EsMl=G(H>sH=H+EsM2=G(H)sH=H+E <200> 

1000 FOR V=E TO Ml:POKE B-E+Y,M2+Z(0):NEXT <153> 
1010 B=B+Y-E <127> 

1020 GOTO 870 <098> 

1030 REM *** LIANE RAUF *** <161> 

1040 B=BlsV=40 <147> 

1050 FOR T=0 TO 959 <103> 

1060 F=PEEK(T+B) <009> 

1070 IF FOB THEN NEXTs GOTO 1120 <240> 

1080 T1=T+B <154> 

1090 POKE T1,Z<9) <023> 

1100 IF PEEK(T1+V)=E THEN POKE Tl+V,Z(9)sN 

EXTsGOTO 1120 <236> 

1110 T1=T1+V:GOTO 1090 <061> 

1120 REM *** LIANE RUNTER »«» <141> 

1130 B=B1 <090> 

1140 FOR T=0 TO 959 <193> 

1150 F=PEEK(T+B) <099> 

1160 IF F<>2 THEN NEXTsGOTO 1210 <186> 

1170 T1=T+B <244> 

1180 POKE TI,Z( 8 ) <112> 

1190 IF PEEK(TI+V)=3 THEN POKE Tl+V,Z( 8 )sN 

EXTsGOTO 1210 <133> 

1200 T1=T1+Vs GOTO 1180 <135> 

1210 REM »** LEITERN *** <077> 

1220 B=B1 <180> 

1230 FOR T=0 TO 959 <027> 

1240 F=PEEK(T+B) <189> 

1250 F<>4 THEN NEXTsGOTO 1300 <133> 

1260 T1=T+B <078> 

1270 POKE TI,Z(5) <199> 

1280 IF PEEK(Tl+V)=5 THEN POKE Tl+V,Z(5)sN 

EXTsGOTO 1300 <128> 

1290 Tl=Tl+VsGOTO 1270 <210> 

1300 B=B1s FOR T=0 TO 959sF=PEEK(T+B)sIF F< 

>Z(5)THEN NEXTsGOTO 1320 <130> 

1310 POKE T+B+E,Z( 6 )sNEXT <016> 

1320 B=BlsFOR T=0 TO 959sF=PEEK(T+B)5IF F< 

>Z(5)THEN NEXTsGOTO 1370 <024> 

1330 IF PEEK (T+B—E) —76 AND NOT PEEMT+B+2) 

<>Z(11)THEN NEXTsGOTO 1370 <110> 

1340 IF PEEK(T+B+2)=74 AND PEEK(T+B-E)=Z(1 

1)THEN 1360 <118> 

1350 POKE T+B,Z(3)sPOKE T+B+E,Z(4)sNEXTsGO 

TO 1370 <058> 

1360 POKE T+B,Z(5)sPOKE T+B+E,Z( 6 )sNEXT <064> 

1370 REM *** BODEN MACHEN *** <077> 

1380 B=B1 <086> 

1390 FOR T=B TO 1983 <201> 

1400 L=PEEK(T)sLl=PEEK(T+V)sIF L1=Z(5)0R L 
1=Z(6)0R L1=Z(9)0R L1=0 OR L1=E THEN 
NEXT <143> 

1410 IF L=Z(7)OR L=Z(10)OR L=Z(0)OR L=Z(2) 

OR L=Z(3)OR L=Z(4)THEN POKE T+V,Z(E> <010> 
1420 NEXT <160> 

1430 REM *** WAENDE & RAND MACHEN *** <025> 

1440 R=160 <109> 

1450 FOR T=B1-V TO 1984 STEP VsPOKE T,Z(12 
)sPOKE T+29,Z(13> sPOKE T+30,RsPOKE T+ 

39,R <234> 

1460 NEXT <200> 

1470 FOR T=102S TO 1052sPOKE T,Z(1)sNEXT <248> 

1480 POKE 52095,96sSYS 52046 - <004> 

1490 LN*="@sSTONE-BILD"+STR*(LN> <119> 

1500 SYS(57812)LN»,8 <124> 

1510 POKE 193,0sPOKE 194,144 <075> 

1520 PDKE 174,233sPOKE 175,147 <012> 

1530 SYS 62957 <097> 

1540 PRINT"<CLR>" <004> 

1550 LN=LN+1sIF LN>10 THEN POKE 646,0s END <236> 

1560 GOTO 810 <036> 



Bildgenerator (Schluß) 






Abenteuerspiele 
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Zauberschloß II 

Das Abenteuer ist noch nicht zu Ende. 
»Zauberschloß« endete damit, daß 
der böse Zauberer von Ihnen in eine 
Maus verwandelt wurde Das dank¬ 
bare Volk machte Sie darauf zum 
König. Doch es geht weiter. 

Nach über einem Jahr ist der böse Zauberer wieder zurück¬ 
gekehrt, um das Volk abermals zu unterjochen, und Sie, den 
König, zu stürzen. 

Sollte es Ihnen noch einmal gelingen, in das Schloß einzu¬ 
dringen, den bösen Zauberer zu besiegen und mit seinem 
Zepter heil das Schloß zu verlassen, so wird der Thron end¬ 
gültig Ihnen gehören. 

Hier noch einige Tips für einen erfolgreichen Spielverlauf: 
Wie Sie bald merken werden, ist ein Speer nicht gerade die 
ideale Waffe im Kampf gegen die Wache. Man sollte sich des¬ 
halb nach einer anderen Waffe umsehen. 

Ein weiteres Hilfsmittel ist der Zauberring. Mit seiner Hilfe 
kann man so mancher Gefahr entfliehen. Sollten Sie einmal im 
Kerker landen, so brauchen Sie nicht gleich den Kopf hän¬ 
genzulassen. Mit ein bißchen Fingerspitzengefühl werden 
Sie vielleicht auch diese Hürde meistern. 

Als letzte Hilfe sei noch erwähnt, daß das Schloß aus ins¬ 
gesamt 100 Räumen besteht (4 Etagen ä 25 Räume). 

Zur Spielweise 

Das Abenteuer beginnt in einer öden Gegend. Um von dort 
aus in das Schloß zu gelangen, müssen die richtigen Kom¬ 
mandos eingegeben werden. 

Ein Kommando besteht entweder aus der Himmels¬ 
richtung, in die man gehen will (nur der Anfangsbuchstabe), 
oder einem der hier aufgeführten Befehle: 


BEKÄMPFE BENUTZE BESTECHE ESSE FANGE KÜSSE LESE 
LIST NIMM ÖFFNE SAGE TRINKE VERLIERE ZERSCHLAGE 


Variable 

Bedeutung 

V 

= 53248 (VIC-Startadresse) 

S7 

= 50168 (Sprite-Zeiger) 

X7 

= Anzahl der in einem Raum befindlichen Sprites 

NS, WO 

= Position in öder Gegend 

FL 

= Fehlervariable 

Kl $ 

= Kommandoeingabe (Befehl) 

K2$ 

= Kommandoeingabe (Gegenstand) 

K$ 

= Kommandoeingabe (Befehl + Gegenstand) 
Kommandoeingabe bei BEKÄMPFE 

XI, X2, X3 

= Position im Schloß 

B$(X) 

= Befehle 

G$(X) 

= Gegenstände 

Fl (X.X.X) 

= Plan der festen Gegenstände 

F2(X,X,X) 

= Plan der festen Gegenstände 

Bl (X.X.X) 

= Plan der beweglichen Gegenstände 

B2(X,X,X) 

= Plan der beweglichen Gegenstände 

TFf$(X) 

= Gegenstände, die man herumträgt 

A(X) 

= Zähler für die verschiedenen Wesen, wie lang 
man sich mit ihnen in einem Raum befindet. 

ZA 

= Rundenzähler 

G 

= Zähler für Schlangengift 

ZT 

= Zähler für Zaubertrank 

TU 

= Zustand der Türen (offen oder zu) 

M 

= Spritenummer 

J1 

= Hilfsvariable zur Ausgabe von Schädel und 

Gebein 

K 

= Zähler für Aufenthalt im Kerker 


Variablenliste von »Zauberschloß II« 
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Hinter dem Befehl muß noch der entsprechende Gegen¬ 
stand eingegeben werden, mit dem man etwas machen 
will. Zwischen Befehl und Gegenstand muß sich ein 
Leerzeichen befinden. Gibt der Computer die Meldung 
»NICHT MÖGLICH« aus, so wurde etwas falsch eingegeben, 
ein anderer Befehl benutzt oder ein Gegenstand ein¬ 
gegeben, den man nicht bei sich trägt, oder der Raum nicht 
vorhanden ist. Außerdem kann diese Fehlermeldung 
auftreten, wenn man bereits vier Gegenstände mit sich 
herumträgt und einen fünften aufnehmen will. Bei unsinnigen 
Kommandoeingaben, wie zum Beispiel ESSE WACHE, wird 
diese Fehlermeldung ebenfalls ausgegeben. 

Wenn man wissen will, was man alles mit sich herumträgt, 
braucht man nur den Befehl LIST einzugeben. 

Vorprogramm 

Nach dem Starten des Vorprogramms (Listing 1) erscheint 
eine Frage nach dem verwendeten Massenspeicher. Man 
gibt K für Kassette oder D für Diskette ein. 

Bei Verwendung einer Floppy werden die Spritedaten wie 
ein Maschinenprogramm unter dem Namen »Zauber-Sprites 
2« auf Diskette gespeichert. Gleichzeitig wird eine Prüf¬ 
summe gebildet. Erscheint nach dem Speichern eine Fehler¬ 
meldung, so hat man die DATAs nicht richtig eingetippt. 

Bei Verwendung einer Datasette werden die Spritedaten in 
den Sprite-Speicher gePOKEt (61440 bis 64703). Gleich¬ 
zeitig wird wieder eine Prüfsumme gebildet. 

Falls die DATAs alle richtig waren, erscheint nun auf dem 
Bildschirm: LOAD "ZAUBERSCHLOSS 2" 

Man braucht jetzt nur noch RETURN zu drücken um das 
Hauptprogramm zu laden. 

Beide Programme können natürlich auch mit Turbo Tape 
geladen werden. Man braucht hierfür nur im Vorprogramm 
den Rasic-Befehl LOAD durch den entsprechenden Befehl 
des'! ui ooTape ersetzen. Man brauchtauch nach dem Laden 
nicht mehr SYS 58541 eingeben, da dieser Befehl bereits 
vom Hauptprogramm ausgeführt wird. 

Im Hauptprogramm steht in Zeile 15 die Befehlsfolge zum 
absoluten Laden der Spritedaten von Diskette. Wenn man mit 
einer Datasette arbeitet, braucht man diese Zeile natürlich 
nicht einzugeben. 


Hauptprogramm 

Das zweite Programm (Listing 2) ist das Hauptprogramm. 


Zeilen 

20 - 

80 

Maschinenprogramm einiesen und aktivieren 

200 - 

307 

Titelbild und Spielerklärung 

310 - 

400 

Einlesen der neuen Zeichen 

1010 - 

1080 

»Öde Gegend« zeichnen 

1100 - 

1200 

Kommandoeingabe, Auswertung 

2100 - 

2225 

Daten für Schloßplan, Gegenstände, Befehle 

2250 - 

2400 

einiesen 

Kommandoeingabe im Schloß, 

3000 - 

3100 

Richtungsabfrage, Zählererhöhung 
Befehlserkennung 

3500 - 

9820 

Auswertung der Befehle, Reaktion auf die 

9900 - 

9970 

Befehle 

Ausgabe der möglichen Richtungen im Schloß 

10000 - 

10750 

Zeichnen der Räume 

11000 - 

11580 

Ausgabe der im Raum befindlichen 

12000 - 

15050 

Gegenstände 

Reaktion auf Befehle 

20000 - 

20050 

Übergang zwischen »öder Gegend« und Schloß 

21000 - 

21030 

Wiederherstellung der Daten der Sprite- 

22000 - 

22060 

Koordinaten 

Schluß; Adventure gelöst 

23000 - 

24010 

Reaktion auf Befehle 

25000 - 

25070 

Zeichnen des Schlosses 

26000 - 

32030 

Reaktion auf Befehle 

55000 


Schluß 
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Abenteuerspiele 


Zu Beginn werden vier kleine Maschinenroutinen ein¬ 
gelesen. Diese Routinen bewirken folgendes: 

Per Rasterinterrupt wird der Bildschirm farbig unterteilt, 
das heißt im oberen Teil ist die Rahmenfarbe Violett und die 
Hintergrundfarbe Schwarz oder Braun, während im unteren 
Teil des Bildschirms sowohl der Rahmen als auch der 
Hintergrund violett ist. Durch diesen Effekt entsteht ein 
Bildschirmfenster. Eine weitere Routine sorgt dafür, daß auf 
jeden Tastendruck ein anderer Ton erklingt. Auch diese 
Routine arbeitet auf Interruptebene. 

Die nächste Routine ist für »Schummler« gedacht, die ein 
Abenteuerspiel gern unterbrechen und die Variablen 
abfragen oder verändern. Bei einer Unterbrechung des 
Programms werden deshalb alle Variablen gelöscht und der 
Befehl CONT wird gesperrt. 

Die letzte Routine sorgt schließlich noch für die Ver¬ 
schiebung der einzelnen Speicher. 

(Josef Busin / rg) 


0 REM +++++++++++++++++++++++++++++ <001> 

1 REM +++ ZAUBERSCHLOSS 2. TEIL +++ <021> 

2 REM +++ 1985 BY +++ <146> 

3 REM +++ JOSEF BUSIN +++ <087> 

4 REM +++ SUDETENSTRASSE 37 +++ <006> 

5 REM +++ 7321 ESCHENBACH +++ <005> 

6 REM +++ TEL.: 07161/42817 +++ <221> 

7 REM +++ +++ <063> 

8 REM +++ VORPROGRAMM (SPRITES) +++ <040> 

9 REM +++++++++++++++++++++++++++++ <010> 

10 : <242> 

11 DATA,60, , , 126, , ,255, , ,153, ,24,153, ,28,2 

55.. 30.255..31.255.128.15.255.192 <044> 

20 DATA 7,255,224,3,255,240,1,255,248,1,25 

5.120.3.254.48.7.254.. 7.254..7.252..7 <235> 

30 DATA 252,,15,248,,31,240,,31,240, <040> 

50 DATA 2,64,130,130,65,12,66,34,16,36,34, 

32,20,66,64,28,68,128,14,104,190,135 <031> 

60 DATA 56,225,65,159,128,39,222,,24,124,, 

,56,,,56,,,56,,,112,,,112,,,224,,,224 <123> 

70 DATA,1,192,,1,192,,1,192, <204> 

90 DATA,,,,,,,,,,60,,,126,,2,255,64,2,153, 

64,35,153,196,51, 255,204,25,165,152 < 189 > 

100 DATA 31,165,248,15,165,240,15,129,240, 

15,255,240,31,255,248,63,255,252 <108> 


110 DATA 127,255,254,127,255,254,127,255,2 

54,127,255,254,127,255,254,127,255,254 <227 > 
120 DATA 127,255,254,127,255,254,127,255,2 

54,127,255,254,127,255,254,127,255,254 <237> 
130 DATA 127,255,254,127,255,254,127,255,2 

54,127,255,254,127,255,254,127,255,254 <247> 
140 DATA 127,255,254,127,255,254,127,255,2 


54,1,255,128,1,255,128,1,255,128 <242> 

150 DATA 31,239,248,31,239,248 <182> 

180 DATA 16,,,16,,,18,,,255,76,64,19,95,64 

,18,63,128,16,21,,16,31,,16,17,,17,255 <092> 
190 DATA 192,63,255,254,63,255,254,19,255, 

254,19,255,246,19,255,246,19,255,246 <099> 

200 DATA 19,255,246,19,255,240,19,255,240, 

16,51,,19,243,240 <076> 

220 DATA 1,252,,3,30,,3,231,,14,123,128,15 

,249,128,3,96,,,204,,3,158,,3,62,,,110 <069> 
230 DATA,,238,,,239,,,239,,,239,,,239,,,31 

,,,255,,,255,,,56,,3,184,,3,184,,1 <245> 

240 DATA 255, <147> 

260 DATA 1,255,128,1,255,128,1,255,128,1,6 

0,128,1,153,128,1,255,128,1,255,128 <053> 

270 DATA 12,189,48,6,189,96,2,219,64,2,102 

,64,3,126,192,1,60,128,1,189,128 <016> 

280 DATA 1,153,128,3,195,192,3,221,192,3,2 

55,192,3,255,192,3,189,192,7,189,192 <228> 

290 DATA 7,189,224,7,189,224,7,60,224,7,12 

6,224,7,126,224,7,126,224,4,255,32 <182> 

300 DATA 15,255,240,15,255,240,15,255,240, 

15,255,240,15,255,240,15,255,240 <245> 

310 DATA 31,255,248,31,255,248,31,255,248, 

31,255,248,62,221,124,48,221,12 <071> 

320 DATA 119,221,238 <070> 

350 DATA,,,,,15,,,15,,66,7,,231,7,4,231,39 

,2,255,71,3,153,199,3,255,199,1,171 <152> 

360 DATA 135,,171,7,,213,7,,213,7,,255,119 

,31,255,255,63,255,255,127,255,255 <119> 

370 DATA 255,255,255,255,255,255,255,255,2 

52,231,255,248 <091> 


390 DATA 227,255,192,227,255,192,227,255,1 

92,227,255,192,227,255,192,227,255,192 <253> 
400 DATA 243,255,192,243,255,192,3,255,192 

,7,255,224,15,195,240,31,129,248 <192> 

410 DATA 31,,248,31,,248,31,,248,31,,248,3 

1.. 248.31..248.31..248.127..254.255 <223> 

420 DATA,255 <043> 

440 DATA,24,,,60,,,126,,,255,,1,255,128,3, 

255,192,7,153,224,15,153,240,255 <130> 

450 DATA 255,255,255,255,255,255,171,255,2 

07,129,243,199,213,227,195,255,195,193 <190 > 
460 DATA 255,131,192,255,3,224,255,7,225,2 

55.135.227.217.199.3.. 192.15.129.240 <232> 

480 DATA 16,,8,8,,16,60,,60,16,255,8,9,255 

,144,7,255,224,7,,224,14,255,112 <079> 

490 DATA 14,195,112,14,189,112,14,165,112, 

14,189,112,14,195,112,14,255,112 <007> 

500 DATA 7,,224,3,255,192,1,255,128,1,255, 

128.10.. 80.12..48.14..112 <1B9> 

520 DATA,,,,60,,,60,,,60,,,60,,,60,,62,36, 

124,65,102,130,67,195,194,71,129,226 <112> 

530 DATA 60,,60,24,,24,50,160,12,50,128,12 

,50,174,236,50,170,172,49,42,236 <122> 

540 DATA 48,,12,24,,24,15,255,240,3,255,19 


2 <031> 

560 DATA,,,,,,,,,,252,,,120,,,48,,,56,,,12 


6 .. .235.128.1.192.192.3.171.224.7.171 <072> 

570 DATA 240,7,171,248,15,192,248,15,235,1 

24,15,235,124,15,235,124,15,234,248 <189> 

580 DATA 7,129,240,3,235,224,1,255,192 <210> 

600 DATA,60,,,60,,,60,,,60,,,60,,,60,,,60, 

,,66,,,129,,7,,224,8,24,16,16,36,8 <022> 

610 DATA 96,66,6,128,165,1,145,24,137,144, 

165,9,184,90,29,144,36,9,144,24,9 <070> 

620 DATA 64,,2,63,255,252 <112> 

640 DATA,,,,,,,,,,7,240,,15,248,20,31,252, 

54.63.254.127.127.254.255.255.255 <194 > 
650 DATA 235,255,255,255,255,255,213,255,2 

55.193.255.255.235.255.255.127.255.255 <016> 
660 DATA 62,127,255,28,127,254,,126,126,,1 

26.126.. 126.126..126.126 <234> 

680 DATA 15,192,,31,224,28,32,112,62,64,11 

2.107.128.112.127.. 112.62..240.28 <198> 

690 DATA 56,224,28,124,224,14,213,224,14,2 

54,120,14,124,60,14,56,30,28,56,15,249 <152> 
700 DATA 56,7,247,28,3,229,28,,9,28,30,3,1 

5.255.255.7.255.254.3.225.252 <082> 
720 DATA,3,192,,7,224,,15,240,,31,248,,63, 

252.. 39.254.128.127.254.255.255.254 <045> 

730 DATA 255,255,254,85,95,254,170,191,254 

,255,255,254,127,255,252,,63,248,,63 <026> 

740 DATA 240,,63,240,,63,240,,63,240,,63,2 

40.. 63.240..63.248 <123> 

750 DATA,63,248, ,63,255, ,63,255, ,63,255, ,6 

3.255.. 63.255..63.255..63.255..63 <023> 

760 DATA 255,,127,255,,127,255,,255,255,1, 

255.255.31.255.255.63.255.255.63.255 <182 > 
770 DATA 255,127,255,255,255,255,255,255,2 

55.255.255.255.255.255.255.255 <206 > 
800 DATA,,,,128,192,,193,224,1,231,248,3,1 

7,96,6,23,224,12,17,224,12,8,96 <060> 

810 DATA 44,9,224,76,4,96,255,255,240,79,2 

55.248.47.255.252.12.15.254.12.31.254 <115> 
820 DATA 12,31,254,12,23,252,6,19,248,3,35 

,24,1,163,24,,207,120 <133> 

840 DATA 3,255,128,15,255,192,31,239,240,1 

27.215.252.127.187.252.127.125.254 <243> 
850 DATA 254,254,254,253,255,126,251,255,1 

91,247,255,223,239,255,239 < 009 > 

860 DATA 247,255,223,251,255,191,125,255,1 

26,126,254,254,63,125,254,63,187 <126> 

870 DATA 254,63,215,248,31,239,240,7,255,1 

92,3,255,128 <088> 

890 DATA 240,24,15,244,60,47,244,126,47,24 

6,231,111,247,195,239,243,129,207 <051> 

900 DATA 251,129,222,249,129,158,125,195,1 

90.127.231.254.63.255.252 <064> 
910 DATA 31,255,248,15,255,240,15,227,224, 

15,221,224,15,221,224,15,239,192 <122> 

920 DATA 31,247,192,31,251,192,63,221,192, 

63,221,224 <174> 

930 DATA 127,227,240,127,255,240,127,255,2 

40.63.255.248.31.255.248.15.255 <170> 
940 DATA 240,15,255,224,15,255,224,7,255,2 

Listing 1. Vorprogramm »Zauberschloß II«. Verwenden Sie 
zur Eingabe bitte nur den Checksummer 64 in diesem Heft. 
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40.7.255.240.15.255.248.15.255 <180> 
950 DATA 240,31,255,224,63,255,192,63,255, 

128,127,255,128,127,255,128 <174> 

960 DATA 127,255,128,255,255,128,255,255,1 

92,255,255,240 <146> 

990 DATA,,,,,,,,,,,,,,,,,,,,,,,,255,255,25 

5.255.255.255.219.109.191.255.255 <223> 
1000 DATA 255,255,255,255,,,,,,,,,,,,,,,,, 

,,,,,,, <061> 
1020 DATA 255,255,255,255,255,255,255,255, 

255,255,255,255,255,255,255,207 < 071> 

1030 DATA 252,251,198,48,51,194,32,19,192, 

32.3.192.. 3.202..131.202..3.206 <121> 

1040 DATA 238,187,202,170,171,202,234,187, 

192.. 11.192..59.192..3.192..3 <002> 

1050 DATA 255,255,255,255,255,255 <119> 

1070 DATA,,,,129,,1,,128,1,,128,,189,,,126 

,,,126,,,90,,,126,,2,126,64,7,60,224 <114> 

1080 DATA 7,255,224,3,255,192,1,255,128,7, 

255.224.31.255.248.63.255.252.63.255 <063 > 
1090 DATA 252,63,255,252,63,255,252,63,255 

,252,63,255,252,63,255,252,63,255,252 <064> 
1100 DATA 63,255,252,63,255,252,63,255,252 

,7,255,224,7,255,224,7,255,224,7,255 <086> 

1110 DATA 224,7,255,224,7,255,224,7,255,22 

4.7.255.224.7.255.224.7.255.224.7.255 <13B> 
1120 DATA 224,7,255,224,7,255,224,7,195,22 

4,63,195,252 <10B> 

1150 DATA,,,,248,,15,252,,31,6,,48,3,,48,1 

,128,48,96,192,24,80,96,12,72,96 <120> 

1160 DATA 6,8,96,3,8,48,1,136,48,3,136,48, 

7,8,48,15,136,24,31,8,12,62,4,12 <076> 

1170 DATA 124,2,12,248,1,252,240,,248,224, 

, <172> 

1190 DATA,113,192,,81,64,,223,96,1,243,240 

,1,255,240,1,192,112,25,192,115 <198> 

1200 DATA 28,255,231,30,63,143,31,14,31,31 

,255,255,31,255,255,31,255,255 < 004 > 

1210 DATA 31,255,255,31,255,255,31,255,255 

,29,255,247,28,255,231,14,255,230 <100> 

1220 DATA 6,127,204,31,63,159 <100> 

1240 DATA,60,,,60,,,60,,,60,,,60,,,60,,,60 

,,3,255,192,,36,,,36,,,36,,,36,,,36 <068> 

1250 DATA, ,36, , ,36, , ,255, , ,255, ,3,255,192, 

15.255.240.63.255.252.255.255.255 <072> 
1270 DATA,60,,,60,,,60,,,60,,,60,,,126,,,1 

95.. 63.129.252.63..252.48..12.48..12 <236> 

1280 DATA 48,,12,53,25,12,53,33,12,55,33,1 

2.53.33.12.53.25.204.48.. 12.48..12 <223> 

1290 DATA 63,255,252,63,255,252 <248> 

1310 DATA 7,255,224,15,255,248,31,255,252, 

63.24.254.127.24.255.127.24.255 <074> 
1320 DATA 127,255,254,63,84,254,63,,252,31 

,,248,15,84,240,15,255,224,7,255,192 <07B> 

1330 DATA 3,255,128,1,255,,,254,,,124,,,12 

0...56,,,48,,,16, <047> 

1350 DATA 49,130,16,27,6,28,115,135,14,225 

,195,135,225,193,199,115,131,142 <073> 

1360 DATA 57,143,28,63,255,252,127,255,254 

,255,255,255,255,255,255,255,255,255 <254 > 

1370 DATA 255,255,255,255,255,255,255,255, 

255.255.255.255.255.255.255.127.255 <100 > 
1380 DATA 254,63,255,252,31,255,248,15,255 

,240 <19B> 

1400 DATA,255,,1,255,128,3,,192,6,18,96,12 

,36,48,12,73,48,12,146,48,12,36,48 <003> 

1410 DATA 6,72,96,3,,192,1,129,128,,255,,, 

126.. .60...24...24...24...24...24., <008> 

1420 DATA 60,,,60, <06B> 

1440 DATA,,248,,,248,,24,248,,24,248,,5,24 

8 .. 3.128..71...62.128..60.96..60.96 <146> 

1450 DATA 7,252,,7,226,,7,224,,7,224,,7,22 

4.. 15.224..28...56...240...224 <12B> 

1460 DATA,,224,, <095> 

1480 DATA 255,255,,255,255,128,255,255,192 

, 255,255,224,223,255,240,207,255,248 <072 > 

1490 DATA 199,255,252,195,255,254,193,255, 

255,193,255,255,193,131,3,193,131,3 <006> 

1500 DATA 193,131,3,193,131,3,193,131,3,19 


3,131,3,1,128,3,1,128,3,1,128,3 <067> 

1510 DATA 1,128,3,1,128,3 <004> 

1530 DATA,126,,,126,,,126,,,126,,,126,,,12 

9,,63,,252,64,56,2,128,124,49 <166> 

1540 DATA 128,214,121,128,254,141,128,124, 

141,128,56,77,128,56,13,128,28,13 <005> 

1550 DATA 128,14,25,128,7,49,128,3,225,128 

,1,193,128,,1,255,255,255 <230> 


1570 DATA,254,,1,255,,3,255,128,3,255,128, 

1.255.. .254...124...254..1.131..3 <165> 

1580 DATA 1,128,6,,192,6,,192,6,,192,6,,19 

2.3.1.128.1.131.. .254...124........., <015> 

1600 DATA,,,,,1,,,3,,,6,,,12,,,28,,,120,,, 

240.. 1.240..3.224..7.192..15.128 <098> 

1610 DATA,31,,,62,,,124,,,252,,1,248,,3,24 

0,,7,224,,7,192,,7,128, <156> 

1630 DATA 24,,,28,,,14,,,7,,,3,128,,1,192, 

,,224,,,112,,,56,,,28,,,14,,,7 <041> 

1640 DATA,,3,128,,1,192,,,225,,,114,,,60,, 

,28,,,30,,,39,,,67 <124> 

1660 DATA,,,,,,30,,,63,,,97,192,,96,224,,9 

6.48.. 192.24..192.12.2.192.6.7 <225> 

1670 DATA 192,3,255,192,3,255,192,6,7,192, 

12.2.96.24.. 96.48..96.224..63.192 <103> 

1680 DATA,31,,,,,,,, <097> 

1700 DATA 128,,3,112,,14,94,,114,85,195,21 

0,63,255,252,37,85,84,63,255,252 <184> 

1710 DATA 21,85,72,31,255,248,21,85,72,31, 

255,248,21,85,72,31,255,248,21,85,72 <U1> 
1720 DATA 63,255,252,37,85,84,63,255,252,8 

5.195.210.94.. 114.112..14.128..1 <045> 

1740 DATA 255,255,255,255,255,255,192,,3,2 

20,133,83,200,80,3,200,32,171,200,4,3 <233> 
1750 DATA 220,81,19,192,,3,192,,3,192,,3,1 

92.. 3.223.18.163.202.64.3.202.5.83 <204> 

1760 DATA 202,32,3,223,8,163,192,,3,192,,3 

,255,255,255,255,255,255 <136> 

1780 DATA,,,,,,,,,,,,,,,,,,,,,,,128,,,129, 

255.255.255.64.. 255.63.255.255...129 <107> 

1790 DATA,,128,,,,,,,,,,,,,,,,,,,,,, <223> 

1810 DATA 126,,,36,,,36,,,36,,,131,,3,129, 

192.2.. 64.3..192.3.255.192.3.253.192 <020> 

1820 DATA 3,127,192,3,239,192,3,255,192,3, 

251.192.3.255.192.3.223.192.3.255 <084> 
1830 DATA 192,3,253,192,3,127,192,3,255,19 

2,3,255,192 <224> 

1850 DATA,,1,,,3,,,6,,,12,,,24,,,48,,,96,, 

,192,,1,128,,3,,,6,,,12,,,24,,,48 <033> 

1860 DATA,,96,,,192,,17,128,,19,,,22,,,28, 

,,31,, <100> 

18Hi. DATA 127,255,224,255,255,248,255,255, 

255.255.255.255.255.255.255.255.255 <163 > 
1890 DATA 255,255,255,255,255,255,255,255, 

255,255,255,255,255,255,255,255,255 <240 > 

1900 DATA 255,255,255,255,255,255,255,255, 

255.255.255.255.255.255.255.255.255 <250 > 
1910 DATA 255,255,255,255,255,255,255,255, 

255.255.255.255 <208> 
1920 DATA,,124,,,28,,,124,192,,228,248,1,1 

96,254,1,192,255,128,224,255,192,112 <163> 

1930 DATA 255,224,56,255,240,28,255,248,28 

,255,252,28,255,254,28,255,254,56,255 <165> 
1940 DATA 255,56,255,255,112,255,255,240,2 


55,255,224,255,255,224,255,255,224 <106 > 
1950 DATA 255,255,224 <241> 

1980 DATA,14,,,27,,,60,,,126,,,255,,1,255, 

128,1,153,128,1,153,128,1,255,128 <211> 

1990 DATA 1,255,128,1,255,128,1,255,128,1, 

255,128,7,255,224,8,255,16,16,126,8 <001> 

2000 DATA 18,,72,18,,72,37,,164,37,,164,37 

,,164 <121> 

2020 DATA 37,,164,36,129,36,36,129,36,36,2 

55,36,36,255,36,255,255,255,60,255 <181> 

2030 DATA 61,1,255,129,1,255,131,3,255,195 

,1,231,198,1,231,131,1,231,128 <16B> 

2040 DATA 3,195,192,3,195,192,3,195,192,7, 

129,224,7,129,224,7,129,224,15,129 <076> 

2050 DATA 240,63,129,252 <112> 

2070 DATA,,,,,,,,,240,,,144,,,252,,,152,,, 

152,,,12,,,12,,,6,,,12,,,248 <085> 

2080 DATA,,,,,,,,,,,,,,,,,,,,,,,,,, <023> 

2100 : <044> 

3000 PRINT"tCLR,2D0WN,RVSON >K{RVOFF >ASSETT 

E ODERCSPACE,RVSON>D<RVOFF>ISKETTE ?" <030> 
3010 BET Mi IF M=" "THEN 3010 <073> 

3020 IF M= "K"THEN 3100 <174> 

3030 IF A*="D"THEN OPEN 1,8,1,ZAUBER-SP 

RITES 2":BOTO 3050 <226> 

3040 BOTO 3010 <234> 

3050 PRINT#1,CHR*(0>;CHR*C240>; <074> 

3060 FOR X=1 TO 51:FOR Y=1 TO 63:READ A:B= 

B+A:PRINT#1,CHRS< A >;:NEXT:PRINT#1,OHR 
*<0>5 <062> 

3070 NEXT: CLOSE 1:IF B0346712 THEN PRINT“ 


Listing 1. Vorprogramm »Zauberschloß II« (Fortsetzung) 
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<CLR,2D0WN,RVSON »FEHLER IN DATAS! ! !" <102> 

3080 END <034> 

3100 PRINT"CCLR,11DOWN>“SPC(12)"{RVSON,SPA 

CE»BITTE WARTEN ! " <076> 

3110 AD=61440:FOR X=0 TO 50:FOR Y=0 TO 62: 

READ A:B=B+A <237> 

3120 POKE AD+Y+<X*64),A:NEXT:NEXT:IF B<>34 
6712 THEN PRINT“<CLR,2D0WN,RVSON»FEHL¬ 
ER IN DATAS!!!";END <223> 

3130 PRINT"{CLR,3D0WN»L0AD"+CHR$(34)+"ZAUB 

ERSCHLOSS 2"+CHR*<34>+"<HOME»" <235> 

3140 : <068> 

3150 REM BEI VERWENDUNG VON TURBO TAPE <251 > 

3160 REM MUSS IN ZEILE 3130 STATT <181> 

3170 REM 'LOAD* '<-L' STEHEN <002> 

0 G4'er 

Listing 1. Vorprogramm »Zauberschloß II« (Schluß) 

1 REM +++ ZAUBERSCHLOSS - 2. TEIL +++ <02B> 

2 REM +++ EIN ADVENTURE VON +++ <107> 

3 REM +++ JOSEF BUSIN +++ <087> 

4 REM +++ SUDETENSTR. 37 +++ <229> 

5 REM +++ 7321 ESCHENBACH +++ <005> 

6 REM +++ TEL.: 07161/42817 +++ <221> 

8 REM +++ HAUPTPROGRAMM +++ <184> 

15 IF A=0 THEN A=1:LOAD"ZAUBER-SPRITES 2", 

8,1 <173> 

20 DATA 120,169,0,141,18,208,173,17,208,41 

,127,141,17,208,169,129,141,26 <121> 

25 DATA 208,169,91,160,3,141,20,3,140,21,3 

,88,96,173,25,208,141,25,208,41 <044> 

30 DATA 1,208,3,76,144,3,173,18,208,201,20 

0,176,21,169,200,141,18,208,169 <105> 

35 DATA 4,160,0,141,32,208,140,33,208,104, 

168,104,170,104,64,169,0,141,18 <067> 

40 DATA 208,169,4,160,4,76,120,3,165,197,2 

01,64,208,14,169,0,141,4,212,141 <019> 

45 DATA 5,212,141,6,212,76,49,234,141,1,21 

2,73,255,141,0,212,169,15,141,24 <242> 

50 DATA 212,169,25,141,5,212,169,68,141,6, 

212,169,17,141,4,212,76,49,234 <191> 

55 DATA 120,169,51,133,1,169,0,133,95,133, 

90,133,88,169,208,133,96,169,240 <109> 

60 DATA 133,89,169,224,133,91,32,191,163,1 

69.55.133.1.88.96 <133> 

65 DATA 169,240,160,3,141,2,3,140,3,3,96,3 

2,94,166,76,131,164 <216> 

66 DATA 162,0,160,0,138,133,251,169,216,13 

3,252,138,145,251,200,208,251,232,230 <211> 

67 DATA 252,224,3,208,244,162,0,157,0,219, 

232.224.200.208.248.96 <073> 
70 SYS 58451:FOR X=82B TO 1013:READ A:A5=A 

5+A:POKE X,A:NEXT <041> 

72 FOR X=704 TO 738:READ A:A5=A5+A:POKE X, 

A:NEXT <110> 

73 IF A5<>26829 THEN PRINT"<CLR,2D0WN,RVS0 

NJFEHLER IN DATAS!":STOP <106> 

75 SYS 963:POKE 981,160:SYS 963:POKE 56576 
,PEEK<56576)AND 252:POKE 53272,8:POKE 6 
48,192 <163> 

80 SYS 828:SYS 997 <025> 

200 V=53248:POKE V+21,0:POKE V+29,0:POKE V 

+23,0:PRINT CHR*<142)CHR*(8) <114> 

215 PRINT"<CLR,BROWN»":GOSUB 25000 <045> 

216 PRINT"<DOWN,BLACK,RVOFF>ZAUBERSCHLOSS 

- 2. TEIL" <155> 

217 PRINT"<2D0WN>EIN ADVENTURE VON JOSEF B 

USIN" <197> 

227 FOR X=49152 TO 49352 STEP 11:POKE X,46 
:NEXT X:FOR X=55296 TO 55496 STEP 11:P 
OKE X,1:NEXT X <081> 

232 POKE V+21,3:POKE 50168,l92:P0KE 50169, 

192:POKE V,180:POKE V+1,177:P0KE V+39, 

1 <135> 

233 POKE V+27,3:POKE V+40,1:POKE V+29,3:F0 

R X=1 TO 1000:NEXT X' <179> 

234 FOR X=177 TO 20 STEP-l:POKE V,1B0+Z:Z= 

Z+.3:POKE V+1,X <106> 

235 POKE V+2,180—ZI:Z1=Z1+1.1:POKE V+3.X+1 

:FOR Y=0 TO 45:NEXT Y:NEXT X <160> 

240 PRINT"{HOME,RVOFF,20DOWN,BLACK»DIE GEI 

STER HABEN DAS SCHLOSS VERLASSEN."; <084> 

245 PRINT"IHRE STUNDE IST GEKOMMEN. TOETEN 

SIE DEN"; <244> 

247 PRINT"ZAUBERER UND RETTEN SIE DAMIT EN 

DGUELTIG"; <029> 

248 PRINT"DAS VOLK VOR DEM TYRANNEN.{ 8 SPAC 


E>" <193> 

250 GET A*:IF A$=""THEN 250 <220> 

255 PRINT"CCLR,YELLOW »"CHR*(14 >:PRINT"KENN 

EN SIE DIE SPIELREGELN tJ/N) ?" <172> 

260 GET A*:IF A*=""THEN 260 <040> 

265 IF A*="J U THEN 307 <185> 

270 PRINT"{CLRJfilESES ADVENTURE IST DIE £0 

RTSETZUNG" <196> 

272 PR INT "VON ZRUJtLK.S.CJU.O.S.5 . IDQWN»" <091 > 

274 PRINT".OBWOHL DER ZAUBERER (HOFFENTLICH 

!> VON" , <065> 

276 PRINT"£IR IN EINE HAUS VERWANDELT WURD 

E, IST" <177> 

278 PRINT"ER JETZT WIEDER ZURUECKGEKEHRT." <006> 
280 PRINT“{DOWN»ABERMALS WIRD ER VERSUCHEN 

, DAS iOLK ZU" <081> 

282 PRINT"UNTERJOCHEN. ALS ÄOENIG HAST SU 

DIE“ <119> 

284 PRINT"£FLICHT, SEIN ÜDLK UND DEINEN JH 

RON VOR" <189> 

292 PRINT"DEM BOESEN ZAUBERER ZU RETTEN." <076> 

296 PRINT"C2D0WN»£DLGENDE BEFEHLE WERDEN A 

KZEPTIERT:<DOWN»" <205> 

297 GET A*:IF A*="“THEN 297 <145> 

298 PRINT"<CLR,4DOWN»" <031> 

299 PRINT"NIMM...VERLIERE..-OEFFNE...ZERSC 

HLAGE.." <204> 

300 PRINT".BEKAEMPFE...TRINKE...ESSE... LES 

E..." <029> 

301 PRINT"BENUTZE...BESTECHE...SAGE...KUES 

SE...“ <113> 

302 PRINT"FANGE...LIST" <064> 

305 GET A*:IF A*=“"THEN 305 <118> 

307 PRINT"{CLRJ"CHR*<142) <216> 

310 DATA,,,63,255,255,255,255,,,28,255,255 

,255,255,255,,,,128,193,255,255,255 <027> 

320 DATA,,,96,243,255,255,255 <069> 

330 FOR X=0 TO 7:READ A:POKE 57344+X,A:NEX 
T X:FOR X=0 TO 23:READ A:POKE 58032+X, 

A:NEXT X 

340 DATA, , ,1,3,3,3,3,60,126,255,255,255,25 

5.24.24.. ..128.192.192.192.192 
3?w JATA 3,3,3,3,1,,,,24,255,231,231,255,2 

55.129.129.192.192.192.192.128.. , 

360 DATA, ,32,112,255,255,112,32,129,255,12 

6 .. 255.255.....4.14.255.255.14.4 
400 FOR X=0 TO 15:READ A:POKE 57584+X,A:NE 

XT:FOR X=0 TO 55:READ A:POKE 57624+X.A 
: NEXT 

900 GOTO 1100 

1010 PRINT"tCLR,5D0WN,GREY 1J":F0R X=1 TO 
10:PRINT"©KHÄ";:NEXT X 
1020 FOR X=1 TO 160:PRINT“CRVSON,SPACE»";: 

NEXT X:PRINT"{YELLOW»"; 

1030 FOR X=1 TO 320:PRINT"CRVSON,SPACE»";: 

NEXT X 

1035 POKE V+27,0:POKE 50168,193:POKE 50169 
,193 

1040 POKE V+21,3:POKE V+39,0:POKE V,250:PO 
KE V+1,150:POKE V+23,1:P0KE V+29,1 
1050 POKE V+40,0:POKE V+2,50:POKE V+3,120 
1055 FOR X=49152 TO 49370 STEP 11:POKE X,4 
6 :NEXT X 

1060 FOR X=55296 TO 55514 STEP 11:P0KE X,1 
:NEXT X 
1080 RETURN 
1100 BOSUB 1010 

1105 IF NS=0 AND WO=0 THEN 1107 

1106 GOTO 1140 

1107 IF FL=1 THEN 1140 

1110 POKE 50170,206:POKE V+21,7:P0KE V+41, 

0sPOKE V+4,180:POKE V+5,150 
1120 PRINT"{DOWN.RVOFF,BLACK»DU BEFINDEST 
DICH IN EINER OEDEN GEGEND" 

1130 PRINT"DU SIEHST EINE FLASCHE CUP»“:GOT 
O 1150 

1140 PRINT"{DOWN.RVOFF,BLACK»DU BEFINDEST 
DICH IN EINER OEDEN GEGEND" 

1150 PRINT"<DOWN»MOEGLICHE RICHTUNGEN: N-S 
-W-0" 

1160 INPUT"{DOWN»KOMMANDO";K* 

1165 IF K*="N"THEN NS=NS+1:G0T0 1200 
1170 IF K*="S"THEN NS=NS-1:G0T0 1200 
1175 IF K*="W"THEN WD=W0-1:G0T0 1200 
1180 IF K*="0"THEN W0=W0+1:G0T0 1200 

Listing 2. Hauptprogramm »Zauberschloß II«. Zur Eingabe 
verwenden Sie bitte den Checksummer in diesem Heft. 


< 158> 


< 184> 


< 176> 


<021 > 


< 147> 
<094> 

< 118> 
<240> 
<08B> 
<096> 

<027> 

< 198> 

<239> 

<209> 

< 122 > 
<072> 
<226> 

< 174> 
<216> 

< 198> 

< 154> 

< 162> 

< 174> 

< 1B0> 

< 163 > 
<078> 
<085> 

< 12B> 
< 001 > 
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1185 IF K*="NIMM FLASCHE"AND NS=0 AND WO=0 

THEN FL=1:P0KE V+21,3:G0T0 1200 <194> 

1186 IF K*= "OEFFNE FLASCHE "AND FL=1 THEN 1 

195 <216> 

1187 IF K*="VERLIERE FLASCHE"AND FL=1 THEN 

1197 <164> 

1190 IF K*="ZERSCHLAGE FLASCHE"AND FL=1 TH 

EN 20000 <080> 

1195 PRINT"{CLR,21DOWN,RVSONJUNMOEGLICH!“s 

FÜR X=1 TO 2000:NEXT X <135> 

1196 GOTO 1100 <136> 

1197 POKE V+21,0:PRINT"{CLR,2D0WN,WHITE >DI 

E FLASCHE HAT SICH IN RAUCH AUFGE—" <134> 

1198 PRINT"LOEST.":PRINT"SOMIT IST DAS ABE 

NTEUER ZUENDE, BEVOR ES"; <163> 

1199 PRINT"ERST RICHTIG ANGEFANGEN HAT.":E 

ND <200> 

1200 GOTO 1100 <140> 

2100 POKE 53269,0:POKE 876,210:SYS 828:POK 

E 880,210:SYS 828 <165> 

2105 DIM Fl<3,4,4),F2(3,4,4),Bl(3,4,4),B2< 

3,4,4),G*<39),B*<14),A(11) <123> 

2110 FOR X1=0 TO 3:FOR X2=0 TO 4:F0R X3=0 

TO 4:READ Fl(X1,X2,X3):NEXT:NEXT:NEXT <136> 
2112 DATA 8,14,12,30,4,128,13,14,7,2,8,14, 

15.5.4097.1034.133.11.14.22.1.8.133.1 

28.1 <065> 
2115 DATA 10,14,14,38,2,,11,13,15,5,9,15,3 

0,15,4,10,13,13,15,38,137,8204,4,,5 <005> 

2117 DATA 130,8,12,6,2,25,12,14,12,16391,8 
,14,47,12,7,2,131,11,12,7,,1,2057,4,1 
7 <181> 


2120 DATA 8,12,140,14,6,34,520,6,66,1,139, 

4,387,11,6,9,12,15,5,3,8,12,141,4,33 <188> 

2125 FOR X1=0 TO 3:F0R X2=0 TO 4:F0R X3=0 

TO 4:READ F2(XI,X2,X3>:NEXT:NEXT:NEXT <167> 
2130 DATA,32,,,,2,,,,,,,2048,,,,,,,,,1,,2, 

,,,,,,16,,,,4096,,,,,16,32,,,,,,,8,16 <214> 
2135 DATA, , ,32, , , , , ,512, , , , , ,64, , , , , ,1024, 

256 ,,,,,,128, ,64, ,,,,,,,,,,16,, 

,, <113> 

2140 FOR X1=0 TO 3:FOR X2=0 TO 4:FOR X3=0 

TO 4:READ Bl(X1,X2,X3):NEXT:NEXT:NEXT <134> 
2145 DATA 1024,,,,,,,,,1,4,,,,,,,8,,, ,4, , , 

4096,,,,,512,,,,,,,,,,,,,,,,,,,,,256 <251 > 

2150 DATA,,128,2,,,,,,512,,,,,8192,,,,,,4, 

,16384,,16,,,,2048,,,,,,,64,,,4 <0B7> 

2155 DATA,,,,,,,,4, <233> 

2160 FOR X1=0 TO 3:FOR X2=0 TO 4:FOR X3=0 

TO 4:READ B2(XI,X2,X3>:NEXT:NEXT:NEXT <170> 
2165 DATA,,,,1,,,256,,,,,,,,,,,,,4,,,,,,,, 

mii|ii32,,,l 024 ,,,512,,,,,,,,,,128 <093> 

2170 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,2,,, 

iimtiBn 64 ,,,,,, < 026 > 

2180 FOR X=1 TO 14:READ B*<X):NEXT <118> 

2185 DATA BEKAEMPFE,BENUTZE,BESTECHE,ESSE, 

FANGE,KUESSE,LESE,LIST,NIMM,OEFFNE <165 > 

2190 DATA SAGE,TRINKE,VERLIERE,ZERSCHLAGE <187> 

2195 FOR X=1 TO 39:READ G*(X):NEXT <179> 

2196 FOR X=1 TO 38:F0R Y=X+1 TO 39:IF G*<X 

)<G*(Y> THEN 2198 <237> 

2197 V*=G*(X):G*<X)=G*<Y>:G*<Y)=V$ <040> 

2198 NEXT Y:NEXT X <131> 

2200 DATA HAMMELKEULE,SCHLANGEN,HOELLENSTE 

IN,WACHE,WACHEN,KOBOLD,ZAUBERSTEIN < 059 > 

2205 DATA GOLD,BOGENSCHUETZE,GHOUL,VAMPIR, 

HONIG,ZÄUßERTRANK,WEIN,SPEER,SCHWERT <153 > 
2210 DATA SCHILD,PEITSCHE,UNGEHEUER,TONTAF 

EL,ZAUBERRING,KROETE,FLOETE,TUER,BAER < 014 > 
2215 DATA SILBERDOLCH,WERWOLF,SPIEGEL,FLAS 


CHE,SHADOW,NETZ,ZAUBERER,ZEPTER <099 > 

2220 DATA STEINERNE,SAEURE,SCHEMEL,GEGENGI 

FT,FLASCHENGEIST,HOL ZPFLOCK < 216 > 

2225 X1=1:X2=0:X3=1 <013> 

2250 GOSUB 21000:IF G>0 THEN G=G+1:IF 6=5 

THEN 23000 <114> 

2252 IF ZT>0 THEN ZT=ZT+1:IF ZT=20 THEN GO 

SUB 24000 <178> 

2260 ZA=ZA+1:GOSUB 11000:GOSUB 10000:GOSUB 

9900:SYS 704 <103> 

2263 IF Fl(X1,X2,X3)>127 THEN Jl=l <219> 

2265 IF Jl=l THEN GOSUB 30000 <046> 

2270 PRINT"{HOME,23D0WN >";:INPUT"KOMMANDO” 

;K* <131> 

2290 IF K*="N"ANDCFG AND 1)=1 THEN X2=X2-1 

:GOTO 2400 <151> 

2300 IF K*="S"AND(FG AND 2)=2 THEN X2=X2+1 

:GOTO 2400 <100> 


2310 IF K$="W"AND <FG AND 4)=4 THEN X3=X3-1 

:GOTO 2400 <136> 

2320 IF K*="D"AND(FG AND 8)=8 THEN X3=X3+1 

:GOTO 2400 <150> 

2330 IF K*="H"AND<FG AND 16)=16 THEN X1=X1 

+1:GOTO 2400 <063> 

2340 IF K$="R"AND(FG AND 32)=32 THEN X1=X1 

*1:GOTO 2400 <1B4> 

2345 GOSUB 3000:IF FE=0 THEN 2400 <042> 

2350 PRINT"{RVSONJNICHT MOEGLICHFOR X=1 

TO 2000:NEXT XsGOTO 2250 <195> 

2400 GOSUB 12000:GOSUB 26000:GOTO 2250 <223> 

3000 FE=0:IF K*="LIST"THEN 7000 <197> 

3005 X0=0:FOR X=1 TO LEN<K*):IF MID*(K*,X, 

1)=" "THEN X0=X <245> 

3010 NEXT X:IF X0=0 THEN FE=1:RETURN <105> 

3015 Kl*=LEFT*< K*,X0-1>:K2*=MID* < K*,X0+1,L 

EN(K*)-X0> <208> 

3020 X0=0:FOR X=1 TO 39:IF K2*=G=MX)0R K2* 

="SESAMOOPERA"THEN X0=X <146> 

3030 NEXT X:IF X0=0 THEN FE=1:RETURN <125> 

3040 X0=0:FOR X=1 TO 14:IF K1*=B*<X>THEN X 

0=X <041> 

3050 NEXT X:IF X0=0 THEN FE=1:RETURN <145> 

3060 IF X0>8 THEN 3090 <012> 

3070 ON X0 GOSUB 3500,4000,4500,5000,5500, 

6000,6500 <191> 

3080 RETURN <090> 

3090 X0=X0—8:ON X0 GOSUB 7500,8000,8500,90 

00,9500,13000 <163> 

3100 RETURN <110> 

3500 FE=0:S=0:GOSUB 26000 <020> 

3510 IF K2*=G»<1>AND(F1(XI,X2,X3)AND 16384 

)=16384 THEN 3530 <186> 

3511 IF K2$=G$(2)AND CF2(XI,X2,X3)AND 2048) 

=2048 THEN 3545 <109> 

3512 IF K2$=G*C4)AND<B1(XI,X2,X3>AND 32)=3 

2 THEN 3555 <091> 

3513 IF K2*=G*(13)AND(B2CX1,X2,X3)AND 256) 

=256 THEN 3570 <011> 

3514 IF K2$=G$(20)AND(F2(X1,X2,X3)AND 32)= 

32 THEN 3610 <252> 

'=15 IF K2*=G*<22)AND(F2(X1,X2,X3>AND 256) 

=256 THEN 3630 <073> 

3516 IF K2S=G*<29)AND(F1(XI,X2,X3)AND 8192 

)=8192 THEN 3670 <140> 

3517 IF K2$=G$(30)AND(Fl(XI,X2,X3)AND 1024 

)=1024 THEN 3705 <171> 

3518 IF K2*=G*(31)0R K2$=G*(32)AND<F1(XI,X 

2,X3> AND 128)=128 THEN 3745 <073> 

3519 IF K2*=G*<34)AND(Fl<X1,X2,X3)AND 2048 

)=2048 THEN 3860 <254> 

3521 IF K2*=G*<7)ANDIFl<X1,X2,X3)AND 4096) 

=4096 THEN 3925 <070> 

3522 IF K2*=G*(26)AND<F2<X1,X2,X3>AND 128) 

=128 THEN 3960 <198> 

3525 FE=1:RETURN <072> 

3530 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2D0 
WN>DER BAER HAT SICH AUF KEINEN LANGE 
N" <242> 

3540 PRINT"KAMPF EINGELASSEN." <152> 

3542 PRINT"MIT EINEM EINZIGEN PRANKENHIEB 

HAT ER" <210> 

3543 PRINT"DICH INS JENSEITS BEFOERDERT.": 

GOTO 55000 <066> 

3545 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2D0 
WN>":X0=0:FOR X=1 TO 4:IF TR*<X)=G*<1 

9)THEN X0=X <156> 

3546 NEXT X:IF X0=0 THEN 3550 <0B0> 

3547 PRINT"DER PFEIL DES BOGENSCHUETZEN HA 

T NUR DEN SCHILD GETROFFEN." <1B7> 

3548 FOR X=1 TO 1500:NEXT X:RETURN <254> 

3550 PRINT"LEIDER WAR DER UNHEIMLICHE BOGE 

NSCHUETZE";:PRINT"SCHNELLER." <111> 

3552 PRINT"SEIN MAGISCHER PFEIL HAT DICH G 

ETROFFEN.":GOTO 55000 <039> 

3555 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2D0 

WN>" <246> 

3556 PRINT"DA DU DEN ";G*(4>;" GEREIZT HAS 

T," <156> 

3560 PRINT"IST ES NUR SELBSTVERSTAENDLICH, 

DASS ER" <034> 

3565 PRINT“DICH WIE EIN LAESTIGES INSEKT I 

N DER" <040> 

3566 PRINT"LUFT ZERRISSEN HAT.":GOTO 55000 <187> 
3570 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2D0 


Listing 2. Hauptprogramm »Zauberschloß II« (Fortsetzung) 



76 


















C 64 


Abenteuerspiele 


WNTDER KOBOLD HAT ES VORGEZOGEN ZU VE 


R—"!PRINT"SCHWINDEN.“ <046> 

3575 FOR X=1 TO 4:IF TR*<X)=G*(8)THEN 3590 <052> 

3580 NEXT <032> 

3581 IF X1=0 THEN B2(1,2,1)=B2<1,2,1)+256 <154> 

3582 IF Xl=l THEN B2(2,3,3)=B2(2,3,3>+256 <16B> 

3583 IF XI=2 THEN B2<0,1,2)=B2(0,1,2)+256 <214> 

3586 B2(XI,X2,X3)=B2(X1,X2,X3)—256:FOR X=1 

TO 2000:NEXT X:RETURN <035> 


3590 PRINT"LEIDER HAT ER DEIN GOLD MITGENO 

MMEN." <086> 

3591 IF X1=0 THEN B2<1,2,1)=B2(1,2,1)+256 <166> 

3592 IF Xl=l THEN B2(2,3,3)=B2<2,3,3)+256 <180> 

3593 IF XI=2 THEN B2(0,1,2)=B2(0,1,2)+256 <226> 

3595 FOR X=1 TO 4:IF TR*(X)=G*(8)THEN TR*( 


X>="" <241> 

3600 NEXT X:X0=X:GOSUB 23200:GOTO 3586 <070> 

3610 GOSUB 3990: POKE V+21,0:PRINT"<CLR,2D0 

WN>“ <047> 

3611 PRINT"DIE SCHLANGEN HABEN DICH GEBISS 

EN." <102> 

3615 PRINT"DU BIST VERGIFTET.":PRINT"WENN 

DU NICHT BALD ETWAS DAGEGEN" <03B> 

3620 PRINT"UNTERNIMMST, IST ES AUS.":G=1 <02B> 

3625 FOR X=1 TO 2500:NEXT X:RETURN <206> 

3630 GOSUB 3990:POKE V+21,0:IF K*=G*(37)TH 

EN 3655 <050> 

3635 PRINT"{CLR,2D0WN>DER GEHEIMNISVOLLE S 

HADOW HAT DIR” <059> 

3640 PRINT"SAEMTLICHE LEBENSENERGIE GENOMM 

EN. " <'194> 


3645 PRINT"UM DEINE LEBLOSE HUELLE WERDEN 

SICH DIE" <020> 

3650 PRINT"RATTEN KUEMMERN.":GOTO 55000 <205> 

3655 X0=0:FOR X=1 TO 4:IF TR*(X)=G*(37)THE 

N X0=X <188> 

3656 NEXT X:IF X0=0 THEN 3635 <209> 

3657 F2(XI,X2,X3)=F2(X1,X2,X3)-256:PRINT"< 

CLR,2D0WN>DU HAST DEN GEHEIMNISVOLLEN 

SHADOW" <014> 

3660 PRINT"VERNICHTET.“ ' <179> 

3661 PRINT"LEIDER IST DABEI DER “;G*(37>;" 

AUCH" <185> 

3662 PRINT"VERNICHTET WORDEN.":GOSUB 23200 

:FOR X=1 TO 3000:NEXT:RETURN <200> 

3670 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2D0 

WN >“:IF K*=G*(39)THEN 3685 < 034> 

3675 PRINT"DAS SCHRECKLICHE UNGEHEUER HAT 

DICH MIT" <189> 

3680 PRINT"HAUT UND HAAREN GEFRESSEN.":GOT 

O 55000 <246> 

3685 X0=0:FOR X=1 TO 4:IF TR*(X)=G*(39)THE 


N X0=X <226> 

3686 NEXT X:IF X0=0 THEN 3675 <111> 

3688 Fl(XI,X2,X3)=F1(XI,X2,X3)—8192 <019> 

3690 PRINT"DAS ";G*(39);" HAT DAS SCHRECKL 

ICHE" <254> 

3695 PRINT"UNGEHEUER VERNICHTET.":FOR X=1 

TO 2000:NEXT X:RETURN <175> 

3705 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2D0 

WN>":IF K*=G*(11)THEN 3725 <105> 

3710 PRINT"DER BLUTRUENSTIGE VAMPIR HAT DI 

CH GEBIS-";:PRINT"SEN...<DOWN>" <180> 

3715 PRINT"DA DU NUN EBENFALLS ZUM VAMPIR 

WIRST," <055> 

3720 PRINT"KANNST DU NICHT WEITERSPIELEN." 

:GOTO 55000 <228> 


3725 X0=0:FOR X=1 TO 4:IF TR*(X)=6*(11>THE 

N X0=X <230> 

3730 NEXT X:IF X0=0 THEN 3710 <170> 

3735 Fl(X1,X2,X3)=F1(X1,X2,X3)-1024:PRINT" 

DU HAST DEN VAMPIR GEPFAEHLT." <129> 

3740 PRINT-ER IST ZU STAUB ZERFALLEN.":FOR 

X=1 TO 2000:NEXT X:RETURN ' <115> 

3745 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2D0 

WN>":GOSUB 33000 <231> 

3750 IF(F1(XI,X2,X3>AND 256)=256 THEN 3815 <010> 

3755 IF(K*—G*(21)AND S=1)OR(K*=G*(37)AND S 

=2)OR(K*=G*(24)AND S=0)THEN 3775 <23B> 

3760 IF(F2(XI,X2,X3)AND 2)=2 THEN GOSUB 23 

100:RETURN <236> 

3761 PRINT"DIE WACHE HAT DICH GEFANGEN UND 

DICH" <143> 

3765 PRINT"IN DEN KERKER GEBRACHT.":X1=0:X 
2=1:X3=0:FOR X=1 TO 2000:NEXT X:A(0)= 

-1 <055> 

3770 RETURN <016> 



3775 PRINT"DIE WACHE HAT ES VORGEZOGEN, ZU 

VER—" <124> 

3780 PRINT"SCHWINDEN.":IF K*=G*(24)AND S=0 

THEN GOSUB 23400 <042> 

3781 IF K*=G*(37> AND S=2 THEN GOSUB 29100 <056> 

3782 FOR X=0 TO 3:IF(Fl(X,1,3)AND 128)=128 

THEN 3784 <203> 

3783 F1(X,1,3> =F1(X,1,3)+128 <155> 

3784 NEXT X:Fl(XI,X2,X3>=F1(XI,X2,X3>-128 <199> 

3785 IF X1=0 AND X2=l AND X3=0 THEN 3795 <151> 

3790 FOR X=1 TO 1500;NEXT X:RETURN <242> 

3795 PRINT"<DOWN>DU HAST DIE WACHE, DIE DI 

R UNTER UM-" <186> 

3800 PRINT"STAENDEN HAETTE HELFEN KOENNEN, 

VERJAGT."; <173> 

3805 PR INT "NUN MUSST DU BIS AN DEIN LEBENS 
ENDE IM":PRINT"KERKER BLEIBEN.":GOTO 
55000 <188> 

3815 IF K*=G*(37)AND S=2 THEN 3825 <179> 

3820 GOTO 3760 <012> 

3825 X0=0:FOR X=1 TO 4:IF TR*(X)=G*(37)THE 

N X0=X <102> 

3830 NEXT X:IF X0=0 THEN 3760 <174> 

3835 PRINT"DU HAST DIE WACHEN VERJAGT." <24B> 
3840 PRINT"DABEI IST ABER DER ";G*(37); M Z 

U" <164> 

3845 PRINT"STAUB ZERBROESELT.":GOSUB 23200 

:Fl(XI,X2,X3)=F1(XI,X2,X3)-384 <025> 

3850 FOR X=1 TO 3000:NEXT:RETURN <054> 

3860 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2D0 

WN>":IF K*=G*(23)THEN 3875 <159> 

3870 PRINT"DER WERWOLF HAT DICH ZERRISSEN. 

“:GOTO 55000 <163> 

3875 X0=0:FOR X=1 TO 4:IF TR*(X)=G*(23)THE 

N X0=X <136> 

3880 NEXT X:IF X0=0 THEN 3870 <01B> 

3885 PRINT"DU HAST DEN WERWOLF VERNICHTET. 

":PRINT"DABEI WURDE ABER AUCH DER ";G 

*(23) <085> 

3886 Fl(XI,X2,X3)=F1(XI,X2,X3)—2048 <029> 

3890 PRINT"ZERSTOERT.“:GOSUB 23200:FOR X=1 

TO 3000:NEXT:RETURN <220> 


3925 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2D0 

WN>“:IF K*=G*(23)THEN 3940 <024> 


3930 PRINT"LEIDER WAR DER GHOUL HUNGRIG, U 

ND HAT" <228> 

3935 PRINT"DICH SOMIT VERSPEIST.":GOTO 550 

00 <218> 

3940 X0=0:FOR X=1 TO 4:IF TR*(X>=G*(23)THE 

N X0=X <201> 

3945 NEXT X:IF X0=0 THEN 3930 <227> 

3950 PRINT"DU HAST DEN GHOUL GETOETET.":PR 
INT"LEIDER IST DABEI AUCH DER ";G*(23 
) < 002 > 

3952 PRINT"VERNICHTET WORDEN.":GOSUB 23200 

:F1(XI,X2,X3)=F1(XI,X2,X3)-4096 <102> 

3955 FOR X=1 TO 3000:NEXT:RETURN <159> 

3960 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2D0 

WN>":IF K*=G*(17)THEN 3970 <045> 

3965 PRINT"DER STEINERNE HAT DICH MIT EINE 

M SCHLAG“ <018> 

3967 PRINT"SEINER STEINERNEN FAUST ERSCHLA 

GEN.":GOTO 55000 <090> 

3970 X0=0:FOR X=1 TO 4:IF TR*(X)=G*(17)THE 

N X0=X <245> 

3972 NEXT X:IF X0=0 THEN 3965 <159> 

3975 PRINT"DIE ";G*(17);" HAT DEN STEINERN 

EN AUF-" <155> 

3977 PRINT"6EL0EST.":GOSUB 23200:F2(X1,X2, 

X3> =F2(XI,X2,X3)—128 <189> 

3980 FOR X=1 TO 3000:NEXT:RETURN <1B4> 

3990 INPUT"WOMIT";K*:X0=0:FOR X=1 TO 39:IF 

K*=G*(X)THEN X0=X <020> 

3995 NEXT X:IF X0=0 THEN 2350 <237> 

3999 RETURN <247> 

4000 POKE V+21,0:PRINT"<CLR,2D0WN>":IF K2* 

=G*(5)THEN 4040 <086> 

4010 IF K2*=G*(16)THEN 4090 <115> 

4020 IF K2*=G*(36)THEN 4190 <005> 

4030 FE=1:RETURN <069> 

4040 IF(F2(XI,X2,X3)AND 32)=32 THEN 4060 <224> 

4050 GOTO 4030 <044> 

4060 PRINT"DIE MUSIK HAT DIE SCHLANGEN BER 

UHIGT." <222> 

4070 PRINVSIE WERDEN DICH NICHT BEISSEN." 

:A(7)=—4:FOR X=1 TO 3000:NEXT:RETURN <174> 
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4090 

4100 

4101 

4102 

4110 

4120 

4130 

4140 

4190 

4200 

4210 

4211 

4212 

4220 

4221 

4230 

4500 

4510 

4520 

4530 

4540 


4550 

4570 

4580 

4590 

4600 

5000 

5010 

5020 

5040 

5050 

5060 

5070 

5080 

5500 


5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5601 

5602 
5610 

5620 

5630 

5640 

5650 

5660 

5700 


X0=0:FOR X=1 TO 4:IF TR*(X)=G*(16)THE 
N X0=X 

NEXT X:IF X0=0 THEN FE=1:RETURN 

IF XI=3 THEN FE=1:RETURN 

IF(F2(Xl+1,X2,X3)AND 16>=0 THEN FE-1: 

RETURN 

PRINT"DIE PEITSCHENSCHNUR HAT SICH AN 
EINEM" 

PRINT"BALKEN AN DER DECKE VERFANGEN. 
DU BIST" 

PRINT"DARAN NACH OBEN GEKLETTERT.X1 
=X1 + 1 

F2(X1,X2,X3)=F2(XI,X2,X3)—16:FOR X=1 
TO 3000sNEXT:RETURN 

X0=0:FOR X=1 TO 4:IF TR*<X)=G*<36)THE 
N X0=X 

NEXT X:IF X0=0 THEN FE=1:RETURN 
PRINT"UM DICH HERUM WIRD ALLES DUNKEL 

PRINT“EINE FREMDE MACHT REISST DICH F 
ORT. " 

PRINT"DU BIST ENTMATERIALISIERT.{DOWN 
>" 

PRINT"LEIDER HAT SICH DABEI DER ";G*< 
36):PRINT"IN RAUCH AUFGELOEST." 

X1=INT(RND(1> *3+0):X2=INT(RND <2> *4+0) 
s X3=INT(RND(3)*4+0):K=0 
FOR X=1 TO 5000:NEXT:GOSUB 23200:GOSU 
B 26000:RETURN 

POKE V+21,0:IF(F2(XI,X2,X3)AND 2)=2 A 
ND(F1<X1,X2,X3)AND 1281=128 THEN 4520 
FE=1:RETURN 

X0=0:FOR X=1 TO 4:IF TR*(X)=G*(B>THEN 
X0=X 

NEXT X:IF X0=0 THEN 4590 
PRINT"<CLR,2D0WN>DIE WACHE HAT DAS GO 
LD GENOMMEN UND HAT":PRINT"DICH FREIG 
ELASSEN. “ 

GOSUB 23200:K=0:IF X2=l THEN X3=l 

IF X2=4 THEN X2=3 

FOR X=1 TO 3000:NEXT X:RETURN 

PRINT"{CLR,2D0WN>DU HAST NICHTS, WOMI 

T DU DIE WACHE" 

PRINT"BESTECHEN KOENNTEST.":FOR X=1 T 
O 3000:NEXT:RETURN 

POKE V+21,0:PRINT"{CLR>“:IF K2*=G*<9> 
OR K2*=G*(121THEN 5020 
FE=1:RETURN 

X0=0:FOR X=1 TO 4:IF TR*(X)=G*(9)0R T 
R*(XI=G*(12)THEN X0=X 
NEXT:IF X0=0 THEN FE=1:RETURN 
IF K2*=G*(9)THEN E*="DIE "+G*(9):GOTO 
5070 

IF K2*=G*(121THEN E*="DEN "+G*<121 
GOSUB 23200:PRINT"{2D0WNJDU HAST ";E* 
WIE EIN TIER":PRINT"VERSCHLUNGEN." 
PRINT"C3DOWNJPFUI!!!":FOR X=1 TÖ 3000 
:NEXT:RETURN 

POKE V+21,0:PRINT"{CLR,2D0WN>":IF K2* 
=G*(13)AND(B2(XI,X2,X3)AND 2561=256 T 
HEN 5530 
FE=1:RETURN 

X0=0:FOR X=1 TO 4:IF TR*(X)=G*<15)THE 
N X0=X 

NEXT X:IF X0=0 THEN 5590 

PRINT"DU HAST DEN KOBOLD GEFANGEN, BE 

VOR ER" 

PRINT"VERSCHWINDEN KONNTE.":PRINT“DU 
HAST IHN ABER WIEDER FREIGELASSEN," 
PRINT"DA ER DIR GOLD GEGEBEN HAT.":B2 
(X1,X2,X3)=B2(X1,X2,X3)—256 
Bl(XI,X2,X31=B1(XI,X2,X3)+4:FOR X=1 T 
O 2000:NEXT X:GOSUB 5620:RETURN 
PRINT"DU HATTEST NICHTS, WOMIT DU DEN 
FLINKEN" 

PRINT"KOBOLD HAETTEST FANGEN KOENNEN. 

":PRINT"ER IST VERSCHWUNDEN." 

FOR X=1 TO 4:IF TR*(X1=G*(8)THEN GOSU 

B 5700 

NEXT 

B2(X1,X2,X3)=B2(XI,X2,X31—256:FOR X=1 
TO 2000:NEXT X:GOSUB 5620:RETURN 
IF X1=0 THEN B2 < 1,2,11 =B2 (1,2,11 +256 
IF Xl=l THEN B2(2,3,3)=B2(2,3,3)+256 
IF X1=2 THEN B2(3,3,2)=B2(3,3,2)+256 
IF X1=3 THEN B2(0,1,2)=B2(0,1,2)+256 
RETURN 

PRINT"{DOWN>LEIDER HAT ER DEIN GOLD M 


< 105> 

< 181 > 
< 180 > 

< 020 > 

<095> 

< 000 > 

<071 > 

< 153> 

<211 > 
<025> 

<240> 

<079> 

< 148> 
<016> 

< 134> 

< 106> 

<043> 
<041 > 

< 010 > 

<185> 

<046> 

<243> 

< 100 > 

< 010 > 

<189> 

< 177> 

<064> 

<033> 

<127> 

< 193> 

<250> 

<027> 


v 


IGENOMMEN.“:X0=X:GOSUB 23200:RETURN 
6000 POKE V+21,0:PRINT"{CLR,2D0WN>":IF K2* 
=G*(14)THEN 6020 
6010 FE=1:RETURN 

6020 X0=0:FOR X=1 TO 4:IF TR*(X)=G*(14)THE 
N X0=X 

6030 NEXT X:IF X0=0 THEN 6010 
6040 PRINT-LEIDER HAT SICH DIE KROETE IN K 
EINE" 

6050 PRINT"SCHOENE PRINZESSIN VERWANDELT." 
6060 PRINT"{DOWNJDAFUER HAT SIE DICH GEBIS 
SEN, UND DA ES" 

6070 PRINT"SICH UM EINE GIFTIGE ART HANDEL 
TE, HAST" 

6080 PRINT"DU DAS ZEITLICHE GESEGNET.":GOT 
O 55000 

6500 POKE V+21,0:PRINT"<CLR,2D0WN>":IF K2* 
=G*(27)THEN 6520 
6510 FE-1:RETURN 

6520 X0=0:FOR X=1 TO 4:IF TR*<X)=G*(27)THE 
N X0=X 

6530 NEXT X:IF X0=0 THEN 6510 
6540 PRINT"{4D0WN.8RIGHTJS ESAMOOPE 
R A":FOR X=1 TO 3000:NEXT X 
6550 PRINT"{CLR,2D0WNJDIE "5G*(27>;" IST Z 
U STAUB ZER—” 

6560 PRINT"FALLEN.“:GOSUB 23200:FOR X=1 TO 
3000:NEXT:RETURN 

7000 POKE V+21,0:PRINT"{CLR,2D0WN>DU TRAEG 
ST: ": X0=0: FOR X=1 TO 4: IF TR*(XX>""T 
HEN X0=X 

7010 NEXT X:IF X0=0 THEN PRINT TAB(13)"{D0 
WN>NICHTS":FOR X=1 TO 2000:NEXT X:RET 
URN 

7020 PRINT"{DOWN>":FOR X=1 TO 4:PRINT TAB( 
13)TR*(X):NEXT X 
7030 GET A*:IF A*=""THEN 7030 
7040 RETURN 

7500 POKE V+21,0:PRINT"{CLR>":X0=0:FOR X=1 
TO 4:IF TR* <X) = ""THEN X0=X 
7502 NEXT X:IF X0=0 THEN FE=1:RETURN 
7505 B1=B1(X1,X2,X3>:B2=B2(X1,X2,X3) 

IF K2*=G*(10)AND(B2 AND 1> = 1 THEN 233 
00 

7508 IF K2*=G*(21)AND(B2 AND 32)=32 THEN G 
OSUB 23500:GOTO 7780 

7509 IF K2*=G*(8)AND(Bl AND 4)=4 THEN 2950 
0 

7510 IF K2*=G*(37)AND(Bl AND 1)=1 THEN Bl= 
Bl—1:GOTO 7770 

7520 IF K2*=G*(5)AND(B1 AND 2)=2 THEN B1=B 
1-2:GOTO 7770 

7530 IF K2*=G*(8)AND(B1 AND 4>=4 THEN B1=B 
1-4:GOTO 7770 

7540 IF K2*=G*(12)AND(Bl AND 8)=8 THEN Bl= 


< 182> 
<204> 


< 193> 
<035> 

<017> 

< 187> 

< 212 > 

< 124> 
<245> 

< 116> 
<065> 


<245> 

<216> 

< 022 > 

<079> 
< 161 > 
<184> 
<170> 
<059> 
< 130> 


Bl-8:GOTO 7770 

7550 IF K2*=G*(3>AND(B1 AND 16)=16 THEN Bl 
= B1—16:GOTO 7770 

7560 IF K2*=G*(4)AND(Bl AND 32)=32 THEN Bl 
=B1—32:GOTO 7770 

7570 IF K2*=G*(17)AND(Bl AND 64)=64 THEN B 
1=B1-64:GOTO 7770 

7580 IF K2*=G*(14)AND(Bl AND 128)=128 THEN 
B1=B1—128:GOTO 7770 

7590 IF K2*=G*(27)AND(Bl AND 256)=256 THEN 
B1=B1-256:GOTO 7770 

7600 IF K2*=G*(24)AND(Bl AND 512)=512 THEN 
B1=B1—512:GOTO 7770 

7610 IF K2*=G*(9> AND(Bl AND 10241=1024 THE 
N B1=B1—1024:GOTO 7770 

7620 IF K2*=G*(15)AND(Bl AND 2048)=2048 TH 
EN B1=B1-2048:GOTO 7770 

7630 IF K2*=G*(33)AND(B1 AND 40961=4096 TH 
EN B1=B1-4096:GOTO 7770 

7640 IF K2*=G*(23)AND(Bl AND 8192)=8192 TH 
EN B1=B1-8192:GOTO 7770 

7650 IF K2*=G*(25)AND(B1 AND 163841=16384 
THEN B1=B1-16384:GOTO 7770 

7670 IF K2*=G*(39)AND(B2 AND 2)=2 THEN B2= 
B2—2:GOTO 7780 

7680 IF K2*=G*(38)AND(B2 AND 4)=4 THEN B2= 
B2—4:GOTO 7780 

7690 IF K2*=G*(18)AND(B2 AND 8)=8 THEN B2= 
B2—B:GOTO 7780 

7700 IF K2*=G*(11)AND(B2 AND 161=16 THEN B 
2=B2—16:GOTO 77B0 


<014> 

< 141 > 
<017> 

<251 > 
<096> 

<056> 

<044> 

< 134> 

<032> 

<218> 

< 212 > 

<009> 

<001 > 

< 168> 

<084 > 
< 116> 

< 155> 

<019> 

< 190> 

<072> 

< 158> 
<240> 

<238> 

<025> 

< 105> 

<065> 

< 122 > 

<213> 

<013> 

< 126> 
<216> 
<217> 

< 147> 
<082> 
<068> 
<252> 

< 156> 

< 133> 
< 202 > 

< 133> 
< 212 > 
<135> 
<233> 
<015> 

< 155> 

< 175> 
<025> 
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7710 IF K2*=G*(21)AND(B2 AND 2048)=2040 TH 

EN B2=B2—2048:GOTO 7780 <016> 

7720 IF K2*=G*(6>AND(B2 AND 64)=64 THEN B2 

=B2—64:GOTO 7780 <080> 

7730 IF K2*=G*(36)AND(B2 AND 128)=128 THEN 

B2=B2-128:GOTO 7780 <063> 

7740 IF K2*=G*(16>AND(B2 AND 512)=512 THEN 

B2=B2—512:GOTO 7780 <178> 

7750 IF K2*=G*(19>AND<B2 AND 1024)=1024 TH 

EN B2=B2-1024:GOTO 7780 <093> 

7760 FE=1:RETURN <245> 

7770 Bl(X1,X2,X3)=B1:TR*(X0)=K2*:RETURN <223> 

7780 B2(X1,X2,X3)=B2:TR*(X0)=K2*:RETURN <242> 

8000 POKE V+21,0:PRINT"<CLR,2D0WN>":IF K2* 

=G* (3) THEN 8040 < 082 > 

8010 IF K2*=G*(28)THEN 8190 <200> 

8030 FE=1:RETURN <005> 

8040 X0=0:FOR X=1 TO 4:IF TR*(X)=G*(3)THEN 

X0=X <220> 

8050 NEXT X:IF X0=0 THEN B030 <164> 

8055 TR*(X0>=.GOSUB 23200 <255> 

8060 IFtFl<X1,X2,X3)AND 12B)=128 THEN 8090 <249> 
8070 PRINT"DU HAST DIE FLASCHE GEOEFFNET:" 

:PRINT"LEIDER BEFAND SICH EIN FLASCHE 
NGEIST" <051> 

8080 PRINT-DARIN, DER DICH GEFRESSEN HAT." 

:GOTO 55000 <221> 

8090 PRINT"DU HAST DIE FLASCHE GEOEFFNET." 
:IF(F1(X1,X2,X3>AND 384)=384 THEN 815 
0 <005> 

8100 PRINT"IN DER FLASCHE BEFAND SICH EIN 

FLASCHEN-"; <009> 

8110 PRINT "GEIST, DER HERAUSKAM UND DIE WA 

CHE VER-":PRINT"JAGTE." <006> 

8120 PRINT"<DOWN>LEIDER HAT ER IMMER NOCH 

HUNGER, UND DU" <051> 

8130 PRINT"BIST DAS EINZIG ESSBARE WESEN I 
N DER":PRINT"UMGEBUNG.":FOR X=1 TO 50 
00:NEXT:A <11)=0 <246> 

8140 Bl(XI,X2,X3)=B1<X1,X2,X3)+32:Fl(XI,X2 

,X3)=F1(XI,X2,X3)—128:A(0)=0:RETURN <092> 
Bl50 PRINT"IN DER FLASCHE BEFAND SICH EIN 
GEIST,":PRINT"DER DIE WACHEN VERJAGTE 

<158> 

8160 PRINT"<DOWN>LEIDER HAT ER IMMER NOCH 

HUNGER, UND DU“ <091> 

8170 PRINT"BIST DAS EINZIG ESSBARE WESEN I 
N DER":PRINT“UMGEBUNG.":FOR X=1 TO 40 
00:NEXT:A(11)=0 <222> 

8180 Bl(XI,X2,X3)=B1(XI,X2,X3)+32:Fl(XI,X2 

,X3)=F1(XI,X2,X3)—384:A(0)=0:RETURN <128> 

8190 IF(F1(X1,X2,X3)AND 64>=64 AND TU=0 TH 
EN PRINT"DIE TUER IST VERSCHLOSSEN.": 

GOTO 8260 <206> 

8191 IF(F1(X1,X2,X3>AND 64)=64 AND TU=1 TH 
EN PRINT"0.K.":F1(X1,X2,X3> =F1(XI,X2, 

X3)-63:GOTO 8260 <082> 

8200 IF(F2(X1,X2,X3> AND 8)=8 THEN 22000 <225> 

8210 IF(F2(XI,X2,X3)AND 64>=64 THEN 8240 <001> 

B220 IF(F2(X1,X2,X3)AND 512)=512 THEN 8250 <085> 
8225 IF(F2(XI,X2,X3)AND 4096)=4096 THEN 82 

70 <064> 

8230 FE=1:RETURN <089> 

8240 PRINT"DU BIST IN DEN WASSERGRABEN GES 
TUERZT,":PRINT"UND ERTRUNKEN.":GOTO 5 
5000 <156> 

8250 PRINT"DIE TUER IST ZUGEMAUERT WORDEN. 

>• < 141 > 

8260 FOR X=1 TO 3000:NEXT X:RETURN <195> 

8270 PRINT"DIESE TUER FUEHRTE INS FREIE.": 

PRINT"LEIDER KAM GERADE EIN RUDEL HUN 
GRIGER“ <148> 

8271 PRINT"WOELFE VORBEI...":PRINT"<DOWN>D 
EIN ENDE WAR SCHRECKLICH.":GOTO 55000 <192> 

8500 POKE V+21,0:PRINT"<CLR,2D0WN>":IF K2* 

="SESAMOOPERA"THEN 8520 <206> 

8510 FE=1:RETURN <233> 

8520 IF(F2(XI,X2,X3)AND 1024)=1024 THEN 85 
50 

8525 IF(F1(XI,X2,X3)AND 64)=0 THEN 8510 <039> 

8530 PRINT"DER ZAUBERSPRUCH HAT DIE MAGISC 

HE SPERRE"; <165> 

8540 PRINT-DER TUER BESEITIGT.":TU=1:GOTO 

8260 <244> 

8550 PRINT"DURCH DEN MAGISCHEN SPRUCH HAT 

SICH EIN" <103> 

8560 PRINT"GEHEIMGANG GEOEFFNET.":F2(XI,X2 


. ,X3)=F2(XI,X2,X3)—1024 <251> 

8570 Fl(XI,X2,X3)=F1(XI,X2,X3)+1:GOTO 8260 <105> 
9000 POKE V+21,0:PRINT"tCLR,2D0WN}":IF K2* 

=G*(6)THEN 9050 <152> 

9020 IF K2*=G*(33)THEN 9070 <092> 

9025 IF K2*=G*(17)THEN 9110 <243> 

9030 IF K2*=G*(38)THEN 9090 <144> 

9040 FE=1:RETURN <255> 

9050 TR*=K2*:GOSUB 9400:IF G>0 THEN PRINT" 

DU BIST GEHEILT.":G=0:GOSUB 23200:GOT 
O 8260 <020> 

9070 TR*=K2*:GOSUB 9400:PRINT"DU BIST DURC 

H DEN WEIN EINGESCHLAFEN..“ <145> 

9071 FOR X=0 TO 11:IF A(X>>0 THEN 9430 <056> 

9072 NEXT <192> 

9080 GOSUB 23200:PRINT“DIE WACHE HAT DICH 

GEFUNDEN UND DICH":GOSUB 3765:RETURN <034> 
9090 TR*=K2*:GOSUB 9400:ZT=1:GOSUB 23200 <0B7> I 

9100 PRINT"DU FUEHLST DICH SEHR STARK.":FO 

R X=1 TO 2000:NEXT:RETURN <064> 

9110 TR*=K2*:GOSUB 9400:PRINT“DIE ";G*(17> 

;" SCHMECKTE AETZEND... " <U4> 

9120 PRINT"<DOWN>LEIDER HAT SICH DEIN MAGE 

N AUFGELOEST.”:GOTO 55000 <246> 

9400 X0=0:FOR X=1 TO 4:IF TR*(X)=TR*THEN X 

0=X <074> 

9410 NEXT X:IF X0=0 THEN 2350 <062> 

9420 RETURN <07B> 

9430 FOR X=1 TO 3000:NEXT:IF(F2(XI,X2,X3>A 

ND 2)=2 THEN 31000 <017> 

9435 IF(F2(XI,X2,X3)AND 32)=32 THEN 9450 <038> 

9440 RETURN <098> 

9450 PRINT"<CLR,2D0WN>DA DU EINGESCHLAFEN 

BIST, KONNTEN DICH" <026> 

9460 PRINT"DIE SCHLANGEN IN ALLER RUHE BEI 

SSEN...":GOTO 55000 <076> 

9500 POKE V+21,0:PRINT"<CLR>":X0=0:FOR X=1 

TO 39:IF G*(X)=K2*THEN X0=X <163> 

9510 NEXT X:IF X0=0 THEN FE=1:RETURN <001> , 

9512 IF X7=8 THEN FE=1:RETURN <163> 

9515 IF K2*=G*(9)AND(Fl(XI,X2,X3)AND 2048) 

=2048 THEN GOSUB 12700:RETURN <248> 

9^;- IF K2*=G*(33)AND(Bl(XI,X2,X3)AND 32)= 

32 THEN GOSUB 12800:RETURN <083> 

9520 B1=B1(X1,X2,X3):B2=B2(X1,X2,X3) <088> 

9521 IF K2*=G*(8)AND(Bl AND 4)=4 THEN B1=B 

j_4 <006> 

9522 IF K2*=6*(24)AND(Bl AND 512)=512 THEN 

B1=B1—512 <068> 

9523 IF K2*=G*(9)AND(Fl(X1,X2,X3>AND 16384 
>=16384 THEN GOSUB 9800:GOSUB 28100:G 

OTO 9660 <113> 

9525 IF K2*=G*(12)AND(Fl(XI,X2,X3> AND 1638 
4)=16384 THEN GOSUB 9800:GOSUB 28000: 

GOTO 9660 <015> 

9526 IF K2*=G*(8)AND(Fl(X1,X2,X3)AND 128)= 

128 THEN GOSUB 9800:GOSUB 32000:RETUR 

N <073> 

9527 IF K2*=G*(8)AND(B2 AND 256)=256 THEN 

GOSUB 9800:GOSUB 32020:RETURN <090> 

9530 IF K2*=G*(37)THEN GOSUB 9800:B1=B1+1: 

GOTO 9660 <114> 

9535 IF K2*=G*(5)THEN GOSUB 9800:Bl=Bl+2:G 

OTO 9660 <136> 

9540 IF K2*=G*(8)THEN GOSUB 9800:Bl=Bl+4:G 

OTO 9660 <157> 

9545 IF K2*=G*(12)THEN GOSUB 9800:B1=B1+8: 

GOTO 9660 <109> 

9550 IF K2*=G*(3)THEN GOSUB 9800:B1=B1+16: 

GOTO 9660 <155> 

9555 IF K2*=G*(4)THEN GOSUB 9800:Bl=Bl+32: 

GOTO 9660 <152> 

9560 IF K2*=G*(17)THEN GOSUB 9800:Bl=Bl+64 

:GOTO 9660 <168> 

9565 IF K2*=G*(14)THEN GOSUB 9800:B1=B1+12 

8:GOTO 9660 <200> 

9570 IF K2*=G*(27)THEN GOSUB 9800:Bl=Bl+25 

6:GOTO 9660 <229> 

9575 IF K2*=G*(24)THEN GOSUB 9800:B1=B1+51 

2:GOTO 9660 <126> 

9580 IF K2*=G*(9)THEN GOSUB 9800:B1=B1+102 

4:GOTO 9660 <204> 

9585 IF K2*=G*(15)THEN GOSUB 9B00:Bl=Bl+20 

48:GOTO 9660 <072> 

9590 IF K2*=G*(33)THEN GOSUB 9800:Bl=Bl+40 

96:GOTO 9660 <092> 
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9595 IF K2*=G*(23)THEN GOSUB 9800:B1=B1+B1 
92:GOTO 9660 

9600 IF K2*=G*(25)THEN GOSUB 9800:B1=B1+16 
384:GOTO 9660 

9610 IF K2*=G*(39)THEN GOSUB 9800:B2=B2+2: 
GOTO 9670 

9615 IF K2*=G*(38)THEN GOSUB 9800:B2=B2+4: 
GOTO 9670 

9620 IF K2*=G*(1B)THEN GOSUB 9800:B2=B2+8: 
GOTO 9670 

9625 IF K2*=G*(11>THEN GOSUB 9800:B2=B2+16 
:GOTO 9670 

9630 IF K2*=G*(21)THEN GOSUB 9800:B2=B2+20 
48:GOTO 9670 

9635 IF K2*=G*(6)THEN GOSUB 9B00:B2=B2+64: 
GOTO 9670 

9640 IF K2*=G*(36)THEN GOSUB 9800:B2=B2+12 
8:GOTO 9670 

9645 IF K2*=G*(16)THEN GOSUB 9800:B2=B2+51 
2:GOTO 9670 

9650 IF K2*=G*(19)THEN GOSUB 9800:B2=B2+10 
24:GOTO 9670 
9655 FE=1:RETURN 
9660 Bl<X1,X2,X3)=B1:RETURN 
9670 B2(XI,X2,X3> =B2:RETURN 
9800 X0=0:FOR X=1 TO 4:IF TR*(X>=K2*THEN X 
0=X 

9810 NEXT X:IF X0=0 THEN 2350 

9820 GOSUB 23200:RETURN 

9900 R*="MOEGLICHE RICHTUNGEN: " 

9910 IF(FG AND 1> =1 THEN R*=R*+"-N" 

9920 IF(FG AND 2)=2 THEN R*=R*+"-S" 

9930 IF (FG AND 4) =4 THEN R*=R*+"-W" 

9940 IF(FG AND 8)=8 THEN R*=R*+“-0" 

9950 IF(FG AND 16)=16 THEN R*=R*+"-H" 

9960 IF(FG AND 32)=32 THEN R*=R*+"-R" 

9970 R*=R*+ : PR I NT " THOME, 21 DOWN > " I *: PR IN 

T R*:RETURN 


<245> 

<216> 

< 119> 
<124> 

< 137> 
<215> 

< 126> 

<015> 

<078> 

<243> 

<041 > 
< 106> 

< 185> 
<204> 

< 139> 
< 210 > 
<099> 
<061 > 
<223> 

< 191 > 
<018> 

< 173> 
< 101 > 

< 190> 

< 107> 


10000 PRINT"CCLR}":FG=F1(XI,X2,X3):SYS 704 <010> 

10002 GOSUB 10700 <044> 

10003 IF(FG AND 64)=64 THEN GOSUB 10100 <040> 

10004 IF(F2(X1,X2,X3)AND 512)=512 THEN GOS 

UB 10100 <033>L 

10005 IF(FG AND 1)=1 THEN GOSUB 10100 <098> 

10006 IF <F2(XI,X2,X3)AND 64)=64 THEN GOSUB 

10300 <177> 

10007 IF(F2(X1,X2,X3)AND 4096)=4096 THEN G 

OSUB 10300 <052> 

10015 IF(FG AND 4>=4 THEN GOSUB 10200 <123> 

10020 IF<FG AND B)=8 THEN GOSUB 10300 <018> 

10025 IF(FG AND 16)=16 THEN GOSUB 10400 <1B7> 

10030 IF(FG AND 32>=32 THEN GOSUB 10500 <143> 

10040 RETURN <192> 

10100 FOR X=49678 TO 49690:POKE X,100:NEXT 

X:POKE 49678,76 <047> 

10110 S=0:POKE 49690,122:FOR X=1 TO 5:POKE 

49650-S,103:S=S+40:NEXT X <113> 

10120 FOR X=49451 TO 49453:POKE X,100:NEXT 

x <031> 

10130 S=0:FOR X=1 TO 5:POKE 49654-S,101:S= 

S+40:NEXT X <230> 

10140 POKE 49694,76:FOR X=49695 TO 49705:P 

OKE X,100:NEXT X:POKE 49705,122 <204> 

10150 RETURN <046> 

10200 POKE 49717,78:POKE 49756,78:POKE 498 

73,78:POKE 49912,78 <095> 

10210 S=0:FOR X=1 TO 13:P0KE 49833-S,103:S 

=S+40:NEXT X <070> 

10220 S=0:POKE 49354,77:POKE 49395,77:FOR 
X=1 TO 9:POKE 49435+S,103:S=S+40:NEX 
T X <213> 

10230 POKE 49755,122:POKE 49754,100 <191> 

10240 POKE 49435,80:POKE 49434,99 <009> 

10250 RETURN <148> 

10300 POKE 49746,77:POKE 49787,77:POKE 499 

10,77:POKE 49951,77 <167> 

10310 S=0:FOR X=1 TO 13:POKE 49870-S,101:S 
=S+40:NEXT X:POKE 49389,78:POKE 4942 
B,7B <145> 

10320 S=0:FOR X=1 TO 9:POKE 49468+S,101:S= 

S+40:NEXT X <206> 

10330 POKE 49788,76:POKE 49789,100:POKE 49 

468,79:POKE 49469,99 <110> 

10340 R=0:RETURN <127> 

10400 FOR X=49202 TD 49208:POKE X,100:NEXT 

x <055> 

10410 POKE 49242,77:POKE 49283,77:POKE 492 


48,78:POKE 49287,78 
10420 POKE 49243,77:POKE 49247,78 
10430 S=0:FOR X=1 TO 7:POKE 49244+S,93:POK 
E 49244+S+40,107:S=S+80:NEXT X 
10440 S=0:FOR X=1 TO 7:POKE 49246+S,93:POK 
E 49246+5+40,115:S=S+80:NEXT X 
10450 S=0:FOR X=1 TO 7:POKE 49245+S+40.67: 

S=S+80:NEXT X 
10460 RETURN 

10500 FOR X=49937 TO 49943:POKE X,99:NEXT 
X 

10510 POKE 49897,78:POKE 49858,78:POKE 499 
03,77:POKE 49862,77:POKE 49898,78:PO 
KE 49902,77 

10520 S=0:FOR X=1 TO 2:P0KE 49899-S,66:POK 
E 49B99-S-40,107:S=S+80:NEXT X 
10530 S=0:FOR X=1 TO 2:POKE 49901-S,66:POK 
E 49901—S—40,115:S=S+80:NEXT X 
10540 S=0:FOR X=1 TO 2:P0KE 49900-S-40,67: 

S=S+80:NEXT X 
10550 RETURN 

10700 S=0:FOR X=1 TO 6:POKE 49152+S,77:S=S 
+41:NEXT 

10702 S=0:FOR X=1 TO 6:P0KE 49191+S,78:S=S 
+39:NEXT X 

10704 FOR X=49398 TO 49425:P0KE X,99:NEXT 
X 

10710 S=0:FOR X=1 TO 8:P0KE 49398+S,101:S= 

S+40:NEXT X 

10715 S=0:FOR X=1 TO 8:POKE 49425+S,103:S= 

S+40:NEXT X:POKE 49398,79:POKE 49425 
,80 

10720 IF(FG AND 1> =1 THEN 10730 
10725 FOR X=49678 TO 49705:POKE X,100:NEXT 
X:POKE 49678,76:POKE 49705,122 
10730 IF(FG AND 4)=4 THEN 10740 
10735 S=0:FOR X=1 TO 6:POKE 49717+S,78:S=S 
+39:NEXT X 

10740 IF(FG AND 8)=8 THEN 10750 
10745 S=0:FOR X=1 TO 6:P0KE 49746+S,77:S=S 
+41:NEXT X 
10750 RETURN 

111.3? POKE V+21,0:FG=F1 (XI,X2,X3):F2=F2(XI 
,X2,X3):B1=B1(X1,X2,X3):B2=B2(X1,X2, 

X3) 

11001 POKE V+23,0:POKE V+29,0 

11005 I*="”:S7=50168:X7=0:M=0 

11010 IF(FG AND 64)=64 THEN I*=I*+" "+G*<2 
8 ) 

11020 IF(FG AND 128)=128 THEN I*=I*+" "+G* 

(31):M=20:F=0:GOSUB 11500:A(0)=A(0)+ 

1 

11030 IF(FG AND 256)=256 THEN M=20:F=0:GOS 
UB 11500 

11040 IF(FG AND 5121=512 THEN I*=I*+" “+G* 

(35):M=22:F=0:GOSUB 11530:GOTO 29000 

11050 IF(FG AND 10241=1024 THEN I*=I*+“ “+ 

G*(30):M=18:F=0:GOSUB 11530:A(2)=A(2 
>+l 

11060 IF(FG AND 20481=2048 THEN I*=I*+" “+ 

G*(34):M=24:F=0:GOSUB 11530:A(3)=A(3 
> + l 

11070 IF (FG AND 40961=4096 THEN I*=I*+" ■' + 

G*(7>:M=26:F=7:GOSUB 11500:A(4)=A(4) 

+ 1 

11080 IF(FG AND 81921=8192 THEN I*=I*+" "+ 

G*(29):M=33:F=5:GOSUB 11550:A(5)=A(5 
>+l 

11090 IF(FG AND 163841=16384 THEN I*=I*+" 

"+G*(1>:M=31:F=0:GOSUB 11500:A(6)=A( 

6 ) +1 

11100 IF(F2 AND 1> =1 THEN I*=I*+"KOBOLDHOE 
HLE"+" "+G*(8):M=29:F=7:GOSUB 11520: 

RETURN 

11110 IF(F2 AND 2)=2 THEN I*=I*+" "+"KERKE 
R":K=K+1:IF K=4 THEN 31000 

11120 IF(F2 AND 4)=4 THEN I*=I*+"SCHATZKAM 
MER"+" "+G*(8):M=29:F=7:GOSUB 11520: 

RETURN 

11130 IF(F2 AND 8)=8 THEN I*=I*+" "+G*(28> 

11140 IF(F2 AND 161=16 THEN X1=X1-1:GOSUB 
27000:GOTO 11005 

11150 IF(F2 AND 32)=32 THEN I*=I*+" "+G*(2 
0):M=32:F=0:GOSUB 11520:A(7)=A(7)+1 

11160 IF(F2 AND 64)=64 THEN I*=I*+" "+G*(2 

8> < 020 > 
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<033> 

< 189> 

<16B> 

< 121 > 

<251 > 
< 102 > 

<249> 

<072> 

< 141 > 

< 146> 

<066> 

< 194> 

< 164> 

< 189> 

< 169> 
<083> 


< 202 > 

< 174> 

<243> 

< 199> 

<236> 

<099> 

< 149> 

< 138> 


<083> 
< 103> 
<050> 

<032> 


<242> 

<095> 

<174> 

< 158> 

<005> 

<235> 

<237> 

<009> 

< 187> 
<226> 

<245> 

< 010 > 

< 163> 
<114> 
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11170 IFCF2 AND 128)=128 THEN I*=I*+" “+G* 

(26) :M=41:F=0:GOSUB 11530:A(8)=A(8)+ 

1 < 010 > 

11175 IF(F2 AND 256)=256 THEN I*=I*+" "+G* 

(22):M=37:F=1:GOSUB 11530:A(9)=A(9)+ 

1 <046> 

11180 IF(F2 AND 512)=512 THEN I*=I*+" "+G* 

(28) <152> 

11190 IF(F2 AND 2048)=2048 THEN I*=I*+" "+ 

G*(2):M=35:F=5:GOSUB 11500:A(10)=A(1 
0)+l <109> 

11200 IF(F2 AND 40961=4096 THEN I*=I*+" " + 

G*(28):RETURN <221> 

11210 IF(Bl AND 1)=1 THEN I*=I*+" "+G*(37) 

:M=36:F=11:GOSUB 11580 <165> 

11220 IF(Bl AND 2)=2 THEN I*=I*+" "+G*(5>: 

M=39:F=0:GOSUB 11500 <040> 

11230 IF(Bl AND 4)=4 THEN I*=I*+“ "+G*( 8 ): 

M=29:F=7:GOSUB 11500 <058> 

11240 IF(Bl AND 8)=8 THEN I*=I*+" "+G*(12> 

:M=40:F=7:GOSUB 11580 <017> 

11245 IF(Bl AND 16)=16 THEN I*=I*+" "+G*(3 

>: 11=30: F=l: GOSUB 11580 <174> 

11250 IF(Bl AND 32)=32 THEN I*=I*+" "+G*(4 

): 11=47: F=5: GOSUB 11500: A (11) =A (11)+1 <132> 
11260 IF(Bl AND 64)=64 THEN I*=I*+" "+G*(1 

7):M=46:F=0:GOSUB 11500 <041> 

11270 IF(Bl AND 1281=128 THEN I*=I*+" "+G* 

(14):M=44:F=5:GOSUB 11580 <105> 

11280 IF(Bl AND 256)=256 THEN I*=I*+" "+G* 

(27) : 11=58: F=ll: GOSUB 11580 <175> 

11290 IF(Bl AND 512)=512 THEN I*=I*+" "+G* 

(24):M=61:F=0:GOSUB 11500 <141> 

11300 IF(Bl AND 1024)=1024 THEN I*=I*+" "+ 

G*(9>:M=56:F=0:GOSUB 11500 <228> 

11310 IF(Bl AND 2048)=2048 THEN I*=I*+“ “+ 

G*(15):M=57:F=1:GOSUB 11500 <024> 

11320 IF(Bl AND 4096)=4096 THEN I*=I*+" ”+ 

G*(33):M=28:F=2:GOSUB 11500 <087> 

11330 IF(Bl AND 8192)=8192 THEN I*=IS+" "+ 

G*(23>:M=59:F=11:GOSUB 11500 <006> 

11340 IF(Bl AND 16384)=16384 THEN I*=I*+" 

“ +G* (25) : 11=49: F=7: GOSUB 11500 < 223> 

11345 IF(B2 AND 1)=1 THEN I*=I*+“ "+G*(10) 

:F=2:11=48: GOSUB 11580 <006> 

11350 IF(B2 AND 2)=2 THEN I*=I*+" "+G*(39) 

:M=50:F=1:GOSUB 11500 <150> 

11360 IF(B2 AND 4)=4 THEN I*=I*+“ "+GS(38) 

:M=60:F=0:GOSUB 11500 <223> 

11370 IF(B2 AND 8)=8 THEN I*=I*+" "+G*(18> 

:M=51:F=0:GOSUB 11500 <057> 

11380 IF(B2 AND 16)=16 THEN I*=I*+" "+G*(1 

1):M=54:F=0:GOSUB 11580 <071> 

11390 IF(B2 AND 32)=32 THEN I*=I*+" "+G*(2 

1):M=45:F=U: GOSUB 11500 <146> 

11400 IF(B2 AND 64)=64 THEN I*=I*+" "+G *(6 

>: 11=52: F=0: GOSUB 11500 <211> 

11410 IF(B2 AND 128)=128 THEN I*=I*+" "+G* 

(36):M=53:F=1:GOSUB 11580 <111> 

11420 IF(B2 AND 256)=256 THEN I*=!*+“ "+G$ 

(13): 11=21:F=0:GOSUB 11580 <204> 

11430 IF(B2 AND 512)=512 THEN I*=I*+" "+G* 

(16) : 11=43: F=0: GOSUB 11500 <113> 

11440 IF(B2 AND 1024)=1024 THEN I*=I*+" "+ 

G*(19):M=27:F=0:GOSUB 11500 <208> 

11445 IF(B2 AND 2048)=2048 THEN I*=I*+" "+ 

G*(21>:M=55:F=0:GOSUB 11500 <1B7> 

11450 RETURN <076> 

11500 POKE V+29,PEEK(V+29)+21X 7:POKE V+23, 

PEEK(V+29) <113> 

11501 POKE S7+X7,M+176:POKE V+21,PEEK(V+21 

)+2TX7:POKE V+39+X7,F:X7=X7+1:RETURN <197> 
11520 POKE V+29,0:POKE V+23,0:FOR ZZ=1 TO 

8 :GOSUB 11501:NEXT:RETURN <188> 

11530 POKE S7+X7,M+1+176:POKE S7+X7+1,11+17 

6 :POKE V+29,3:POKE V+23,3 <003> 

11531 POKE V+2,210:POKE V+3,185:POKE V,210 

:POKE V+1,148 <209> 

11535 POKE V+21,PEEK(V+21)+2TX7+2T(X7+1):P 

OKE V+39+X7,F:POKE V+39+X7+l,F <235> 

11540 POKE V+X7+2,PEEK(V+X7):POKE V+X7+3,P 

EEK(V+X7+1)-42:X7=X7+2:J1=1:RETURN <024> 

11550 POKE S7,t1+176: POKE S7+1 ,.M+1+176: POKE 
57+2,238:POKE S7+3,239:POKE V+23,25 
5:POKE V+29,255 <078> 

11560 POKE V+21,15: FOR X=0 TO 3: POKE V+39+ 

X,5:NEXT:POKE V+6,250:POKE V+7,167 <129> 

11570 POKE V+4,202:POKE V+5,167:POKE V+2,1 


□ 


54;POKE V+3,167:POKE V,154:POKE V+l, 

125:RETURN 

11580 GOSUB 11501:RETURN 

12000 X0=0:FOR X=0 TO 11:IF A(X)>0 THEN X0 
=X+1 

12010 NEXT X:IF X0=0 THEN RETURN 
12015 POKE V+21,0:PRINT"<CLR,2D0WN>" 

12020 ON X0 GOSUB 12900,3910,3710,3870,393 
0,3675,12500,3611,3965,3635,12600,35 
56 

12025 FOR X=0 TO 11:A(X)=0:NEXT:RETURN 
12500 PRINT"DER BAER HAT DICH GEFRESSEN.": 

GOTO 55000 

12600 X0=0:FOR X=1 TO 4:IF TR*(X)=G*(19)TH 
EN X0=X 

12610 NEXT:IF X0=0 THEN 3550 
12620 GOSUB 3547:RETURN 

12700 X0=0:FOR X=1 TO 4:IF TR*(X)=K2*THEN 
X0=X 

12710 NEXT:IF X0=0 THEN RETURN 
12720 PRINT"C2D0WNJDER ";G*(34)j" HAT DIE 
";G*(9) ; " GE-” 

12730 PRINT"FRESSEN. EINSTWEILEN IST ER SA 
TT.":PRINT“ER WIRD DICH NICHT BEHELL 
IGEN." 

12740 TR*(X0)..FOR X=1 TO 4:IF TR*(X>="" 

THEN TR*(X)=TR*(X+l) 

12750 NEXT:A(3)=-4:FOR X=1 TO 3000:NEXT:RE 
TURN 

12800 X0=0:FOR X=1 TO 4:IF TR*(X)=K2*THEN 
X0=X 

12810 NEXT:IF X0=0 THEN RETURN 
12820 PRINT"DER FLASCHENGEIST HAT DEN WEIN 
GEROCHEN," 

12830 PR INT "UND IST IN DER FLASCHE VERSCHW 
UNDEN." 

12840 PRINT"ER IST ZUM WEINGEIST GEWORDEN. 

GOSUB 23200 

12850 PRINT"{2D0WNJNUN IST ER IN ASBACH UR 
ALT ANZUFINDEN!" 

12860 Bl(XI,X2,X3)=B1(X1,X2,X3)-32:A(11)=- 
1:FOR X=1 TO 4000:NEXT:RETURN 
12723 IF(X1=0 AND X2=l AND X3=1)OR(X1=0 AN 
D X2=3 AND X3=3)THEN A(0)=0:RETURN 
12910 GOSUB 3760:RETURN 

13000 POKE V+21,0:PRINT"<CLR,2D0WNJ":IF K2 
*=G*(18)THEN 13025 
13010 IF K2*=G*(25)THEN 13050 
13015 IF K2*=G*(28)THEN 13100 
13020 FE=1:RETURN 

13025 X0=0:FOR X=1 TO 4:IF TR*(X)=G*(18)TH 
EN X0=X 

13026 NEXT X:IF X0=0 THEN FE=1:RETURN 

13027 GOSUB 23200 

13030 PRINT"DU HAST DEN “;G*(18>;" ZERSCHL 
AGEN.":B2(X1,X2,X3>=B2(X1,X2,X3> +16 
13040 FOR X=1 TO 3000:NEXT X:RETURN 
13050 X0=0:FOR X=1 TO 4:IF TR*(X)=G*(25)TH 
EN X0=X 

13060 NEXT X:IF X0=0 THEN FE=1:RETURN 
13070 PRINT"DU HAST DEN ";G*(25);" ZERSCHL 
AGEN.“ 

13080 GOSUB 23200:FOR X=1 TO 3000:NEXT:RET 
URN 

13100 IF ZT=0 THEN PRINT"DAZU FEHLT DIR LE 

IDER DIE NOETIGE KRAFT." 5 :GOTO 13080 <217> 
13110 PRINT"DANK DEINER STAERKE KONNTEST D 
U DIE":PRINT"MAUER ZERSCHLAGEN." 

13120 F2(X1,X2,X3)=F2(XI,X2,X3)—512:F1(XI, 

X2,X3> =F1(X1,X2,X3) + 1:GOTO 13080 
15000 POKE V+21,0:PRINT"<CLR,2D0WN>DER MAG 
ISCHE BLITZ DES ZAUBERES IST VON“ 

15010 PRINT"DEINEM ";G*(25>;" ABGEPRALLT, 

UND HAT DEN" 

15020 PRINT"ZAUBERER SELBER GETROFFEN.“:PR 
INT"<DOWN>EIN FUERCHTERLICHER SCHREI 
, EINE GRELLE" 

15030 PRINT"LICHE XPLOSION...":PRINT"t2D0WN 
>DER ZAUBERER IST VERNICHTET!!!" 

15040 Fl(X1,X2,X3)=F1(XI,X2,X3)-512 
15050 FOR X=1 TO 8000:NEXT: GOTO 2250 
20000 POKE V+21,0:POKE 887,9:SYS 828:PRINT 
"<CLR,BLACK,2D0WN>DURCH DAS ZERSCHLA 
GEN DER FLASCHE HAST" 

20010 PRINT"DU EINE MAGISCHE KETTENREAKTIO 
N AUSGE-" 


< 126> 
<009> 

<154> 
< 120 > 
< 120 > 


<068> 

<003> 

< 121 > 

<247 > 
<244> 
<206 > 

<245> 
< 196> 

< 200 > 


<079> 

<248> 

< 117> 

<091 > 
<042> 

< 130> 
<094> 

< 133> 

< 163> 
<051 > 

<041 > 

< 145> 

< 182> 
<094> 

< 114> 

< 169> 

< 158> 
<215> 

< 171 > 

<244> 

<088> 

< 173> 
<251 > 

<231 > 

< 160> 


< 167> 


<053> 


<225> 


< 102 > 


<059> 

<042> 
< 184> 

<003> 


< 153> 


<079> 
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20020 PR INT" LOEST. •• 

20030 PRINT"EIN WIRBELWIND ERGREIFT DICH U 
ND TRAEGT" 

PRINT"DICH FORT." 

PRINT“(4D0WN,5RIGHT JMOEGE DIE MACHT 
MIT DIR SEIN.GOTO 2100 
PQKE V,255:P0KE V+l,165:POKE V+2,205 
:POKE V+3,165:POKE V+4,155:POKE V+5, 
165 ’ 

POKE V+6,105:POKE V+7,165sPOKE V+B,5 
5:POKE V+9,165:POKE V+10,230:POKE V+ 
11,170 

POKE V+12,180:POKE V+13,170:POKE V+l 
4,130:POKE V+15,170:RETURN 
POKE V+21,0:PRINT"{CLR,BLACK>":GOSUB 
25000:FOR X=1 TO 40:PRINT"{RVSON,SP 
ACE >";:NEXT:PRINT"fRVOFF,DOWN >DU BIS 
T IM FREIEN." 

FOR X=0 TO 4000:NEXT 

PRINT"DICHTE NEBEL UMWALLEN DAS SCHL 
OSS," 

FOR X=1 TO 1000:POKE 49152+INT(RND<1 
)*799+0),102:NEXT 

PRINT"DIE DAS ALTE GEMAEUER ZERFRESS 
EN UND IN"SPRINT"RAUCH AUFLOESEN." 
FOR X=1 TO 1000:POKE 49152+INT(RND(1 
>*799+0),32:NEXT:FOR X=1 TO 1000:NEX 
T:PRINT"{CLR,2D0WN >" 

PRINT"{RVOFFJDAS ADVENTURE IST GELOE 
ST. '• 

PRINT"<2D0WN>DU HAST DEIN VOLK GERET 
TET UND HAST" 

PRINT"DICH ALS WAHRER KOENIG ERWIESE 
N. " 

PRINT”(2D0WNJES WURDEN"ZA"SCHRITTE B 
ENOETIGT.“:END 

POKE V+21,0:PRINT"<CLR,2D0WNJDAS SCH 
LANGENGIFT HAT DICH GETOETET.”:GOTO 
55000 

IF K1*< >"BEKAEMPFE"THEN RETURN 
PRINT"VORSICHT!":PRINT"DIE WACHE IST 
SEHR SCHLECHT GELAUNT." 

PRINT"WENN DU SIE WEITER SO AERGERST 
, WAERE ES”; 

PRINT"MOEGLICH, DASS DU IN DER FOLTE 
RKAMMER":PRINT"LANDEST." 

FOR X=1 TO 4000:NEXT:RETURN 

TR*(X0>=.FOR X=1 TO 3:FOR Y=X+1 TO 

4:IF TR*(X> >TR*(Y)THEN 23220 
V*=TR*(X>:TR*(X)=TR*<Y>:TR*(Y)=V* 
NEXT Y:NEXT X:GOSUB 23600:RETURN 
PRINT"<2D0WN>DIE MAGISCHEN KRAEFTE D 
ES FLAMMENDEN" 

PRINT G*(10);:PRINT"S HABEN DICH VER 
NICHTET.":GOTO 55000 

PRINT"<DOWN>LEIDER ZERBRACH DABEI AU 
CH DER “;G*(24);".":GOSUB 23200:RETU 
RN 

IF ZT>0 THEN 23540 

PRINT"{2DOWNJDAS ";G*<21>:" STECKT Z 
U TIEF.“:K2*="" 

PRINT"DU BIST ZU SCHWACH, UM ES RAUS 
ZUZIEHEN.":FOR X=1 TO 3000:NEXT:RETU 
RN 

B2=B2—32:PRINT"DANK DEINER STAERKE K 
ONNTEST DU DAS" 

PRINT G*(21);:PRINT" HERAUSZIEHEN.": 
FOR X=1 TO 2500:NEXT:RETURN 
FOR X=1 TO 3:FOR Y=X+1 TO 4: IF TR*(X 
)=TR*(Y> THEN TR*(Y>="" 

NEXT:NEXT:RETURN 

POKE V+21,0:PRINT"<CLR,2D0WN>DIE WIR 
KUNG DES ZAUBERTRANKS HAT NACHGE-":P 
RINT"LASSEN." 

PRINT"DU BIST WIEDER SCHWACH.":FOR X 
=1 TO 3000:NEXT:RETURN 
PRINT"{HOME,5D0WN J","{SPACE,RVSON >£¥ 

",{LEFT,RVSON}£1f":PRINT,"{RVSON>£{ 
2SPACEJ¥"SPC(14)"£{2SPACE>¥" 

PRINT, " {RVSON>TT{2SPACE>T" SPC <14 >" {RV 

S 0 N>-iT{ 2 SPACE>r" 

PRINT," {RVSON>TT Tf-SPC(14) " {RVSON Vg 


20040 

20050 

21000 


21010 

21020 

22000 

22005 

22010 

22020 

22030 

22040 

22050 

22055 

22056 
22060 
23000 

23100 

23105 

23110 

23120 

23130 

23200 

23210 

23220 

23300 

23310 

23400 


23500 

23510 

23520 


23540 

23550 

23600 

23610 

24000 

24010 

25000 

.25010 

25020 

25030 

25035 

25040 
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<038> 

< 145> 

< 177> 

<053> 


< 144 > 

< 122 > 

< 077 > 

< 102 > 

< 036 > 

<211 > 

< 156 > 
< 243 > 

< 130 > 

< 146 > 

< 118 > 
< 166 > 

< 107 > 

< 105 > 

< 156 > 

< 109 > 

< 185 > 

< 102 > 

< 157 > 

< 090 > 

< 064 > 

< 174 > 

< 118 > 

< 156 > 

< 122 > 
< 236 > 

< 154 > 

< 146 > 

< 212 > 

< 013 > 

< 218 > 

< 223 > 

< 013 > 

< 018 > 


•ST" 
PRINT,' 
KT" 

PRINT, 1 

PRINT, 


{RVSONIT TCSPC (14) " {RVSONJIf 
{RVSON >T(-{2SPACE >T{RVOFF J1FÖFB 

’S?" {RVSON >Tr{2SPACE >r" 

{RVSON > , ü , {20SPACE >r" 


< 199> 
<090> 

< 198> 
<208> 

< 145> 
<162> 


25045 PRINT," {RVSON >Tf {20SPACE >r" 

25050 PRINT, " {RVSON JTTI20SPACE>T" 

{RVSON >Tf{20SPACE >T" 

{RVSON >Tf{9SPACE Jf{R IGHT >Tf {BSP 


25055 PRINT, 
25060 PRINT, 
ACEJT" 
25065 PRINT, 
ACE>T" 
25070 PRINT, 


< 167> 

< 172> 

< 177> 


1 (RVSON > TT {9SPACE >T" {RI GHT > IT {8SP 


<223> 


. (RVSON >Tr{9SPACE >f{R I GHT >Tf{ 8 SP 
ACEJV":FOR X=1 TO 40:PRINT"{RVSON,SP 
ACE>";:NEXT X:RETURN 

26000 FOR X=0 TO 11:IF A<X)>0 THEN A(X)=0 
26010 NEXT:RETURN 

27000 POKE V+21,0:PRINT"{CLR,2D0WNJDU BIST 
AUF EINE FALLTUER GETRETEN." 

27010 PRINT"ZUM GLUECK HAST DU DEN STURZ G 
UT UEBER-":PRINT"STANDEN." 

27020 FG=F1< X1,X2,X3):F2=F2 <X1,X2,X3):FOR 
X=1 TO 3000:NEXT:RETURN 
28000 PRINT"(2D0WN>DER BAER HAT SICH UEBER 
DEN HONIG HER-":PRINT"GEMACHT.“:GOS 
UB 23200 

28010 PRINT-ER IST ZU SEHR MIT DEM HONIG B 
ESCHAEF-" 

28020 PRINT"TIGT, ALS DASS DU FUER IHN INT 
ERESSANT":PRINT“WAERST.":A (6 >=-5 
28030 FOR X=1 TO 3500:NEXT:RETURN 
28100 PRINT"(2D0WNJDER BAER HAT DIE ";G*<9 

28110 PRINT"GEFRESSEN.“:PRINT"(DOWNJEINSTW 
EILEN IST ER SATT.":A( 6 )=-3:GOTO 280 
30 

29000 GOSUB 10000:GOSUB 9900 

29001 FOR X=1 TO 5000:NEXT:X0=0:FOR X=1 TO 
4: IF TR* (X) =G* <25) THEN X0=X 

29010 NEXT: IF X0=0 THEN 29030 
29020 GOTO 15000 

29030 POKE V+21,0:PRINT"(CLR,2DOWNJDER ZAU 
BERER HAT DICH MIT EINEM" 

29040 PRINT"MAGISCHEN BLITZ GETOETET.":GOT 
O 55000 

29100 PRINT”(DOWN>DABEI IST ABER DER ";G*( 

37);" ZU" 

29i.T PRINT"STAUB ZERBROESELT.“:GOSUB 2320 
0:RETURN 

29500 IF(F2(X1,X2,X3)AND 1)=1 0R<F2<X1,X2, 

X3)AND 4)=4 THEN 29520 
29510 GOTO 7510 
29520 GOTO 7770 

30000 PRINT"{HOME,15D0WN,10RIGHT>";:PRINT" 

T+#": PRINT“ {10RIGHT>*%&" 

30010 PRINT"{10RIGHTJ - ()":J1=0:PRINT"(HOME 
,17D0WN,18RIGHTJ"; 

30020 PRINT" t*-#": PRINT" {1BRIGHT>*7.&": PRINT 
"(18RIGHTJ‘<)":RETURN 

31000 POKE V+21,0:POKE 50168,240:POKE 5016 
9,241:POKE 50170,242:POKE V+21,7:P0K 
E V+29,7:POKE V+23,7 

31010 POKE V+2,150:POKE V+3,165:POKE V,150 
:POKE V+l,123:POKE V+4,198:POKE V+5, 

165 

31020 POKE V+39,0:POKE V+40,0:POKE V+41,0 
31030 PRINT"{CLR,DOWNJDIE WACHE HAT DICH D 
EM HENKER UEBERGE-":PRINT"BEN.":GOTO 
55000 

32000 POKE V+21,0:PRINT"(CLR,2D0WNJDIE WAC 
HE HAT SICH DAS GOLD UNTER DEN" 

32010 PRINT"NAGEL GERISSEN.":GOSUB 26000:F 
OR X=1 TO 3000:NEXT:RETURN 
32020 POKE V+21,0:PRINT"(CLR,2D0WN J DER KOB 
OLD HAT DAS GOLD AN SICH GENOM-" 

32030 PRINT"MEN.":GOSUB 26000:FOR X=1 TO 3 
000:NEXT:RETURN 

33000 X0=0:FOR X=1 TO 4:IF TR*<X>=G*<21>AN 
D K*=G*(21)THEN X0=X:S=1 
33010 NEXT: IF X0O0 THEN RETURN 
33020 X0=0:FOR X=1 TO 4:IF TR*(X)=G*(24)AN 
D K*=G*(24)THEN X0=X:S=0 
33030 NEXT: IF X0O0 THEN RETURN 
33040 X0=0:FOR X=1 TO 4:IF TR*(X)=G*(37)AN 
D K*=G*(37>THEN X0=X:S=2 
33050 NEXT: IF X0O0 THEN RETURN 
33060 GOTO 2350 

55000 PRINT"(3D0WNJS0 SCHNELL KANN EIN ABE 
NTEUER ENDEN.":END 

Listing 2. Hauptprogramm »Zauberschloß II« (Schluß). 
Verwenden Sie zur Eingabe bitte nur den Checksummer 
in diesem Heft. 


<228> 


<096> 
<211 > 
<039> 

< 157> 
<083> 

< 143> 


< 164> 
< 212 > 

< 140> 
<107> 

<231 > 


<006> 
<033 > 

<065> 

< 1B8> 

< 106> 

< 185> 
<250> 
<061 > 
<064> 

<09B> 

< 144> 

< 122 > 

< 220 > 

<095> 

<243> 


< 144> 


<073> 

<030> 


<083> 

<009> 

<078> 

< 115> 

<093> 

<086> 

<153> 

< 102 > 

< 175> 

<066> 

< 195> 

< 195> 

<086> 


□30? 
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Abenteuerspiele 


Buch 

der Weisheit 


Dieses Textadventure nimmt eine Sonderstellung ein. Es 
wurde uns von seinem Autor unentgeltlich zur Verfügung 
gestellt. Wir sollten dieses Programm einer Leserservice- 
Diskette beifügen, um anderen Lesern unseres Magazins 
eine Freude zu machen. 

Natürlich erhält der Autor vom 64'er-Magazin ein angemes¬ 
senes Honorar. Allerdings ist das Adventure »Buch der Weis¬ 
heit« nur auf der Leserservice-Diskette dieser Ausgabe ent¬ 
halten. 

Programmbeschreibung 

Sie werden beauftragt, das Buch der Weisheit zu finden und 
es zu den Zwergen zu bringen. Bis Sie diese Aufgabe erfüllt 
haben, liegt ein langer Weg vor Ihnen. Das Adventure spielt 
auf drei Ebenen mit insgesamt über 100 Räumen. Von Ebene 
zu Ebene kommt man jeweils nur durch einen Trick, der hier 
nicht verraten werden soll. Der Raum, in den man dann 
gelangt, wird durch einen Zufallsgenerator bestimmt. 

Die Befehle werden als Zwei-Wort-Befehle eingegeben. 
Eine genauere Beschreibung finden Sie am Anfang des Pro¬ 
grammes. 

(rg) 


Dark Tower — 
Abenteuer im 
Dreistromland 

Das Abenteuerspiel Dark Tower ist ein 
deutschsprachiges Adventure mit der 
Aufgabenstellung, das landschaftlich 
so schöne Dreistromland von der 
Schreckensherrschaft des Bösen zu 
befreien und damit die geknechtete 
Bevölkerung zu erlösen. 

Der Computer braucht geraume Zeit, bis er sich nach dem 
Einlesen der Daten mit der Spielanleitung meldet. Durch 
Tastendruck gelangt man über die Spielanleitung zur Frage, 
ob man ein begonnenes Abenteuer weiterspielen oder lieber 
ein neues beginnen möchte. Gibt man ein A ein, so kann man 
zwischen Kassette und Diskette als Speichermedium wählen 
und das bereits begonnene Programm wird geladen; gibt man 
ein N ein, so beginnt man ein neues Spiel. Der Bildschirm ist 
folgendermaßen aufgebaut: 

Links oben befindet sich ein Ausschnitt einer Landkarte, in 
dem die eigene Position durch ein weißes Rechteck gekenn¬ 


zeichnetwird. Rechts oben befindet sich die Anzeigentafel, in 
der fast alle Angaben und Anmerkungen des Computers 
erscheinen. Unten ist das Feld für die Kommandoeingabe, 
kombiniert mit einer weiteren Anzeigetafel, in der jedoch nur 
längere Texte eingeblendet werden. 



20 

Ausschalten der STOP-Taste und des Bildschirms 
Schreiben und aktivieren des Maschinenpro¬ 
gramms zur Verschiebung des Zeichensatzes 

30 - 

50 

DATA-Zeilen für Maschinenprogramm 


100 

Verschieben des Zeichensatzes, Setzen der 

Farben und der Lage des Bildschirmspeichers 


230 

Lesen des neuen Zeichensatzes 

240 - 

580 

DATA-Zeilen für Zeichensatz 

600 - 

990 

Einlesen des Sprites, DATA-Zeilen für Spritedaten 
und Definition des Sprite 

1000 - 

1090 

Lesen der Landschaftselemente 

1091 - 

1096 

Lesen von möglichen Reaktionen 

1100 - 

1350 

Lesen der Landkarte, DATA-Zeilen für Landkarte 

1400 - 

1440 

Lesen von Gegenständen und Zaubersprüchen, 
DATA-Zeilen 

1500 - 

1690 

Lesen von Labyrinthdaten, DATA-Zeilen für 
Labyrinthdaten 

2000 - 

2600 

Spielanleitung 

2605 - 

2800 

Einlesen von vorangegangenen Spielen von 

Diskette oder Kassette 


3000 

Anfangsbedingungen 

3500 - 

3800 

Zeichnen der Räume des Labyrinths und des 
dunklen Turms 

3810 - 

4220 

Befehlsverarbeitung im Labyrinth 

20000 - 

20410 

Ausgabe der Landschaft 

20412 - 

24000 

Befehlsverarbeitung im Dreistromland 

25000 - 

25290 

Einleitung und Daten für den dunklen Turm 

25300 - 

26050 

Befehlsverarbeitung im dunklen Turm 

261 QO . 

40270 

Spielende in verschiedenen Versionen 

4Ö3Uu - 

40640 

Kommentare zu verschiedenen Spielsituationen 


Programmbeschreibung von »Dark Tower« 


Variable 

K.I 

A,P 

CG 

VC 

A$(12),B$(12) 

L(38,38) 

C$(7), D$(7) 
H(17,12) 

T(3,4,4) 

K$ 

G$ 

X, Y,XX,YY 
VE 

ZB,HB,HA,EI 

KR 

GE 

RI 

T$,DO$ 

E$ 

PX.PY 

J$ 

L 

C 

TX,TY,S 

Kl 

TT$ 

R$ 

FO,AU,LO,AN,AT, 

BE, TC,EB,IR,FO, 
DD,TD,HO,OH,U, 
FT 


Bedeutung 

Lautvariablen 

Zwischenspeicher 

Lage des neuen Zeichensatzes 

VIC-Adresse 

Landschaftselemente und Bezeichnungen 

Daten für Landschaft 

Ausrüstung 

Räume des Labyrinths 

Räume im Turm 

Kommando 

Zeichen bei GET 

Koordinaten 

Verpflegung 

Flags für Gegenstände 

Kraftanteil 

Anzahl der Goldstücke 
Anzahl der Ringe 
Zwischen- und Endzeit 
HOME oder CLR 
Koordinaten im Labyrinth 
Ausgabe von Reaktionen 
Momentanes Landschaftselement 
Kampfstärke 
Koordinaten im Turm 
Stockwerk mit gefüllter Kiste 
Kassette oder Diskette 

Mögliche Richtungen im Labyrinth und im Turm 
Flags für Ereignisse 


Variablenliste von »Dark Tower« 
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Mit den Tasten N, S, W und O kann man sich nun im Drei¬ 
stromland bewegen und dabei seine Reise auf der Landkarte 
verfolgen, wobei zum Beispiel Siedlungen durch eine Hütte 
und Wälder durch einzelne Bäume dargestellt werden. Vor¬ 
sicht ist immer geboten, besonders bei jeglicher Art von 
Gewässer, denn die Fähigkeit zu schwimmen ist durchaus 
nicht selbstverständlich. Sie kann jedoch durch einen Zau¬ 
berspruch erworben werden. 

Überhaupt spielen in dem Adventure Dark Tower Zauber¬ 
sprüche eine große Rolle; doch man muß lernen, zwischen 
Gut und Böse zu unterscheiden, denn der Gebrauch von 
bösen Zaubersprüchen kann bisweilen auch schlimme Fol¬ 
gen mit sich bringen und sämtliche vorangegangenen guten 
Taten zunichte machen. 

(Robert Valentiner / rg) 

20 POKE 53265,ll:FOR K=828 TO B75:READ A:P 
OKE K,AsNEXT:POKE 785,60:POKE 7B6,3:P0K 
E 788,52 

30 DATA 165,20,72,165,21,72,32,247,183,165 
,1,72,165,21,201,208,144,7,201,224,176 
40 DATA 3,169,49,44,169,52,120,133,1,160,, 
177,20,168,104,133,1,BB,104,133,21,104 
50 DATA 133,20,76,162,179 

100 FOR K=13*4096 TO 14*4096-1:POKE K+4096 
,USR<K>:NEXT:POKE 53272,24:POKE 56576, 

148:POKE 648,196 

230 CG=5836B:P=36:FOR K=CG TO CG+8*P-1:REA 
D AsPOKE K,A:NEXT 

240 DATA 227,127,156,197,127,156,227,127,2 
31, 25,254,231, 25,254,231, 25 
260 DATA 156,227,127,156,227,127,156,227,2 
54,231, 25,254,231, 25,254,231 
280 DATA 187,119,238,221,187,119,238,221, 

1, 3, 6, 12, 31, 63,127,255 

300 DATA ,128,192, 96,240,248,252,254,1 

27,127, 70, 70, 70, 71, 71, 71 
320 DATA 252,252,100,100,100,252,252,252,1 
60,224,224,160,224,160,224,160 
340 DATA 10, 14, 14, 10, 14, 10, 14, 10,2 

34.255.255.254.252.252.252.252 
360 DATA 174,254,254,126, 62, 62, 62, 62, 

1, 3, 3, 7, 15, 15, 31, 31 

380 DATA , ,128,192,128,224,240,240, 

63, 31,127, 63, 15, 3, 3, 3 

400 DATA 248,240,252,248,224, , , , 

13, 15, 31, 15, 9, 9, 9, 15 

420 DATA 176,240,248,240,144,144,144,240, 

15, 15, 31, 62, 60, 60, 60, 60 
440 DATA 240,240,248,124, 60, 60, 60, 60,2 
55,255,255,255,255,255,255,255 
460 DATA , 64, 4, , 32, 2, , 8, 

3, 15, 3, 3, 1, 31, 23, 23 

480 DATA 128,226,130,130, 2,242,210,210, 

1 7 f 3, 7, 61 6| 6 j 30 

500 DATA 222,194,130,194,194,194,194,242, 

1, 7, 4, 71, 99, 49, 31, 1 

520 DATA 192,240,144,241, 99,198,252,192, 

71,125, 1, 7, 28,112, , 

540 DATA 241,223,192,240,156,135,128, ,2 

55.255.255.255.254.252.248.252 
560 DATA 255,255,255,255,207, 7, 3, 3,2 

48,240,240,224,240,240,224,224 

580 ™ta.. 

3, 1, 3, 3, 1, 1, 1, 

600 FOR K=0 TO 62sREAD AsPOKE K+49152,A:NE 
XT 

610 DATA 255,255,192,128,,64,128,,64 
620 DATA 128,,64,128,,64,128,,64 
630 DATA 128,,64,12B,,64,128,,64 
640 DATA 128,,64,128,,64,128,,64 
650 DATA 128,,64,128,,64,128,,64 
660 DATA 128,,64,128,,64,255,255,192 
670 DATA ,,,,,,,, 

990 VC=53248:POKE 51192,0:POKE VC+1,97:P0K 
E VC,71:POKE VC+21,0 
1000 DIM A$ <12) ,B9 (12) 

1010 A$ <0)="{BLUE,RVSONI@A{DOWN,2LEFT>BC{R 
VOFF,UPI": BS (0)= 1 » {BLUE,3SPACE> > MEER 
<{3SPACE>“ 

1020 A*(8) = “{LIG.BLUE,RVSON TDD{DOWN,2LEFT> 

DD{RVOFF,UP J":B* < 8 > ="{BLUE,2SPACE}> F 
LUSS <{3SPACE >" 


< 160> 

<238> 

<001 > 
<092> 

<074> 

< 011 > 

<214> 

<209> 

<158> 

<050> 

< 011 > 

< 169> 
<017> 
< 212 > 

< 165> 
< 010 > 

< 19B> 
<208 > 
<052> 
<014> 

< 152> 

<038> 

<036> 

<250> 

< 101 > 
<081 > 
<052> 
<062> 
<072> 
<082> 
<073> 

< 173> 

< 134> 
<049> 

<029> 

<201 > 


1030 A*(9 > ="{BROWN,RVSON JEF{DOWN,2LEFTTGH{ 

RVOFF,UPI":B*<9>="{BLUE,SPACE>> SIEDL 
UNG < " <055> 

1040 A*(l>="{GREY 2,RVSON>IJ{DOWN,2LEFTTKL 
{RVOFF,UPT":B*(1) ="{BLUE,3SPACE>> BUR 
G <{3SPACET" <190> 

1050 AS(4)="{GREEN,RVSON>MN{DOWN,2LEFTTOP{ 

RVOFF,UP T":B*<4)="{BLUE,3SPACET > WALD 
<{3SPACET" < 003> 

1060 A*(5)="{BLACK,RVSONTQR{DOWN,2LEFTTST{ 

RVOFF,UPT" <i 6 i> 

1070 A*C 6 )="{GREY 1.RVSONTUU{DOWN,2LEFTTUU 

{RVOFF,UPT" <045> 

1080 A* < 7 > = "{BROWN,RVSON TW{DOWN,2LEFTTVV{ 

RVOFF,UP T"s B*(7 > =“{BLUE,2SPACE T > EBEN 
E <{3SPACET“ <146> 

1085 A*(2)=A* <1)s A* <3>=A*(1> s B*(2)=B*(1)s B 

> (3).=B* 11) <094> 

1086 A* <11> =” {BLACKIUI.{DOWN,2LEFTIÜUUPI“: 

B$ < 11) = " {BLUE, 3SPACE T > BOJE <{3SPACET 

” <009> 

1087 A*<12)=A*<0>:B*<12)=B*<0> <144> 

1090 A*(10)=”{GREY 1,RVSONI«-{SPACE,DOWN,2L 
EFT T!#{RVOFF,UP T“:B*(10 > ="{BLUE,2SPAC 

EIT HOEHLE <{2SPACEI" <225> 

1091 A*= "{HOME,6D0WN, 6 RIGHT,BLACK,RVSON TWX 
{DOWN,2LEFTTYZ{RVOFF,UPT":BS=»{HOME ,6 
DOWN, 6 RIGHT,BLACK,RVSON T C £{DOWN,2LEFT 

T 3 T{RVOFF,UP T" <116> 

1092 C*="{HOME,14D0WN,17RIGHTIZUG NICHT MO 

EGLICH" <091> 

1093 D$="{HOME,14DOWN,17RIGHT,18SPACET" <107 > 

1094 F$="{H0ME.5D0WN,17RIGHT.BLACKTDU WIRS 

T VON JAEGERN" <010> 

1095 H*="{17RIGHTTDES DAEMONS ATTACKIERT” <099> 

1096 I*="{17RIGHTTDES DAEMONS UMZINGELT." <244> 

1100 DIM L<30+2*4,30+2*4) <137> 

1110 FOR K=10 TO 32:FOR 1=10 TO 30:READ A: 

L(K,I)=A:NEXT:NEXT <066> 

1120 DATA ,,,,,,,7,7,7,,,,,,,,,,, <092> 

1130 DATA ,,,,,7,7,7,1,7,7,7,7,,,,,,,, <253> 

1140 DATA ,,,,4,7,7,7,7,7,7,7,7,7,B,7,,,,, <001> 
1 j DATA ,,,,4,7,7,7,7,7,7,7,7,7,8,7,7,,, 

• <241> 

1160 DATA ,,7,4,4,4,7,7,7,7,7,7,7,7, 8 ,7,7, 

7 ’ 7 >» <142> 

1170 DATA ,7,7,7,4,4,4,7,7,4,4,4,7,7 f 8,9,7 


,7,7, 


1180 DATA , 8 , 8 ,4,4,4,7,7,4,4,4,4,4,7, 8 ,7,7 


< 000 > 


,7,7 


<254> 


1190 DATA ,7, 8 , 8 ,4,7,7,4,4,4, 6 , 6 , 8 , 8 ,B,7,7 

, 7 » 7 ,, <203> 

1200 DATA 7,7,9,8,7,7,7,4,4,10,6,6,4,4,4,7 

,7,7,7,7, <050> 

1210 DATA 7,7,7, 8 ,7,7,7,4, 6 , 6 , 6 , 6 , 6 ,4,4,7, 

7,7,7,7, <206> 

1220 DATA ,7,7,B, 8 , 8 , 8 , 8 , 6 , 6 ,5, 6 , 6 ,4,4,4,7 

•7,7,7, <012> 

1230 DATA ,7,7,7,7,7,7,4,4, 6 , 6 , 6 ,4,4,7,7,7 

,7,7,7,7 <139T 

1240 DATA ,,,7,7,7,7,7,4,4,4, 8 , 8 , 8 ,7,7,7,7 

,7,2,7 <018> 

1250 DATA , , ,7,7,7,7,7,7,4,4,4,4, 8 ,7,7,7,7 

• 4 « 4 * 7 <107> 

1260 DATA ,,,7,4,4,7,7,7,7,7,7,7,8,7,7,7,4 

, 4 » 4 » <034> 

1270 DATA ,,7,7,4,4,4,7,7,7,7,7,9, 8 ,4,4,4, 

4 > 4 , 4 , <217> 

1280 DATA ,,7,7,9,4,4,7,7, 8 , 8 , 8 , 8 , 8 ,4,4,4, 

4 > 4 >, <103> 

1290 DATA ,7,7,7,4,4,4,7, 8 , 8 ,7,7,7,7,7,7,4 

> 4 > 4 ,, <066> 

1300 DATA ,7,7,4,4,4,4,4, 8 ,7,7,7,7,7,7,7,4 

,,,, ’ <113> 

1310 DATA ,,4,4,4,4,4,,,,,7,7,7,7,7,7,,,, <221> 

1320 DATA ,,4,4,4,4,,,,,,,,,,,,,,, <140> 

1330 DATA ,,4,3,4,,,,,,,,,,,,,,,, <037> 

1340 DATA ,,4,4,4,,,,,,,,,,,,,,,, <176> 

1350 FOR K=0 TO 12:L<22,K)=12:NEXT:L<22,33 

)=11 <225> 

1400 DIM C*<7),D*<7> <123> 

1410 FOR K=0 TO 7:READ GS:C*<K>=G*:NEXT <090> 

1420 FOR K=0 TO 7:READ G*:D*<K)=G$:NEXT <132> 

1430 DATA BOOT,RUESTUNG,LANZE,SCHWERT,HARP 

UNE,KOMPASS,LEITER,BUCH <037> 

1440 DATA SWIM.BEEM,KILL,HELP,FILL,KLAU,AN 

TI,BOMB <134> 
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1500 DIM H <17 ,12) <006> 

1510 FOR K=0 TO 17:FOR 1=0 TO 12:READ A:H< 

K,I)=A:NEXT:NEXT <233> 

1520 DATA 80,48,48,48,48,48,48,48,48,48,48 

,48,40 <229> 

1530 DATA 24,40,24,48,48,48,48,56,48,48,48 

,32,12 <147> 

1540 DATA 28,44,12,24,48,48,40,12,24,48,48 

,40,12 <16B> 

1550 DATA 28,44,12,12,16,48,36,12,12,24,40 

,12,12 <132> 

1560 DATA 28,44,12,20,48,4B,48,36,12,12,20 

,36,12 <232> 

1570 DATA 28,44,28,48,48,48,48,48,36,20,48 

,48,36 <059> 

1580 DATA 28,44,12,24,48,48,48,56,56,48,48 

,48,40 <151> 

1590 DATA 28,44,12,12,24,48,40,12,12,24,48 

,48,36 <224> 

1600 DATA 28,44,12,12,12, 8,12,12,12,20,48 

,48,40 <191> 

1610 DATA 20,44,20,36,12,12,12,12,20,40,24 

,40,12 <18B> 

1620 DATA 24,52,32,24,36,12,12,12,24,62,36 

,12,12 <223> 

1630 DATA 20,48,40,12,24,52,36,12,12,12,24 

,52,36 <183> 

1640 DATA 24,48,36,12,12,24,48,36,12,12,20 

,48,40 <095> 

1650 DATA 20,48,40,12,12,12,24,48,36,12,24 

,48,36 <168> 

1660 DATA 24,48,36,12,12,12,12,16,40,12,20 

,48,40 <115> 

1670 DATA 20,48,40,12,12,12,20,48,36,12,24 

,40,12 <181> 

1680 DATA 24,48,36,12, 4,20,48,48,48,36,12 

,12,12 <092> 

1690 DATA 20,48,48,52,48,48,48,48,48,48,36 

,20,36 <010> 

2000 POKE 53281,15:POKE 53280,14 <079> 

2010 PRINT CHR*<B>;CHR*<14);CHR*(147>;"{BL 

UE,14SPACE>flifl LASflüSfl:“ <019> 

2020 PRINT“ £S GESCHAH VOR SEHR LANGER 2EI 

T IN“ <217> 

2030 PRINT“ EINEM KLEINEN .LAND, DASS BREIS 

TROMLAND" <199> 

2040 PRINT“ GENANNT WURDE. SA RISS EIN BOE 

SER“ <151> 

2050 PRINT" SAEMON DIE flACHT AN SICH,INDEM 

ER DIE“ <125> 

2060 PRINT" DREI Ö-UESSE, DIE ZUVOR DAS LA 

ND GE—" <002> 

2070 PRINT“ RECHT REGIERT HATTEN, MIT HILF 

E VON" <003> 

2080 PRINT" DREI GRAUSAMEN fllNGEN UNTERJOC 

HTE.“ <073> 

2090 PRINT" SIE flACHT DER flINGE KANN NUR G 

EBROCHEN" <096> 

2100 PRINT" WERDEN, WENN SIE IN DIE flAENDE 

DER " <092> 

2110 PRINT" ALUESSE KOMMEN. UND ERST WENN 

DIES GE-" <177> 

2120 PRINT" SCHEHEN IST, KANN DER SAEMON M 

IT ÜILFE" <213> 

2130 PRINT" DER DREI ALUESSE VERTRIEBEN WE 

RDEN.“ <046> 

2140 PRINT“ SENN NUR DURCH DAS HASSER DER 

ALUESSE" <216> 

2150 PRINT" KANN DER SAEMON WEHRLOS UND NU 

R DURCH" <203> 

2160 PRINT" DAS HASSER DES HEERES UNSCHAED 

LICH GE-“ <038> 

2170 PRINT" MACHT GEMACHT WERDEN." <015> 

2180 PRINT"<2SPACE>HEITER HEISST ES, DASS 

DERJENIGE, DER" <070> 

2190 PRINT" DIES VOLLBRINGT, AUFS REICHSTE 

BELOHNT" <086> 

2200 PRINT" WERDEN WUERDE, DENN ER HAETTE 

DAS JtOLK" <094> 

2210 PRINT“ BEFREIT. AS HEISST DER SOHN BE 

STAENDE" <097> 

2220 PRINT" AUS ETWAS UNENDLICH .KOSTBAREN 

AUS SEHR" <113> 

2230 PRINT" FERNEN UND NOCH IMMER GEHEIMNI 

SUM—" <210> 

2240 PRINT" WOBENEN HEGENDEN DER £RDE. - fl 

O LAUTET" <217> 


l. <11SPACE>> 


2250 PRINT"<14SPACE>SIA 

>";:POKE 53265,27 <211> 

2260 POKE 198,0:WAIT 198,1:GET GS:POKE 532 

65,11 <101> 

2270 PRINT“<CLR,DOWN,BLUE,SPACE>SAS ADVENT 
URE—£AME{2SPACE,BLACKTS fl fl flC2SPACE> 

X fl H fl S<BLUE,SPACE>" <180> 

2280 PRINT" VON{2SPACE,RED}flOBERT VALENTIN 

ER<BLUE,2SPACE>BAUT AUF DIESE " <225> 

2290 PRINT" LEGENDE AUF. SIEL DES SPIELS I 

ST ES<4SPACE>" <084> 

2300 PRINT" DEMNACH DEN SAEMON ZU VERTREIB 

EN UND{3SPACE >" <201> 

2310 PRINT" DAS SREISTROMLAND ZU BEFREIEN. 

SAZU<4SPACE>" <044> 

2320 PRINT" VERSTEHT DER COMPUTER VERSCHIE 

DENE " <09B> 

2330 PRINT“ FEHLE,DIE IM FOLGENDEN ERKLAER 

T WERDEN " <199> 

2340 PRINT" <RED,2SPACE> L.X.S.T. - £IBT EINE HE 

BERSICHT UEBER" <0B5> 

2345 PRINT"<9SPACE>ÜAB UND HUT. flTOPT DIE 

XEIT" <214> 

2350 PRINT"<2SPACE>flflVfl - SPEICHERT BISHER 

IGE ERFOLGE" <016> 

2355 PRINT"<9SPACE>0DER flISERFOLGE AUF SAN 

D/flISK.“ <090> 

2360 PRINT"<2SPACE>£JLHXÄ£XAH - SU BETRITTS 

T EINE SJRG,..."; <163> 

2370 PRINT"<2SPACE>HflSH£flflflH,ÄX - HEGWERFE 

N DES HEGEN-“ <004> 

2380 PRINT" <17SPACE>STANDES flY,. “ <214> 

2390 PRINT"{2SPACEJASA - ATAERKT DICH SOLA 

NGE DU NOCH" <219> 

2395 PRINT"<BSPACE>HERPFLEGUNG HAST." <192> 

2400 PRINT"t37SPACE>>>“; <184> 

2405 POKE 53265,27:POKE 198,0:WAIT 198,1:G 

ET GS:POKE 53265,11 <131> 

2410 PRINT"{CLR,DOWN>"; <115> 

2420 PRINT“<2SPACE}flüSLifl,HX - AUELLT DEN 

HEGENSTAND flX" <115> 

2430 PRINT"C14SPACEJM. HASSER,FALLS VORHAN 

DEN" <087> 

2440 PRINT" ■C2SPACET .L1.E.5. , XY.<5SPACE>- SU LIE 

ST Z.S. EIN SJCH." <178> 

2450 PRINT" {2SPACE } flAHflflJtXSH - SU GREIFST 

AN.“ <118> 

RTEIDIGST DICH." <248> 

2470 PRINT“<D0WN,2SPACEJfl-fl-H-fl-H-fl FUER D 

. AICHTUNGSANGABEN <2SPACE >“ <197> 

2471 PRINT"{REDJHESAGT SEI NOCH, DASS 5fl.Vfl 

NUR{2SPACE>AUSSER—" <122> 

2472 PRINT“HALB{2SPACE >VON BURGEN, SIEDLUN 

GEN , ... VER—" <126> 

2473 PR INT "WENDET WERDEN KANN. {BLACK I .T.I.P ; 

SUCHE DIE flINGE" <165> 

2474 PRINT"<1 ISPACE>HINTER flAUERN ... !“ <236> 

2480 PRINT"{DOWN,BLUEJHAEHREND DU SPIELST 

SIEHST DU LINKS OBEN"; <045> 

2490 PRINT"DEN{2SPACEJflUSSCHNITT DES{2SPAC 

EJSREISTROMLANDES, IN“; <115> 

2500 PRINT"DEM DU DICH GERADE BEFINDEST. S 

ER WEISSE"; <136> 

2510 PRINT"AAHMEN ZEIGT DEINE GENAUE flDSIT 

ION.HEBEN"; <140> 

2520 PRINT"DEM LANDSCHAFTSAUSSCHNITT FINDE 

ST DU DIE"; <086> 

2530 PRINT"ANZEIGE FUER VERPFLEGUNGSEINHEI 

TEN,.KRAFT“; <127> 

2540 PRINT"HOLDSTUECKE UND ANZAHL DER &ING 

E, DIE DU"; <00B> 

2550 PRINT"BEREITS ERBEUTET HAST.SARUNTER 

UND UNTER"; <185> 

2560 PRINT"DER{2SPACE>flINGABEZEILE BEFINDE 

T<2SPACE>SICH JE{2SPACE>EIN"; <117> 

2570 PRINT"flUSGABEFENSTER ZUR AUSGABE VON 

SÄTEN." <037> 

2580 PRINT"flLTES ODER NEUES SPIEL (A/N)?-“ 

;:POKE 53265,27 <207> 

2590 POKE 198,0:WAIT 198,1:GET GS:IF G*<>" 

A"AND GS< >"N"THEN 2590 <044> 

2600 PRINT G*;:IF G*="N“THEN 3000 <060> 

2605 GOSUB 2610:GOTO 2680 <067> 

2610 PRINT CHRS(14);"{CLR,DOWN,7SPACE>iASS 

ETTE ODER DISKETTE ?-"; <211> 

Listing »Dreistromland«. Bitte nur mit dem Checksummer 
64 V3 in diesem Heft eingeben. 
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<081 > 

<230> 
<071 > 

<126> 

<254> 

<030> 

<246> 


< 020 > 
< 164> 


<204> 

<057> 

< 101 > 


2620 GET TT*: IF TT*< >"K"AND TT*< >"D"THEN 2 

620 <246> 

PRINT CHR*(ASC(TT*)+32):PRINT <154> 

PRINT"C7SPACE >£ILENAME:{SPACE,DOWNJTT 
TrrrrrTTTTfTTT<UP,16LEFT>"; :K*="" <112> 

FOR K=1 TO 16:POKE 198,0:WAIT 198,1:G 
ET G* <069> 

IF G*=CHR*<13)THEN K=16:NEXT:PRINT"{H 
OME,11DOWNJ":RETURN <078> 

IF(G*<"A"OR G*>"Z“)AND <G*<"fl"OR G*>"Z 
")AND G*<>“ "THEN K=K-1:NEXT <072> 

K*=K*+G*:PRINT G»;:NEXT:PRINT"{HOME,1 
0DOWNJ":RETURN <082> 

IF TT*="K"THEN OPEN 1,1,0,K* <219> 

IF TT*="D"THEN K*=K*+",S,R":OPEN 1,8, 

2 ’ K * <026> 

INPUT#1,X:INPUT#1,Y:INPUT#1,VE:INPUT# 

1,KR:INPUT#1,GE:INPUT#1,RI:INPUT#1,IR <186> 
INPUT#1,T*:INPUT#1,ZB:INPUT#1,HB:INPU 
T#1,HA:INPUTttl,EI:INPUT#1,FO 
INPUT#1,AU:INPUT#1,LO:INPUTHl,AN:INPU 
T#1,BE:INPUT#1,G* 

CLOSE 1:IF TT*="K"THEN 2720 
OPEN 15,8,15:INPUT#15,A,G*,K,K:CLOSE 
15:IF A< >0 THEN 2605 
GOTO 2800 

PRINT"ÜABE ";CHR*(34);G*;CHR*<34>:" G 
EFUNDEN." 

PRINT"<DOWN>HILLST DU DIESES SPIEL FO 
RTSETZEN <£/H>?“ 

GET G*:IF G*< >"N"AND G*<>“J"THEN 2740 <089> 
IF G*="N”THEN 2605 

TI*=T*:E*=”<CLR>"+CHR*(142):GOTO 2000 
0 

X=17:Y=15:VE=3500:KR=100:GE=0:RI=0:TI 
*="000000":E*="{CLR >"+CHR*(142):GOTO 
20000 

IF PX=-1 THEN P=1:GOTO 3520 
P=H(PY,PX> 

R*="RICHTUNGEN":POKE VC+17,11:GOSUB 3 
530:GOTO 3760 <002> 

PRINT"<CLR>":FOR K=2 TO 5:PRINT TAB(K 
)"{BLACK>S“SPC(35—2*K)“Ü":NEXT <192> 

PRINT" {6SPACE>S'79 VVYy WYYYY YVyYVYYVVY 

Y£ " <037> 

FOR K=1 TO 8: PRINT" {6SPACE1 g"'SPC (23) " 

H”:NEXT <058> 

PRINT" {6SPACE>A.'p'pppppp P p'p-p-ppppppp'p-p-p-p- 

’ PS ” <040> 

FOR K=5 TO 2 STEP-1:PRINT TAB(K)"M"SP 
C(35-2*K>"fl":NEXT:IF(P AND 8)=8 THEN 
R$=R$+"—S" <122> 

IF CP AND 4)04 THEN 3620 <224> 

R*- R*+"-N" :PRINT"{H0ME,6D0WN>","{5SPA 
CEl pp-pppp-p":PRINT, " {4SPACEIHapWpp'ÜG'" < 119> 
FOR K=1 TO 6: PRINT, " <4RIGHT>f?ff{5SPACE 
>GG":NEXT:PRINT,”{4RIGHT>SH{5BPACE>HL. 

< 157> 

POKE 214,10: PRINT: PRINT, " {6RIGHT}?~ pVp ' 

<065> 

IF (P AND 32)032 THEN 3660 <017> 

R*=R*+"-W":PRINT“{HOME,4D0WN,SPACE >fffl 
":PRINT" H ß“ <058> 

PRINT" ffY£":FOR K=1 TO 9:PRINT“ ff ff": 

NEXT <082> 

PRINT" HpE":PRINT" ff{3SPACE> ": PRINT" 

H ":PRINT" M" <055> 

IF (P AND 16)016 THEN 3700 <101> 

R*=R*+"-O”:PRINT"{HOME,4D0WN >",,,"{4R 
IGHTJH^":PRINT,,,"{3RIGHT>ß S" 

PRINT,,,"{3RIGHT>flV&":FOR K=1 TO 9:PR 
INT, , , " {3RIGHT>fJ S" , NEXT: PRINT, ,, “ {2S 

PACEffltTO" 

PRINT,,,"{5SPACEIS":PRINT,,,»{5SPACE> 
^{DOWN.LEFTJfl" 

IF (P AND 2)02 THEN 3730 
R*= R*+"—H":P RINT"{HOME >":PRINT,,"{2LE 
FTJpppppppp":PRINT,,"{2LEFTIßA-T g-XN " <227> 
PRINT,, " {LEFTJflB-ünii": FOR K=1 TO 7: PR 
INT,,"-{2RIGHT>—":PRINT,,“SÄftU" :NEXT 
IF (P AND 1)01 THEN 3755 
RS=R*+ "-R'■ - POKE 214,15: PRINT: PRINT,, " 
S?S":FRINT, ," L.PE":PRINT,, "üg fffl" 

PRINT,," {LEFT }ßMSY£ßil": PR I NT,, " {LEFT > 
TVYYVyY" 

RETURN 

F=20:IF(P AND 64)064 THEN 3800 


2630 
2640 

2645 

2650 

2660 

2670 

2680 
2685 

2690 

2700 

2710 

2715 

2717 

2718 
2720 

2730 

2740 
2750 
2800 

3000 

3500 
3510 
3520 

3530 

3540 

3550 

3560 

3570 

3580 
3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 


3690 

3700 

3710 

3720 

3730 

3740 

3750 

3755 

3760 


< 189> 


<044> 

< 128> 
<049> 


<004> 

<014> 

<013> 


< 148> 
<001 > 

< 195> 


in 


3770 

3780 

3790 

3800 

3810 

3850 

3B60 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3942 

3943 

3944 

3945 

3946 

3947 

3948 
3950 


3960 

3970 

3980 

3990 

4000 

4005 


4007 

4010 

4020 

4030 

4040 


4050 

4060 


F=21:POKE 214,15:PRINT:PRINT," TpTP": 
PRINT,"KI3SPACE >ß": PRINT,"<LEFT>ß{3SP 
ACE>HÜ" 

PRINT,"{2LEFT>MTP?14H":PRINT,"{3LEFTJR 
==(ß":PRINT,"{2LEFT1 YYYY " 

R*=R*+"s-LIES,BUCH" 

POKE 214,F:PRINT:PRINT R* 

POKE VC+17,27:GOSUB 20410:PRINT"<5UP> 

•I 

IF K*="N"AND(P AND 4)=4 THEN PY=PY-1: 
GOTO 3500 

IF K*="S"AND(P AND 8)=8 THEN PY=PY+1: 
GOTO 3500 

IF K*="0"AND(P AND 16)=16 THEN PX=PX+ 
1:GOTO 3500 

IF K*="W"AND(P AND 32)=32 THEN PX=PX- 
1:GOTO 4000 

IF K*="R"AND(P AND 1>=1 THEN PY=10:PX 
=9:GOTO 3500 

IF K*="H"AND(P AND 2)=2 THEN PX=-1:G0 
TO 3500 

IF K*<>"LIES,BUCH"THEN 4020 
IF (P AND 64)064 THEN K*="":GOTO 3910 
ZB=255:PRINT"{CLR,DOWN,SPACE >DAS BUCH 
DES MAGIERS:{DOWN>" 

PRINT"{2SPACEJSWIM—FAEHIKEIT ZU SCWIM 
MEN" 

PRINT"{2SPACE JBEEM—ZUFAELLIGER STANDO 
RTWECHSEL" 

PRINT"{2SPACEJKILL—TOETET JEDEN IN SI 
CHTWEITE“ 

PRINT"{2SPACE >HELP—GESPRAECHSPARTNER 
W. HILFSBEREIT" 

PRINT"{2SPACEJFILL-FUELT EINEN RAUM M 
IT BETON AUS" 

PRINT"{2SPACEJKLAU—BEWIRKT EINEN DIEB 
STAL" 

PRINT"{2SPACEJANTI-VERWANDELT ZU STEI 
N" 

PRINT"{2SPACE >BOMB—LAESST EXPLODIEREN 

PRINT"{DOWN,SPACEJDOCH DENK DARAN: BE 
NUTZE SIE NUR UM{DOWN>" 

PRINT"{13SPACE1GUTES ZU TUN !!!" 

FOR K=1 TO 30000:NEXT 

H(0,0)=H(0,0)-64:PRINT"{2D0WN,SPACE >D 
AS BUCH LOEST SICH LANGSAM AUF..." 

FOR K=1 TO 4000:NEXT:GOTO 3500 

IF PXO0 OR PYO0 THEN 3500 

PRINT:PRINT" DU KOMMST IN DEN RAUM DE 

S MAGIERS, ALS{2SPACEJDIESER PLOETZLI 

CH"; 

PRINT“ VERSCHWINDET. . . "; 

FOR K=1 TO 5000:NEXT:GOTO 3500 

FOR K=0 TO 7: IF K*OD*(K)OR ZB0255 T 

HEN NEXT:GOSUB 40360:GOTO 3500 

IF K=0 OR K=1 OR K=4 THEN 4100 

POKE VC+21,0:PRINT"{CLR,BLACK,DOWN,SP 

ACEJDU HAST EINEN SPRUCH DES HASSES B 

PRINT"{DOWN,SPACEJNUTZT. DU BIST DES 
TODES! DER MEISTER{DOWN>" 

PRINT" PERSOENLICH WIRD DICH RICHTEN. 


<021 > 

<251 > 
<088> 
< 116> 

< 000 > 

< 116> 
<005> 
<081 > 

< 115> 
<233> 

< 128> 
<206> 
<003> 

<244> 

< 195> 
<204> 
< 210 > 
<006> 

< 161 > 
<117> 
<075> 

< 191 > 

<233> 

<059> 

<215> 

<077> 

< 136> 
<055> 


< 185> 
<237> 
<028> 

<068> 

<155> 


4070 FOR K=1 TO 6000:NEXT:GOTO 40000 
4100 IF K=1 THEN 4200 

4110 PRINT" DER SPRUCH ZEIGT KEINE WIRKUNG 
!!!";:FOR K=1 TO 2000:NEXT:GOTO 3500 
4200 X = INT(30*RND(0> > +8:Y=INT(30*RND(0))+8 
4220 IF L(Y,X><>4 AND L(Y,X)<>7 THEN 4200 
20000 YY=Y:XX=X:IF KR<0 THEN KR=0 
20010 PRINT"{HOME >";E*;:E*="" 

20020 FOR K=Y—3 TO Y+3 
20030 FOR I=X—3 TO X+3 
20040 PRINT A*(L(K,I>); 

20050 NEXT:PRINT:PRINT:NEXT:PRINT B*(L(Y,X 
>):POKE VC+21,1 

20060 PRINT"{LIG.BLUE,HOMEJ";:FOR K =1 TO 1 
5:PRINT TAB(16);"-":NEXT:PRINT"{HOME 

20070 PRINT TAB(18);"{RED>VERPFLEGUNG :”;V 
E;"{LEFT,2SPACE >” 

20080 PRINT TAB(18) ; "KRAFT IN 7.{2SPACE>: "; 
KR;"{LEFT,SPACE>" 

20090 PRINT TAB(18);"GOLD{8SPACEJ:“ ; GE:“{L 
EFT,SPACE>" 

20100 PRINT TAB(18);"RINGE{7SPACE>:";RI:PR 


< 188> 

<042> 

<162> 

<214> 

<0B2> 

< 122 > 
<057> 
< 179> 
< 222 > 
<255> 
<162> 
< 122 > 
<204> 

<029> 


< 178> 

< 189> 

< 186> 
< 132> 
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C 64 


Abenteuerspiele 


INT <042> 

20300 IF RND( 0) ><- 1+AN)GR AT=1 THEN 20400 <109> 

20310 AT=1:PRINT F*: IF RND(0)>.7 THEN U=l: 

PRINT I*:GOTO 20320 <083> 

20315 PRINT H* <227> 

20320 IF L (Y, X) < >8 AND L(Y,X)<>0 AND L(Y,X 
><>11 AND L(Y,X><>12 THEN J*=A*:GOTO 
20400 <250> 

20330 J*=B* <206> 

20400 IF AT=1 THEN PRINT J* <253> 

20402 PRINT" {HOME, 15D0WN,LIG. BLUE>*■»■»■«■»-»-«-♦■ 

«»»««»?»****** »««-««>»>>»>«»»_«« ''; < 178 > 

20404 IF KR=0 THEN 40000 <012> 

20406 IF TC=1 THEN 26100 <179> 

20408 GOSUB 20410:GOTO 20420 <053> 

20410 PRINT"{RED>KOMMANDO :{30BPACE,UP,10R 

IGHT>0{LEFT} ";: K*="" <014> 

20412 POKE 198,0:WAIT 198,1:GET G*: IF G*=C 
HR* (13) THEN PRINT"{SPACE,BLACK>":RET 
URN <142> 

20414 IF ASC(G*>=20 AND LEN(K*)>0 THEN K*= 


LEFT* < K*,LEN <K*>-1>:PRINT"{SPACE,2LE 
FT,SPACE,LEFT>5{LEFT>";:GOTO 20412 <220> 

20416 IF(ASC(G*) <65 OR ASC(G*>>90)AND ASC( 


G*><>44 THEN 20412 <041> 

20417 IF LEN(K*) >20 THEN 20412 <069> 

20418 PRINT G*;"5{LEFT>" 5 :K*=K*+G*:GOTO 20 

412 <055> 

20420 IF K*< >"N"AND K*<>"S"AND K*<>"W"AND 

K*O"0"THEN 20600 <121> 

20425 IF U=1 THEN PRINT C*:FOR K=1 TO 1000 

:NEXT:PRINT D*:GOTO 20000 <200> 

20430 KR=KR—2—HA:IF K*="N"AND Y>4 THEN Y=Y 

—1:GOTO 20500 <200> 

20440 IF K*="S“AND Y<35 THEN Y=Y+l:GOTO 20 

500 <028> 

20450 IF K*="W"AND X>4 THEN X=X-l:GOTD 205 

00 <064> 

20460 IF K*="0"AND X<35 THEN X=X+l:GOTO 20 

500 <168> 

20470 PRINT" DEIN BOOT IST NICHT HOCHSEETA 
UGLICH !«SPACE,BLACKTDU BIST ERTRUN 
KEN.{BLUE>" <X80> 

20480 GOTO 40000 <148> 

20500 L=L(Y,X) : IF LO0 AND EB=0 AND LOll 

AND L< >12 THEN BE=0 <141> 

20510 IF L=0 AND(HB AND 1>=0 THEN PRINT"{B 
LACK,SPACE}DU BIST ERTRUNKEN.{BLUE}" 

:GOTO 40000 <072> 

20520 IF L =8 AND(ZB AND 1>=0 THEN 30000 <076> 

20530 IF L =6 THEN PRINT C*:FOR K=1 TO 1000 
:NEXT:PRINT D*:Y=YY:X=XX:KR=KR- 8 :GOT 
0 20000 <0B4> 

20540 AN=0:IF L=4 THEN AN=.15 <208> 

20550 IF LOll THEN 20560 <168> 

20553 IF BE=0 THEN BE=l:GOTO 20000 <153> 

20556 IF BE=2 THEN BE=3:EB=1:GOTO 20000 <033> 

20560 IF L=12 AND BE=1 THEN BE=2:G0T0 2000 

0 <073> 

20590 GOTO 20000 <242> 

20600 IF K*=""THEN PRINT C*:FOR K=1 TO 100 

0:NEXT:PRINT D*:GOTO 20000 <213> 

20605 IF AT=1 THEN 23000 <235> 

20610 IF K*< >"LIST"THEN 20700 <189> 

20620 PRINT"{HOME,4D0WN >":E*=" {CLR}":T*=TI 
*: FOR K=0 TO 7:IF(HB AND 2TK> THEN PR 
INT TAB(18);C*(K) <100> 

20625 NEXT:IF EI=1 THEN PRINT TAB(18);"EIM 

ER" <124> 

20630 PRINT"{HOME,4D0WN>":F0R K=0 TO 7:IF( 

ZB AND 2tK)THEN PRINT TAB(32);D*(K> <165> 

20635 NEXT:PRINT"{HOME,14D0WN,18RIGHT >DRUE 

CKE EINE TASTE" <033> 

20660 POKE 198,0:WAIT 198,1:TI*=T*:GOTO 20 

000 <081> 

20700 IF K*<>"ISS"THEN 20800 <254> 

20710 A=KR:KR=KR—1:VE=VE+31:FOR K=A TO 100 

:VE=VE-31 <214> 

20720 IF VE<=0 THEN K=100:VE=VE+31:NEXT:GO 

TO 20000 <20B> 

20730 KR=KR+1:NEXT:GOTO 20000 <232> 

20800 IF K*<>"EINTRETEN"THEN 22000 <227> 

20805 IF L(Y,X>=10 THEN 21100 <09B> 

20810 IF L<Y,X><>9 AND(L(Y,X)>3 OR L(Y,X>= 

0)THEN PRINT C*:FOR K=1 TO 1000:NEXT 
:PRINT D*:GOTO 20000 <171> 

20820 IF L(Y,X><>9 THEN 21300 <190> 

20822 IF GE<20 THEN PRINT C*:FOR K=1 TO 10 


00:NEXT:PRINT D*:GOTO 20000 
20B24 IF Y=11 AND X=18 THEN 40500 
20830 POKE VC+21,0:E*="{CLR}":PRINT"{CLR,D 
OWN,SPACE>DIE SIEDLER HEISSEN DICH H 
ERZLICHST" 

20840 PRINT" WILLKOMMEN UND BIETEN DIR FOL 
GENDES AN" 

20850 PRINT" JE 20 GOLDSTUECKE FUER: OIP>" 
20860 F=0:IF L(Y,X+1>=4 THEN PRINT TAB(24) 
;C*<0>:F=1 

20865 IF L(Y,X—1 )=8 THEN PRINT TAB(24);"EI 
MER":F=2 

20870 FOR K=1 TO 7:PRINT TAB(24);C*(K>:NEX 
T:PRINT TAB(24 >;"VERPFLEGUNG*1500" 
20880 PRINT"«DOWN,SPACE>DU HAST";GE;"GOLD 
STUECKE.":PRINT"{DOWN,SPACE>WAS WUEN 
SCHST DU ?—";:K*="" 

20890 POKE 198,0:WAIT 198,1:GET G*: IF G*=C 
HR*(13> THEN 20920 

20900 K=ASC(G*>:IF K<65 OR K>90 THEN 20890 
20910 K*=K*+G*:PRINT G*;:GOTO 20890 
20920 IF K*=""THEN GOTO 20000 
20925 IF K*="EIMER"AND F=2 THEN EI=1:HA=HA 
+1:GE=GE—20:GOTO 20000 
20930 IF K*=C*(0> AND F=0 THEN 20B30 
20940 FOR K=0 TO 7:IF K*=C*(K)THEN K=7:NEX 
T:GOTO 21030 

20950 NEXT:IF LEFT*<K*,3)<>"VER“THEN 21030 
20960 PRINT:PRINT" WIEVIEL ?-";:K*="" 

20970 POKE 198,0:WAIT 198,1:GET G*:IF G*=C 
HR*(13)THEN 21010 

20980 IF VAL( 6 *> =0 AND G*<>"0"THEN 20970 
20990 K*=K*+G*:PRINT G*;:GOTO 20970 
21010 F=VAL(K*):FOR K=1 TO F:IF GE-20>-l T 
HEN VE=VE+1500:GE=GE-20:NEXT:GOTO 20 
000 

21020 K=F+1:NEXT:GOTO 20000 
21030 F= 8 :FOR K=0 TO 7:IF K*=C*(K)THEN F=K 
: K =8 

21040 NEXT:IF F =8 OR(HB AND 2TF)THEN 20830 
21050 GE=GE—20:HA=HA+1:HB=HB+2TF:GOSUB 404 
00:GOTO 20000 
2-10 IF T =1 THEN 25000 

21110 POKE VC+21,0:PRINT“{CLR,DOWN,SPACE,B 
LACKJDU HAST DIE HOEHLE DES«SPACE>M 
A G I E R S " 

21120 PRINT" BETRETEN,-EINES DIENERS DES D 
AEMONS !! " 

21130 PRINT"{DOWN,2SPACEJES GIBT KEIN ZURU 
ECK, DENN IN DIESEM{2SPACE>" 

21140 PRINT"«SPACE>AUGENBLICK SCHLIESST S 
ICH DIE HOHLE.«SPACE>" 

21150 PRINT"{2SPACEJES GIBT NUR EINEN AUSW 
EG:{DOWN}" 

21160 PRINT"{2SPACEJ-EIN SCHMALER SCHACHT 
IM BODEN.{DOWN}":FOR K=1 TO 8000:NEX 
T 

21170 IF HB AND 64 THEN H(0,0)=80:PX=-1:E* 
="{CLR}“:GOTO 3500 

21180 PRINT"«SPACE}DA DU KEINE! LEITER MI 
TGEBRACHT HAST«SPACE}" 

21190 PRINT"«SPACE}LAUTET DEIN URTEIL:{DO 
WN>" 

21200 PRINT"«SPACE}-TOD DURCH STURZ AUS 2 
0 METERN HOEHE«SPACE}" 

21210 PRINT"«SPACE}ODER{DOWN}" 

21220 PRINT"«SPACE}-TOD DURCH VERDURSTEN. 
":GOTO 40000 

21300 E*="{CLR}":L=L(Y,X)—1:IF(IR AND 2tL> 
THEN PRINT C*:FOR K=1 TO 1000:NEXT:P 
RINT D*:GOTO 20000 
21315 IF(LO AND 2TL)=2TL THEN 21800 
21320 IF(AU AND 2TL)=2tL THEN 21700 
21330 E*="": IF LO0 THEN 21400 
21340 PRINT"{SPACE,RED}DER KOENIG ERTEILT 
DIR DIE AUFGABE,DIE" 

21350 PRINT" ERDE ZU ERFORSCHEN.“:FOR K=1 
TO 6000:NEXT 

21360 PRINT"«UP,SPACE>DU SOLLST MIT EINEM 
BOOT WEIT WEG«SPACE}" 

21370 PRINT“ FAHREN UND BERICHTEN WAS DU S 
IEHST.«SPACE}":FOR K=1 TO 6000:NEXT 
21380 PRINT"«UP,SPACE}ALS EINZIGES HILFSM 
ITTEL GIBT DIR DER " 

21385 PRINT" KOENIG EINE LEITER MIT !!!{12 
SPACE}":HB=HB+64:HA=HA+1:FOR K=1 TO 

Listing »Dreistromland« (Fortsetzung) 


3^ 


< 210 > 

< 222 > 


< 164> 

<035> 

< 012 > 

<019> 

<236> 

<067> 


<233> 

< 202 > 

< 187> 

< 189> 
<043> 

<058> 

<1B2> 

< 154 > 
<084> 
<074 > 

< 143> 
<234> 
<245> 


< 112 > 
< 126> 

<070> 

<238> 

<067> 

<009> 


<088> 

< 139> 

< 179> 
<090> 

< 134> 


<096> 
<017> 
< 191 > 
<001 > 


< 108> 
<064> 

<091 > 


<253> 
<094> 
< 112 > 
<047> 

<052> 

<060> 

< 020 > 

<250> 


< 119> 
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C 64 


6000:NEXT 

21390 PRINT"C2UP,39SPACE>" 

21395 PRINT"{39SPACE>":AU=AÜ+1:LO=LO+1:GOT 
□ 20000 

21400 IF LOl THEN 21460 

21405 PRINT"{RED,SPACE>ICH KOENIG DER PTOL 
EMAEEN GEBE DIR DIE" 

21410 PRINT" AUFGABE,DIE INSEL EINMAL AUF 
DEM SEE—":FOR K=1 TO 6000:NEXT 
21420 PRINT"C2UP,SPACE>WEG ZU UMRUNDEN. ST 
ARTE BEI DER B0JE{2SPACE>" 

21430 PRINT" VOR DER KUESTE. VIEL GLUECK ' 
{9SPACE1":FOR K=1 TO 6000:NEXT 
21440 PRINT"<2UP,39SPACE>" 

21450 PRINT"{39SPACE>":AU=AU+2:LO=LO+2:GOT 
O 20000 

21460 PRINT"{SPACE,REDJDER KOENIG WEIGERT 
SICH DIR DEN RING" 

21470 PRINT" FUER EINE AUFGABE ZU UEBERLAS 
SEN":FOR K=1 TO 6000:NEXT 
21480 PRINT"{2UP,SPACE>ER GIBT DIR EINE MO 
EGLICHKEIT, DICH ZU" 

21490 PRINT" RECHTFERTIGEN U. DADURCH ZU U 
EBERLEBEN":FOR K=1 TO 6000:NEXT 
21500 PRINT"{2UP,39SPACE>" 

21510 PRINT"{39SPACE>" 

21520 PRINT"<2UP,SPACE}DU SAGST: ";:K*="" 
21530 FOR K=1 TO 4 

21540 POKE 198,0:WAIT 19B,1:GET G*: IF ASC< 
G*)<65 OR ASC<G*>>90 THEN 21540 
21545 K*=KS+G*:PRINT G»;:NEXT:PRINT:FOR K= 
1 TO 1000:NEXT 

21550 IF K*OD*<3)THEN PRINT" {SPACE,BLACK} 
DIE CHANCE IST VERTAN !!!":GOTO 4000 
0 

21560 PRINT"{HOME,17D0WN,39SPACE>" 

21570 PRINT"{39SPACEJ" 

21580 PRINT"{RED,2UP,SPACE>DER KOENIG WIRD 
PLOETZLICH UNGEMEIN" 

21590 PRINT" HILFSBEREIT UND GIBT DIR DEN 
RING":FOR K=1 TO 6000:NEXT 
21600 PRINT"{2UP,39SPACE}" 

21610 PRINT"{39SPACE>“ 

21620 L0=L0+4: AU=AU+4: RI =R I+1: I R= IR+4: GOTO 
20000 

21700 PRINT"{SPACE,RED>DER KOENIG IST WUET 
END,DA DU ZURUECK—" 

21710 PRINT" KEHRTEST OHNE DIE AUFGABE ZU 
LOESEN.“:FOR K=1 TO 6000:NEXT 
21720 PRINT"<2UP,SPACE,RED}UEBER DEIN WEIT 
ERES SCHICKSAL WIRD{2SPACE}" 

21730 PRINT" DER{SPACE,BLACK}DAEMON{RED,SP 
ACE1ENTSCHEIDEN !!!{12SPACE}":GOTO 4 
0000 

21800 IF L=2 THEN PRINT C*:FOR K=1 TO 1000 
:NEXT:PRINT D*:GOTO 20000 
21805 IF <HB AND 1)01 THEN 40300 
21810 IF L< >0 THEN 21980 

21820 PRINT”{RED1BERICHTE MIR NUN,WELCHE A 
USSAGE ZUTRIFFT“; 

21830 PRINT"{SPACE,RVS0N>1{RV0FF,SPACE>- E 
RDE,—EINE KUGEL DIE SICH DREHT." 
21840 PRINT"{SPACE,RVS0N}2{RVOFF,SPACE}- E 
RDE,-EINE SCHEIBE." 

21850 PRINT"{SPACE,RVS0N}3{RVOFF,SPACE}- E 
RDE,-KUGEL, MITTELPUNKT DES ALLS." 
21860 PRINT"{SPACE,RVS0NT4{RVOFF,SPACE}- E 
RDE,-EIN QUADRAT MIT A=20000 KMT2" 
21870 PRINT"WIR SCHREIBEN DAS JAHR 1607, E 
IN GROSSER"; 

21880 PRINT"AUGENBLICK. GIB DIE NUMMER AN: 

21890 POKE 198,0:WAIT 198,1:GET G*:IF VAL < 
G*><1 OR VAL<G*>>4 THEN 21890 
21900 PRINT G*:IF VAL<G*>=(PEEK(2050)-5) T 
HEN E*="{CLR}":RI=R1+1:1R=IR+1:GOTO 
20000 

21910 FOR K=1 TO 2000:NEXT 
21920 PRINT"{CLR,4D0WN}";:POKE VC+21,0 
21930 PRINT"{BLACK,SPACE1DIE INQUISITION H 
AT EIN NEUES OPFER" 

21940 PRINT“ GEFUNDEN. DU WIRST DEIN ENDE 
AUF DEM" 

21950 PRINT" SCHEITERHAUFEN FINDEN. NUR SO 
FINDEN" 

21960 PRINT" KETZER IHRE GERECHTE STRAFE ! 

!*":FOR K=1 TO 2000:NEXT:GOTO 40000 


<207> 
< 126> 

<135> 
< 118> 

<132> 

< 174> 
<203> 

<024> 

< 176> 

< 222 > 

< 121 > 

<219> 

<214> 

<0B8> 
<236> 
<071 > 
<205> 
< 182> 

<004> 

<090> 

< 010 > 

<046> 

< 131 > 

<046> 

< 107> 
<082> 
<171> 

< 115> 
<005> 
<223> 
<150> 

<095> 

< 011 > 

< 169> 
<248> 

<214> 

< 002 > 

<153> 

<074> 

< 142> 
< 210 > 

< 156> 

< 181 > 

< 177> 
<124> 
<039> 

<031 > 

<040> 

< 151 > 
<242> 


21980 IF BE=3 THEN RI=RI+1:IR=IR+2:L0=L0+2 
:GOTO 20000 
21990 GOTO 21700 

22000 IF LEFT$ (K$,9)0"WEGWERFEN"THEN 2250 
0 

22010 IF MID*(K*,10,1)=“," THEN 22030 
22020 PRINT" SYNTAX ERROR":FOR K=1 TO 1000 

:NEXT:PRINT"{UP,13SPACE}":GOTO 20000 <197> 
22030 K*=MIDS(K*,11) <150> 

22040 F= 8 :FOR K=0 TO 7:IF K*=C*(K)THEN F=K 
:K =8 

22050 NEXT: IF FOB AND<HB AND 2TFX>2TF TH 
EN 20620 

22060 IF FOB THEN HA=HA—1: HB=HB—2TF: GOTO 
20000 

22070 IF K*=”EIMER"AND EI=1 THEN HA=HA—1:E 
I=0:FO=0:GOTO 20000 
22080 IF K*="EIMER"THEN 20620 
22090 IF K*<>"RING"THEN 22020 
22100 IF IR=7 AND RI>0 THEN 22120 
22110 PRINT C*:FOR K=1 TO 1000:NEXT:PRINT 
D$:GOTO 20000 

22120 IF L(Y,X )<>8 AND L<Y-1,X)<>8 AND L(Y 
+ 1,X> < >8 AND L (Y, X—1) 08 AND L(Y,X+1 
)< >8 THEN 22110 

22130 F=0:IF Y<19 AND X>20 THEN F=2:G0T0 2 
2160 


<004> 

< 100 > 

< 192> 
<193> 


<064> 
< 175> 
<068> 


<251 > 
< 212 > 
<025> 
<056> 

<204> 


< 222 > 


<221 > 


22140 IF Y<22 AND X<1B THEN F=1:G0T0 22160 <0B9> 


22150 F=4 
22160 IF DD AND F THEN 22110 
22170 RI=RI—1:DD=DD+F:IF DD=7 THEN 22200 
22180 PRINT" DER FLUSS BEDANKT SICH BEI DI 
R.":FOR K=1 TO 3000:NEXT 
22190 PRINT" {UP,32SPACE}":GOTO 20000 
22200 IF EI=1 THEN 22260 

22210 PRINT" DER FLUSS IST WUETEND, -DU NI 
CHT DARAN" 

22220 PRINT" GEDACHT EIN GEFAESS MITZUBRIN 
GEN, UM" 

22230 PRINT" WASSER ZUM DAEMON BRINGEN ZU 
KOENNEN." 

22240 PRINT"{SPACE,BLACKTDER FLUSS KANN SE 
INEN ZORN NICHT ZU-" 

22250 PRINT" RUECKHALTEN UND ERTRAENKT DIC 
H !!!":FOR K=1 TO 3000:NEXT:GOTO 400 
00 

22260 POKE VC+21,0:PRINT"{CLR,RED,6D0WN,4S 
PACE}IM WASSER IST FOLGENDES ZU LESE 
N“ 

22270 FOR K=1 TO 2000:NEXT:PRINT"{CLR}";CH 
R<<14):POKE VC+21,0 

22280 PRINT"flIE .LEGENDE»DIE DIR VERMUTLICH 
GELAEUFIG" 

22290 PRINT"IST, IST BEREITS VOR 764 AAHRE 
N VERFASST" 

22300 PRINT"WORDEN.SEITDEM HAT DER{SPACE,B 
LACKT2 fl £ ü fl fl{RED,SPACE}SEINE" 
22310 PRINT"flACHT UM EIN VIELFACHES VERGRO 
ESSERT ..." 

22320 PRINT"AR LAESST SICH ALSO NICHT MEHR 
SO LEICHT" 

22330 PRINT"VERTREIBEN.£S IST SOGAR SO,DAS 
S UNS KEIN" 

22340 PRINT"fllTTEL BEKANNT IST IHN ZU BESE 
ITIGEN ..." 

22350 PRINT"flDCH HABEN WIR GEHOERT, DASS E 
S IN EINER" 

22360 PRINT"DER SIEDLUNGEN EINE £EITREISE{ 
2SPACE1764 AAHRE" 

22370 PRINT"ZURUECK ZU KAUFEN GIBT, fll ES S 
CHEINT DER" 

22380 PRINT"EINZIGE HEG ZU SEIN.£EHE ALSO 
UND SUCHE!“ 

22390 PRINT"<13RIGHT}VIEL GLUECK !!({DOWN, 
9RIGHT}»"; : POKE 198,0:WAIT 198,1:GE 
T G* 

22400 PRINT"{CLR,DOWN}HOCH EINS: <2SPACE}£I 
ST DU IN DER AEIT DER SAGE" 

22410 PRINT“ ANGEKOMMEN, DANN MUSST DU VER 
SUCHEN IN " 

22420 PRINT" DEN{SPACE,BLACK}fl UUAS 
{2SPACETX ü £ fl{RED,SPACE}ZU KOMMEN 

22425 L<11,18)=9 

22430 FOR K=1 TO 8000:NEXT:PRINT"{CLR}";CH 
R*(142):GOTO 20000 
22500 IF K*< VLIES,BUCH"THEN 22700 


<035> 

<015> 

<140> 

<U1> 

<0B6> 

<215> 

<237> 

< 161 > 

< 196> 

<046> 


<059> 


<214> 
<076> 
<254 > 
<219> 
<129> 
<003> 
<247> 
<098> 
<237> 

< 158> 
<081 > 

< 181 > 
<232> 


< 100 > 

< 125> 

< 129> 


<01B> 

< 178> 

< 153> 

< 196> 


88 
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Abenteuerspiele 


22510 IF (HB AND 2T7X>2t7 THEN 20620 
22520 PRINT"CCLR>";CHR*(14):PDKE VC+21,0 
22530 PRINT"<RED,3SPACE}£<SHIFT-SPACE>£CSH 
IFT-SPACE> fl CSHIFT-SPACE JÄCSHIFT-SPAC 
EJflCSHIFT-SPACE >flC2SHIFT-SPACE >fl<SHI 
FT-SPACE >fl<SHIFT-SPACE >H<SHIFT-SPACE 
JflCSHIFT-SPACE > J.CSH IFT-SPACE)fl<3SPAC 
E>1 9 8 4C3SPACE,DOWN>" 

22540 PRINT"(BLACK}flS WAR EIN KLARER, KALT 
ER JAG IM flPRIL, " 

22550 PRINT"UND DIE UHREN SCHLUGEN GERADE 
DREIZEHN, " 

22560 PRINT"ALS HINSON AMITH, DAS JLINN AN 
DIE «SRUST “ 

22570 PRINT"GEPRESST, UM DEN RAUHEN HIND . 

.. CBSPACEV 

22580 F8R K=1 TO 9999sNEXT:PRINT 
22590 PRINT" ... NUN WAR ES GUT, WAR ALLES 
GUT, DER " 

22600 PRINT"JAMPF WAR BEENDET. £R HATTE DE 
N AIEGC4SPACE >" 

22610 PRINT"UEBER SICH SELBST ERRUNGEN. AR 
LIEBTE{3SPACE >" 

22620 PR INT “DEN SROSSEN JRUDER.: FOR K=1 T 
0 9999s NEXT:PRINT"CCLRV;CHR*(142)s G 
OTO 20000 

22700 IF K*<VLIES,KOMPASS"THEN 22800 
22710 IF (HB AND 2T5X>2t5 THEN 20620 
22720 PRINT" DER KOMPASS ZEIGT IN RICHTUNG 
NORDEN !“:FOR K=1 TO 3000:NEXT 
22730 PRINT"IUP,39SPACE>"s GOTO 20000 
22800 IF LEFT* (K* ,6)0"FUELLE"THEN 22900 
22810 IF MID*(K*,8K>"EIMER"THEN PRINT C*: 

FOR K=1 TO 1000:NEXT:PRINT D*:GOTO 2 
0000 

22820 IF L(Y,X)<>8 AND L(Y-1,X)<>8 AND L <Y 
+1,X)<>8 AND L(Y,X+l)<>8 AND LCY,X-1 
)< >8 THEN 22110 
22825 F0=1 

22830 PRINT" DER EIMER IST VOLL."sFOR K=1 
TO 1000:NEXT:PRINT"CUP,20SPACE >":GOT 
0 20000 

22900 F=8:FOR K=0 TO 7:IF K*=D*<K>AND(ZB A 


< 132> 
<239> 


< 114> 
<237> 
<106> 
<104> 

< 11B> 

< 143> 

< 111 > 
< 200 > 
<20B> 


< 127> 
< 022 > 
<073> 

< 011 > 

< 118> 
< 134> 


<209> 


< 220 > 
< 191 > 


< 139> 


ND 2TK)THEN F=K:K=8:G0T0 22920 <253> 
22910 IF K*=D*(K)THEN K= 8 :NEXT:GOTO 20620 <097> 
22920 NEXTsIF F =8 THEN 23000 <190> 
22930 IF F>1 AND F<>3 THEN 4040 <128> 
22940 IF K*="SWIM"THEN ZB=ZB+2TF <071> 
22950 ZB=ZB-2TF:IF F=1 THEN 4200 <070> 
22952 PRINT" DER ZAUBERSPRUCH ZEIGT KEINE 

WIRKUNG.“:FOR K=1 TO 3000:NEXT <228> 
22954 PRINT"IUP,38SPACE >":GOTO 20000 <08B> 
23000 IF K*<>"ABWEHREN"THEN 23100 <208> 


23001 IF AT=0 THEN PRINT C*:FOR K=1 TO 100 


0:NEXT:PRINT D*:GOTO 20000 <22B> 

23003 C=0:IF L<Y,X)=0 AND<HB AND 16)=16 TH 

EN C=C+.5:GOTO 23006 <187> 

23004 IF(HB AND 8)=8 THEN C=C+.5 <194> 

23005 IFCHB AND 4)=4 THEN C=C+1 <074> 

23006 IFCHB AND 2)=2 THEN C=C+1 <066> 

23007 F=RND(0):IF F>.3+C*.l THEN C=0 <200> 

23008 C= 1:KR=KR—INT(5*F) <018> 

23010 IF U=0 THEN 23050 <135> 

23020 PRINT" DIE JAEGER HABEN DICH NUR UMZ 

INGELT." <239> 


23025 PRINT" ES IST ALSO NICHTS ABZUWEHREN 

." <083> 


23030 FOR K=1 TO 6000:NEXT:PRINT“C2UP,39SP 

ACE >" <224> 

23040 PRINT"C39SPACE>":GOTO 20000 <224> 

23050 IF C=0 THEN 20000 <010> 

23060 AT=0:GE=GE+INT(20*F)+1:KR=KR+INT(2.5 

*F> <058> 

23070 PRINT“ ERFOLGREICH ABGEWEHRT,INT<2 


0*F) +1; “GOLDSTUECKE":FOR K=1 TO 2000 
:NEXT <097> 

23080 PRINT"{UP,39SPACE>":GOSUB 40440:GOTO 

20000 <159> 

23100 IF K*<>"ANGREIFEN"THEN 23200 <071> 

23110 IF L(Y,X)=0 AND(HB AND 16)=16 THEN C 

=1:GOTO 23140 <203> 

23120 IFCHB AND 4)=4 THEN C=1 <181> 

23130 IFCHB AND 8)=8 THEN C=C+1 <219> 

23140 IFCHB AND 2)=2 THEN C=C+1 <202> 

23150 F=l:IF RND(0)>(.3+C*.1)THEN F=0 <135> 

23160 C=F* CINT(10*RND(0)+1>):KR=KR—0tF*HA— 

1:IF F=0 THEN 20000 <145> 


23165 AT=0.-U=0 

23170 PRINT" ERFOLGREICH ABGESCHLOSSEN.":P 
RINT C;"GOLDSTUECKE":GE=GE+C 

23175 FOR K=1 TO 6000:NEXT 

23176 PRINT"C2UP,39SPACE>" 

23180 PRINT"C39SPACE>“:GOSUB 40440:GOTO 20 
000 

23200 IF K*<>"SAVE"THEN 24000 
23210 IF DD=0 THEN 23240 

23220 PRINT" NICHT MOEGLICH. DU BIST SCHON 
IN DER" 

23230 PRINT" SCHLUSSPHASE DES SPIELS !":F0 
R K=1 TO 5000:NEXT:E*=" CCLRV:GOTO 2 
0000 

23240 POKE VC+21,0:T*=TI*:GOSUB 2610 
23250 IF TT*=“K"THEN OPEN 1,1,2,K*:GOTO 23 
260 

23255 K*="@:"+K*+",S,W":OPEN 1,8,2,K* 

23260 PRINT#1,X:PRINTDl,Y:PRINTtH ,VE:PRINT 
#1,KR:PRINT#1,GE:PRINT#1,RI:PRINT#1, 
IR 

23270 PRINT#1,T*:PRINT#1,Z B:PRINT#1,HB:PRI 
NT#1,HA:PRINT#1,EI:PRINT#1,F0 
23280 PRINT#1,AU:PRINT#1 ,L0: PRINT#1, AN: PRI 
NT#1,BE:PRINT#1,K* 

23290 CLOSE 1:PRINT:PRINT" CUP,30SPACEV 
23295 PRINT“(26SPACEV: E*="CCLRV+CHR*(142 
>:GOTO 20000 

23395 PRINT"<26SPACE>":GOTO 20000 
24000 PRINT C*:FOR K=1 TO 1000:NEXT:PRINT 
D*:GOTO 20000 

25000 POKE VC+21,0:IF TD=1 THEN TX=0:GOTO 
25300 

25012 PRINT CHR*(14);“CCLR,DOWN,RED,2SPACE 
>ÄJ HAST DEN C2SPACE,BLACK >£ HU 
fl HC3SPACEJJ ü Ä fl CRED,2SPACE >":POKE 
198,0 

25014 PRINT"<2SPACE>BETRETEN. HIER GELTEN 
ANDERE flESETZE C2SPACE >" 

25016 PRINT"C2SPACE>ALS AUSSERHALB, DENN E 
S HERRSCHT DERC2SPACE}" 

25018 PRINT“C2SPACE,BLACK>flAEM0NCRED>. HIE 
MAND AUSSERCSPACE,BLACK>IHMCRED,SPAC 
E>DARF SOG. C2SPACEV 

25020 PRINT"C2SPACEIZAUBERSPRUECHE VERWEND 
EN, - VERGESSEC2SPACEV 
25022 PRINT"(2SPACEJDEINE JAUBERSPRUECHE 0 
DER DU BIST AMC2SPACE>" 

25024 PRINT"C2SPACE>flNDE DEINER HEISE ANGE 
LANGT.BEFEHLE:C2SPACE>" 

25026 PRINT" C2SPACE,BLUE >KIJW, KEAH.E RF-E.H ,.O.E. 

FF_HE. 5_CJI_L-I_E_S_5£ t l.I5T C2SPACE>" 

25028 PR I NT " C2SPACE JflflflHflH, SHflflflKflH, V-flICGflS 
flflH. ALLE 3EF .(2SPACEV 
25030 PRINT" C2SPACE1BIS AUF LIST / VE_RG_E.S_S 
£H MUESSEN VON C2SPACE >“ 

25032 PRINT"CBSPACE>";CHR*(34);",£ING";CHR 
* C34>;" GEFOLGT WERDEN.":PRINT 
25034 PRINT"C2SPACE,BLACKlflAEMONEN LIEBEN 
ES fiOTT NAHE ZU SEIN CRED,2LEFT,DOWN> 

25074 DIM T(3,4,4):TD=1:FOR F=0 TO 4:F0R C 
=0 TO 4:READ A:FOR K=0 TO 3:TCK,F,C> 
=A:NEXT K,C,F 

25075 DATA 24,48,56,48,40 

25076 DATA 12,24,52,40,12 

25077 DATA 28,44,16,28,44 

25078 DATA 12,20,56,36,12 

25079 DATA 20,48,52,48,36 

25080 T(1,2,2)=4:T(2,2,2)=32:T(3,2,2)=8:TC 
1,2,0)=60 

25100 T(0,2,3)=60:T(3,3,2)=60:T(2,2,1)=60: 

T(1,1,2)=60:KI=INT(3*RND(0)+1) 

25230 GOSUB 25290:T(3,TY,TX)=T(3,TY,TX)+1: 

T(2,TY,TX)=T(2,TY,TX)+2 
25240 GOSUB 25290:T(2,TY,TX)=T(2,TY,TX)+1: 

T(1,TY,TX)=T(1,TY,TX)+2 
25245 GOSUB 25290:T(1,TY,TX>=T(1,TY,TX)+1: 

T(0,TY,TX)=T(0,TY,TX> +2 
25250 GOSUB 25290:T(0,TY,TX)=T(0,TY,TX)+64 
25260 GOSUB 25290:T(1,TY,TX)=T(1,TY,TX>+64 
25270 GOSUB 25290:T(2,TY,TX)=T(2,TY,TX)+64 
25280 GOSUB 25290:T(3,TY,TX)=T(3,TY,TX>+64 
:S=1:TY=2:TX=0:WAIT 198,1:G0T0 25300 
25290 TX=INT(5*RND(0)):TY=INT(5*RND(0)):RE 
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<083> 

<034 > 
<121 > 

< 134> 

<078> 

< 117> 
<043> 

< 118> 


<026> 
< 148> 

<046> 

<049> 


<249> 

<089> 

<091 > 
< 182> 

<046> 

<069> 

<060> 

<23B> 


< 157> 
<056> 
<066> 


< 121 > 
<099> 
< 163> 


< 220 > 

< 158> 

< 102 > 


<041 > 
<254> 


< 191 > 


<041 > 

< 179> 

< 120 > 
<207> 
<056> 
<236> 

<037> 

<030> 

<081 > 

<203> 

<064> 
< 139> 
<221 > 
<047> 


<085> 


89 










Abenteuerspiele 
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TURN <119> 

25300 GET G*:PRINT"{CLR>";CHR*(142):GOTO 2 

5330 <024> 

25320 FOR K=1 TD 4000:NEXT <233> 

25325 IF TX<0 THEN PRINT"{CLR>":GOTO 20000 <095> 

25330 R*="":P=T<S,TY,TX):POKE VC+17,11:GDS 

UB 3530 <255> 

25335 IF S=0 AND TX=0 AND TY=0 THEN PRINT" 

{HOME,11DOWN,BRIGHT,RED>fi{BLACK>" < 234 > 

25340 IF <P AND 64)064 THEN 25400 <136> 

25350 POKE 214,14: PRINT: PRINT, “ {RIGHTITp-pT? 

SS": PRINT, "£{5SPACE>£S" <254> 

25360 PRINT,"{LEFT>Ü{5SPACE>M E" 1 :PRINT,"{L 
EFT >flVYV7£{2SPACE >E": PRINT,"{LEFT >E{ 
4SPACEJH U" <027> 

25370 PRINT, "{LEFT>i.?W?EÜ" <087> 

25380 IF<P AND 128)=128 THEN POKE 214,15:P 
RINT:PRINT,"{RIGHT >E":PRINT,"{RIGHT > 

S" <162> 

25400 IF <S< >3 OR TX<>2 OR TY<>2)AND<S=1 OR 

ZB=0)THEN 25430 <246> 

25410 POKE VC+17,27:PRINT:PRINT"DER DAEMON 

HAT DICH WIE EINEN WURM ZER-" <059> 

25420 PR INT "TRETEN...";-.FOR K=1 TO 6000: NE 

XT:GOTO 40000 <157) 

25430 IF TC=0 THEN 25470 <125> 

25440 IF VAL(TI*)<31 THEN 25600 <143> 

25450 POKE VC+17,27:POKE 214,21:PRINT:PRIN 

T”DAS GEWOELBE HAT DICH” <099> 

25460 PRINT"{17SPACEJUNTER SICH BEGRABEN.. 


.";:FOR K=1 TO 6000:NEXT:GOTO 40000 <247> 
25470 IF HO=0 OR 0H=1 OR S<>3 OR TY<>3 OR 

TX< >2 THEN 25600 <003> 

25480 POKE VC+17,27:PRINT CHR*(34);"PASST 

MIR GUT AUF,DASS DER FREMDE EIN-" <234> 

25490 PRINT"DRINGLING NICHT AUF{SPACE,RED> 

DEN{BLACK,SPACEJKNOPF DRUECKT," <249> 

25500 PRINT"DAS WAERE UNSER ALLER ENDE..." 

;CHR*(34):0H=1 <176> 

25510 FOR K=1 TO 8000:NEXT:GOTO 25320 <081> 

25600 POKE 214,21:PRINT:PRINT“'{RED> ";MID*( 

R*,2);:L=11:POKE VC+17,27:GOSUB 
20410 KiSIP 

25610 PRINT"<4UP>“ <226> 

25630 IF K*="N"AND(P AND 4)=4 THEN TY=TY—1 

:GOTO 25330 <242> 

25640 IF K*="S"AND(P AND 8)=8 THEN TY=TY+1 

:GOTO 25330 <131> 

25650 IF K$="0"AND(P AND 16)=16 THEN TX=TX 

+1:GOTO 25330 <021> 

25660 IF K*="W"AND(P AND 32)=32 THEN TX=TX 

—1:GOTO 25325 <097> 

25670 IF K*="R"AND(P AND 1)=1 THEN S=S-1:G 

OTO 25330 <077> 

25680 IF K*="H"AND <P AND 2)=2 THEN S=S+1:G 

OTO 25330 <083> 

25690 IF K*O"0EFFNE, KISTE "THEN 25740 <068 > 

25695 IF (P AND 64)064 THEN 25740 <250> 

25700 IF(P AND 128)=128 THEN PRINT"DIE KIS 

TE IST BEREITS OFFEN.":GOTO 25320 <050> 

25710 POKE 214,15:PRINT:PRINT,“{RIGHTHT': P 
RI NT, " {RI GHT yg ": POKE 214,22: PR I NT -. T ( 

S,TY,TX> =P+128 <239> 

25720 IF SOKI OR H0=1 THEN PRINT" {UP>DIE 

KISTE IST LEER.":GOTO 25320 <242> 

25730 PRINT"{UP>IN DER KISTE LIEGT EIN STU 

ECK PERGAMENT":GOTO 25320 <188> 

25740 IF K*<>"NIMM,PERGAMENT"THEN 25760 <243> 

25745 IF(P AND 128)=0 OR(P AND 64)=0 OR HO 

=1 OR SOKI THEN 25760 <248> 

25750 PRINT"{DOWN,SPACE>AUF DEM PERGAMENT 
STEHT EIN ZAUBERWORT: HORCH";:H0=1:G 
OTO 25320 <245> 

25760 IF K*="VERGESSEN"THEN ZB=0:HO=0:PRIN 
T"DU HAST ALLE SPRUECHE VERGESSEN":G 
OTO 25320 <202> 

25770 IF K*="SCHLIESSE,KISTE"AND(P AND 128 

)THEN T(S,TY,TX)=P—128:GOTO 25320 <032> 

25780 IF K*<>"LIST"THEN 25860 <166> 

25790 T*=TI*:PRINT"{CLR,2D0WN,2SPACEILISTE 

UEBER HAB UND GUT:{DOWN>" <221> 

25800 FOR K=0 TO 7:IF(HB AND 2T7)THEN PRIN 

T"{2SPACE >“ ; C*(K) <19B> 

25810 NEXT:IF EI=1 THEN PRINT"{2SPACEJEIME 

R" <127> 

25820 IF H0=1 THEN PRINT"{2SPACEJPERGAMENT 


< 011 > 


25830 PRINT"{H0ME,4D0WN>":FOR K=0 TO 7:IF< 
ZB AND 2tK)THEN PRINT,,D*(K) 

25840 NEXT:IF H0=1 THEN PRINT,,"HORCH" 
25850 PRINT"{HOME,15D0WN.2SPACEJBITTE DRUE 
CKE EINE TASTE" 

25855 POKE 198,0:WAIT 198,1:TI*=T*:GOTO 25 
330 

25860 IF LEFT*<K*,10)<>“WEGWERFEN,"THEN 25 
900 

25870 PRINT"DU WOLLTEST EIGENTLICH NUR EIN 
EN GEGEN-":ZB=0:HB=0 

25880 PRINT"STAND WEGWERFEN,BIST ABER SO G 
UT DRAUF" 

25890 PRINT“UND WIRFST ALLES WEG;-ES VERSC 
HWINDET.":FOR K=1 TO 6000:NEXT:GOTO 
25320 

25900 IF K*<>"LEEREN,EIMER"THEN 25970 
25905 IF FO=0 THEN 26050 

25910 E1=0:PRINT"BEIM AUSLEEREN DES EIMERS 
GLEITET ER DIR"; 

25920 PRINT"PLOETZLICH AUS DEN HAENDEN UND 
FAELLT" 

25930 PRINT"SCHEPPERND ZU BODEN.FOR K= 
1 TO 6000:NEXT 

25940 PRINT"{3UP>S0F0RT ERSCHEINT DER DAEM 
ON,UM DICH ZU{2SPACE>"; 

25950 PRINT"VERNICHTEN.ER BEKOMMT JEDOCH R 
ASCH NASSE"; 

25960 PRINT"FUESSE UND VERSCHWINDET WIMMER 
ND.":FOR K=1 TO 6000:NEXT:GOTO 25330 
25970 IF K*<>"DRUECKEN,KNOPF"THEN 26050 
25980 IF SO0 OR TXO0 OR TYO0 THEN PRINT 
"HIER IST KEIN KNOPF.“:GOTO 25320 
26000 IF EI = 1 OR OH=0 THEN PR INT "ER LAESST 
SICH NICHT DRUECKEN.":GOTO 25320 
26010 PRINT"DAS GESAMTE GEWÖLBE BEBT PLOET 
ZLICH UND" 

26020 PRINT"DU SPUERST,DASS ES IN EINER HA 
LBEN MIN." 

26030 PRINT"{UPTEINSTUERZEN WIRD...RENN UM 
DEIN LEBEN..."; 

26040 FOR K=1 TO 7000:NEXT:T0*=TI*:TI*="00 
0000":TC=1:L(20,20)=0:GOTO 25330 
26050 PRINT"NICHT MOEGLICH!“:FOR K=1 TO 10 
00:NEXT:GOTO 25330 
26100 PRINT 

26110 FR I NT " {RED , SPACE >+V+V+ T{2SPACE>T TT 
TT{ 8 SPACE>TTTT T{3SPACE>T TTT" 

26120 PRINT"{3SPACE>T{3SPACE>T{2SPACE>T T{ 
11SPACE>T{4SPACE>TT{2SPACE>T T<2SPAC 
E>T" 

26130 PRINT"{3SPACE>T{3SPACEJT{2SPACE>T T{ 
6 SPACE,GREY 1,RVSON >QR{RVOFF,RED,3SP 
ACE>T{4SPACE>T T T T{2SPACE>T" 

26140 PRINT"{3SPACE>T{3SPACEJTTTT TTT{4SPA 
CE,GREY 1,RVSON >ST{RVOFF,RED,3SPACE> 
TTT{2SPACE>T T T T{2SPACEJT" 

26150 PRINT"{3SPACE JT{3SPACE >T{2SPACE >T T{ 
11SPACE>T{4SPACE>T T T T{2SPACE>T" 
26160 PRINT"{3SPACE>T{3SPACE>T{2SPACE JT T{ 
11SPACE >T{4SPACE>T{2SPACE >TT T{2SPAC 
E>T" 

26170 PRINT"{3SP ACE)T {3SPACE >T{2SPACE)T TT 
TT{ 8 SPACEJTTTT T{3SPACE>T TTT" 

26180 PRINT"{HOME,12D0WN,20RIGHT >":LEFT* < T 
0*,2);":";MID*(T0*,3,2); 

26190 PRINT":";RIGHT*<T0*,2);"{2SPACE>ZEIT 
{16LEFT,2D0WN)DRUECKE EINE TASTE" 
26200 POKE 198,0:WAIT 198,1:RUN 40270 
30000 PRINT" ALS NICHTSCHWIMMER IST ES NIC 
HT RATSAM<2SPACE>EIN BAD IM FLUSS ZU 
NEHMEN." 

30010 PRINT"{SPACE,BLACKJDU BIST ERTRUNKEN 
.{BLUEGOTO 40000 

40000 FOR K=1 TO 8000:NEXT:POKE VC+21,0 


<090> 

< 144> 

<255> 

<242> 

<204> 

<205> 

<067> 

<255> 

<039> 

< 142> 

<143> 

<22B> 

<089> 

<226> 

< 106> 

<018> 

<028> 

<080> 

<081 > 

<133> 

<221 > 

< 121 > 

<251 > 

< 210 > 

<036> 

< 178> 

<013> 

< 173> 

<098> 

<043> 

<053> 

< 151 > 

< 190> 

< 146> 
<225> 

<051 > 

<009> 

< 192> 


40020 PRINT"{BLACK.CLRJ":IF KR<=0 THEN PRI 
NT" DU BIST AN ENTKRAEFTUNG GESTORBE 
N ! ! ! {DOWN > 11 

40050 PRINT TAB(19)"07£” 

40060 PRINT TAB(18)"fl ± £" 

40070 PRINT TAB(17)"fl{2SPACE>=<2SPACE>£" 
40080 PRINT TAB(16)"fl{7SPACE}£" 

40090 PRINT TAB(16)"EER RUHEH" 

40100 PRINT TAB(16)"^{7SPACE>W" 

40110 PRINT TAB < 16) " U{2SPACE JIN{3SPACE>R" 


< 144> 
<085> 

< 135> 

< 116> 
< 120 > 
<056> 
<016> 
< 109> 
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C 64 






40120 

40130 

40140 

40150 

40160 

40170 

40175 

40180 

40190 

40200 

40210 

40220 

40230 

40240 


PRINT TAB(16) "E{7SPACE>H" 

PRINT TAB(16)"EFRIEDENff" 

PRINT TAB(16)"S<7SPACE>R" 

PRINT TAB(16)"^<7SPACE>H" 

PRINT TAB(16)"EMDCVIIIR" 

PRINT TAB(16)"R{7SPACE>H" 

PRINT TAB(15)"BCRVSONJUUUUUUUULKRVOF 
F>F" 

PRINT TAB(14)"S<RVSON>UUUUUUUUUUU{RV 
OFFJF" 

PRINT TAB(13)"S<RVSON>UUUUUUUUUUUUU{ 
RVOFFJF" 

PRINT TAB(12) ‘"B<RVSON>UUUUUUUUUUUUUU 
UCRVOFFJF" 

{RVSON JUUUUUUUUUUUUUUU 


1 TRVSONJUUUUUUUUUUUUUUU 


40250 

40260 

40270 

40300 

40310 

40320 

40330 

40340 

40350 

40360 

40400 

40410 

40420 

40430 

40440 

40450 

40500 

40510 

40520 

40530 

40540 

40550 

40560 

40570 

40580 

40590 

40600 

40605 

40610 

40620 

40630 

40640 


<036> 
< 181 > 
<056> 
<066> 

< 169> 
<086> 

< 115> 
<021 > 
<245> 

< 188 > 

< 192> 
< 202 > 
<016> 

< 105> 

< 173> 
< 120 > 

<147> 

<217> 

< 117> 
<159> 
<071 > 

< 150 > 

< 157> 

<071 > 
<073> 


PRINT TAB(12) 

UU" 

PRINT TAB(12) 

UU" 

PRINT"{DOWN,RED,SPACE >MQECHTEST DU N 
OCH MAL SPIELEN (J/N)?-"; 

POKE 198,0:WAIT 198,lsSET GS: IF G*<> 

"0"AND GS< >"N"THEN 40240 
PRINT G*:IF G*="N"THEN SYS 64738 
RUN 40270 

FOR K=1 TO(48+36*8):READ A:NEXT:GOTO 
600 

PRINT" ICH SEHE, DU HAST KEIN BOOT B 
EI DIR." 

PRINT" DARAUS SCHLIESSE ICH, DASS DU 
DEINE" 

PRINT" AUFGABE NOCH NICHT ERFUELLT H 
AST. DOCH" 

PRINT" ICH LASSE GNADE VOR RECHT ERG 
EHEN UND" 

PRINT" VERLANGE ZUR STRAFE LEDIGLICH 
DIE 1/2" 

PRINT" DEINER VERPFLEGUNG" 5 :FOR K=1 
TO 12000:NEXT:VE=INT(.5*VE>:ES=”{CLR 
}":GOTO 20000 

PRINT:PRINT"NICHT MOEGLICH !T10SPACE 
>“:FOR K=1 TO 1000:NEXT:RETURN 
IF FOB THEN RETURN 

PRINT:PRINT"{DOWN,SPACE>EIN BEWOHNER 
DER SIEDLUNG KOMMT VORBEI" 

PRINT” UND HETZT UEBER DIE “;CHRS(34 
);"NUSS—SCHALE";CHRS(34);", DIE" <066> 

PRINT" DU GERADE ERWORBEN HAST !!!”: 

FOR K=1 TO 10000:NEXT:RETURN <072> 

PRINT"{HOME,5D0WN >",,"{3LEFT,20SPACE 
>" < 001 > 

PRINT,,"T3LEFT,22SPACE>":RETURN <126 > 

IF GE<200 THEN PRINT CS:FOR K=1 TO 1 
000:NEXT:PRINT DS:GOTO 20000 <136> 

POKE VC+21,0:PRINT"{CLR,BLUE >" <228> 

PRINT" DER KOENIG HAT, NACHDEM ER KE 
INEN RING " <236> 

PRINT" MEHR HAT,SEINE KRONE ABGELEGT 
UND SICH " <i 93 > 

PRINT" AUF DIE PRODUKTION VON ZEIT-M 
ASCHIENEN " <072> 

PRINT" KONZENTRIERT.{4SPACEJER VERLA 
NGT FUER EINE " <214> 

PRINT" REISE 200 GOLDSTUECKE,{2SPACE 
>WOBEI ES KEINE " <0317 

PRINT" ROLLE{2SPACE>SPIELT{2SPACE>WI 
E{2SPACE>WEIT{2SPACE>SIE(2SPACE >GEHT 
{2SPACEJ! “ <147> 

PRINT"{DOWN,SPACE>NIMMST DU DAS ANGE 
BOT AN (J/N )?—"5 <114> 

POKE 198,0:WAIT 198,1:GET GS: IF GSO 
"N"AND GSO"J"THEN 40590 <079> 

PRINT GS:IF G*="N"THEN E*="<CLR>“:FO 
R K=1 TO 1000:NEXT:GOTO 20000 <020> 

GE=GE—200 <172> 

PRINT" WIEVIEL JAHRE MOECHTEST DU ZU 
RUECK—{5SPACE>REISEN :K$="":FOR 

K=1 TO 3 <U 5 > 

POKE 198,0:WAIT 198,1:GET GS:IF GSO 
"0"AND VAL(GS) =0 THEN 40620 <155> 

PRINT GS;:KS=KS+GS:NEXT: IF KS="764"T 
HEN T=1:L(11,18)=7: FOR K=1 TO 2000:N 
EXT:ES="{CLR>":GOTO 20000 <037> 

PRINT"{BLACK,DOWN,SPACE>DIE ZAHL WAR 
FALSCH, -DU HAST VERSAGT!":GOTO 400 
00 <1B7> 


Qi 


6 G4'er 


Listing »Dreistromland« (Schluß) 


Mensch ärgere 
Dich nicht 

Das Programm Mensch ärgere Dich nicht entspricht den 
Regeln, nach denen ich spiele. Da dieses Spiel oft mit Varian¬ 
ten gespielt wird, können kleinere Differenzen zu den Ihnen 
bekannten Regeln auftreten. 

An diesem Spiel können bis zu vier Personen teilnehmen 
Fehlende Mitspieler können durch Computerspieler ersetzt 
werden. 

Mensch ärgere Dich nicht besteht aus drei Teilen. Dem 
Lade-(Mensch), Anleitungs-(ärgere) und Hauptprogramm 
(Dich nicht). Die im Programm enthaltenen Unterprogramme 
sind durch REM-Zeilen gekennzeichnet. Die POKEs 808, 
774 und 775, die sich in den REM-Zeilen befinden, sollten 
erst nach dem Eintippen eingegeben werden, da sie die LIST- 
und die RUN/STOP-Reset-Funktion sperren. 

Die Namen der Teilprogramme (oben in Klammern ange¬ 
geben) sollten beim Eintippen beibehalten werden, da das 
Ladeprogramm die anderen Teile nachlädt. 

(Ralf Hahn / rg) 


10 REM MENSCH AERGERE DICH NICHT - LADER 
100 POKE 53281,0:POKE 53280,0 
120 PRINT"{CLR>":FOKE 211,7:P0KE 214,7:SYS 
58640:POKE 646,1 

130 PRINT"{WHITEJM{RED>E{CYANIN{PURPLE>S{G 
REEN > C{BLUE >H{SPACE,YELLOW >A{ORANGEJE{ 
BROWN >R{LIG.RED >G{GREY 1>E{LIG.GREEN JR 
{LIG.BLUEIE 

140 PRINT"D{BLUE}I{YELLOW >C{RED >H{SPACE, GR 
EY 3>N{LIG.RED>I{YELLOW>C{BLUE>H{WHITE 
>T" 

150 PRINT"{6RIGHT, 


160 PRINT"T3D0WN,GREY 3,SPACE>BRAUCHEN SIE 
EINE SPIELANLEITUNG? (J/N)" 

170 GET AS:IF AS=""THEN 170 
180 IF AS="J"THEN PS="AERGERE":GOTO 210 
190 IF AS="N"THEN PS="DICH NICHT":GOTO 210 
200 GOTO 170 

210 PRINT"{CLR,9D0WN,12RIGHT1BITTE WARTEN" 
220 Q=PEEK(186) 

230 F'RINT" {HOME, BLACK >LOAD" ; CHRS (34) ; PS; CH 
RS(34);",";Q:PRINT"{4D0WN1RUN" 

240 POKE 23040,0:POKE 43,1:POKE 44,90 
250 POKE 198,5:POKE 631,19:P0KE 632,13:P0K 
E 633,13:POKE 634,13:P0KE 635,0:NEW 


<150> 

<099> 

<059> 


<224> 


<237> 

<107> 

<205> 

<236> 

<042> 

< 142> 
<240> 

< 112 > 
<215> 

<207> 
< 136> 

<092> 


Listing »Lade-Mensch« 


10 REM ***********#***************„***** 
20 REM * » 

30 REM * —MENSCH AERGERE DICH NICHT— * 

40 REM * VON * 

50 REM * RALF HAHN * 

60 REM * LUISENTHALERSTRASSE 32 * 

70 REM * 6623 ALTENKESSEL * 

80 REM * » 

90 REM ********************************* 
100 POKE 53280,0:POKE 53281,0:POKE 774,226 
:POKE 775,225 

110 REM P0KE774,226:POKE775,225 LISTSPERRE 
120 PRINT"{CLR>":POKE 211,14:P0KE 214,24:S 
YS 58640 

130 PRINT"{GREY 3)ANLEITUNG" 

140 PRINT"{13RIGHT> ****»****«« “ 

150 PRINT"{2D0WN>* MENSCH AERGERE DICH NIC 
HT WIRD MIT{6SPACE,DOWN>2—4 PERSONEN G 
ESPIELT." 

160 PRINT"{2D0WNJ* JEDER SPIELER ERHAELT 4 
FIGUREN{9SPACE,DOWN>EINER FARBE." 

170 PRINT"{2D0WN>* ZIEL DES SPIELES IST ES 
ALLE 4 FIGUREN{2SPACE,DOWN)IN UHRZEIG 
ERRICHTUNG"; 

180 PRINT" UM DAS SPIELFELD" 


Listing »Anleitungs-ärgere« 


< 141 > 
<069> 
<055> 

< 173> 
<067> 
<028> 
<029> 

< 129> 

<221 > 

<058> 

< 020 > 

< 220 > 

<185> 

<015> 


<058> 

<227> 


< 200 > 

< 202 > 


92 
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190 PRINT"{D0WN,2SPACE1ZU BEWEGEN UND DIE 

GLEICHFARB IGEN" <176> 

200 PRINT"{D0WN,2SPACE!FELDER IN DER MITTE 

ZU ERREICHEN. <118> 

210 POKE 198,0-.WAIT 198,1 <182> 

220 PRINT"{2D0WNI* WUERFELT MAN EINE '6' S 
O DARF MAN EINE<2SPACE,D0WN>NEUE FIGUR 
•ANSETZEN<116> 
230 PRINT“{DOWN,2SPACE>DAS HEISST AUF DEN 
GLEICHFARBIGEN{7SPACE,DOWN!PFEIL IM SP 
IELFELD STELLEN." <127> 

240 PRINT"{DOWN,2SPACE1BEFINDEN SICH NOCH 
FIGUREN IN DEN{SPACE,DOWN,6SPACE!FELDE 
RN AM SPIELFELDRAND,SO"; <086> 

250 PRINT" MUSS MAN{4SPACE,DOWN>ZUERST DAS 
'LOCH'—DAS HEISST DEN PFEIL-{2SPACE,D0 
WN>FREIMACHEN." <197> 

260 PRINT"{2D0WN!* WER EINE '6' WUERFELT, 

DARF NOCHMAL C5SPACE,DOWN >WUERFELN. C3D0 
WN>“ <065> 

270 POKE 198,0:WAIT 198,1 <244> 

280 PRINT"{2DOWN}* TRIFFT EINE FIGUR AUF E 
IN BESETZTES{4SPACE,DOWN,SPACEJFELD, S 
O WIRD DIE DORT"; <161> 

290 PRINT" STEHENDE FIGUR{3SPACE,DOWN>'HER 

AUSGEWORFEN' -ZURUECK ZUM START." <088> 

300 PRINT"{2D0WN!* HAT EINE FIGUR DAS AEUS 
SERE KREUZ{7SPACE,D0WN>V0LLSTAENDIG UM 
ZOGEN,SO"; <112> 

310 PRINT" RUECKT SIE AUFI2SPACE,DOWN>DIE 
KREISE IHRER FARBE EIN UND DARF{5SPACE 
,DOWNJNICHT MEHR"; <141> 

320 PRINT" HERAUSGEWORFEN WERDEN." <111> 

330 PRINT"{2D0WN!* KANN EIN SPIELER NICHT 
ZIEHEN,WEIL ERC3SPACE,D0WN>EINE EIGENE 
FIGUR "s <105> 

340 PRINT"SCHLAGEN MUESSTE{6SPACE,DOWNJODE 

R DIE GEWUERFELTE ZAHL ZU GROSS IST" <243> 

350 PRINT"<2SPACE>-S0 IST DER NAECHSTE SPI 

ELER DRAN." <211> 

360 POKE 198,0:WAIT 198,1 <078> 

370 PRINT"{CLR,7D0WN,13RIGHTTNOCHMAL? (J/N 

)" < 203 > 

380 GET A*:IF A*=""THEN 380 <065> 

390 IF A*="N"THEN 420 <220> 

400 IF A*="J"THEN RUN <170> 

410 GOTO 380 <228> 

420 PRINT"<CLR,13RISHT,BD0WN>BITTE WARTEN" <197> 

430 PRINT"{HOME,BLACK1LOAD";CHR*(34 >;"DICH 

NICHT";CHR*(34);",“PEEK(186) <168> 

440 PRINT"{4DQWN>RUN" <118> 

450 POKE 198,5:P0KE 631,19:POKE 632,13:P0K 

E 633,13:POKE 634,13:P0KE 635,0:NEW <038> 

Listing »Anleitungs-ärgere« (Schluß) 


10 REM ********************************* <141> 
20 REM * * <069> 
30 REM * —MENSCH AERGERE DICH NICHT— * <055> 
90 REM ********************************* <221> 
100 REM DIMENSIONIEREN ****************** <195> 
110 REM P0KE657,128:P0KE774,226:P0KE775,25 

2 SHIFT-SPERRE <107> 
120 V=53248:POKE V+21,0 <003> 
130 DIM S<4),NA*<4>,ST(16),D(4),F*<4>,F(4) 

,DR(4),Z(16>,B<16>,ZF(16) <139> 
140 DIM PO(75),GE(75),FA(75) <250> 
150 PRINT"<CLR>" <138> 
160 FOR 1=1 TO 16:Z(I)=3:NEXT <147> 
170 D(1)=4:D(2> =4:D(3)=4:D(4)=4 <021> 
180 REM ZEICHENVERSCHIEBUNG ************* <048> 
190 FOR 1=51200 TO 51252 <206> 
200 READ X:POKE I,X:S=S+X:NEXT <146> 
210 DATA 120,165,1,72,41,251,133,1,169,208 

,133,3 <030> 
220 DATA 169,48,133,5,160,0,132,2,132,4,16 

2,32 <177> 
230 DATA-177,2,145,4,200,208,249,230,3,230 

,S t 202 -P <045> 
240 DATA 203,242,104,133,1,173,24,208,41,2 

41,9,1? . <037> 
250 DATA '541 r 24.,-208,88,96 <155> 
260 SYS 51200 - <166> 
270 RE« EINGABEMODUS ******************* <016> 
280 POKE 53-280,0: POKE 53281,0:T=20 <170> 


290 REM BUCHSTABENAENDERUNGEN ********** 

300 FOR 1=0 TO 2 

310 READ AS 

320 FOR X=0 TO 7 

330 READ DA 

340 POKE 12288+8*AS+X,DA 
350 NEXT X:NEXT I 

360 DATA 27,219,60,102,126,102,102,102,0 
370 DATA 85,102,0,102,102,102,102,60,0 
380 DATA 29,102,60,102,102,102,102,60,0 
390 N=0:C=0 

400 FOR 1=1 TO 4:READ F*(I>,F(I>:NEXT 
410 DATA "GELB",7,"BLAU",6,"GRÜN",5,"ROT", 
2 

420 PRINT"{CLR,GREEN,23D0WN,9SPACE>RALF HA 
HN{SPACE,ORANGE >PR CSENTIERT" 

430 FOR A=0 TO 20:GOSUB 630:NEXT:T=700 
440 PRINT"{HOME,5D0WN.GREY 3,7SPACE>MENSCH 
CRGERE DICH NICHT" 

450 FOR A=0 TO 20:FOR Z=1 TO 15:POKE 1231+ 
54272+1NT(25*RND(1)),Z:NEXT:NEX T 
460 PRINT"(2D0WN,YELLOW,14SPACE>ANMERKUNG: 
{2SPACE >" 

470 PR I NT "{1 5SPACE ! C.C.C.C.C.C.C.C.C.C.*.*- {4SPACE } " 
480 PRINT"{2D0WN,SPACE!DIESES SPIEL ENTSPR 
ICHT DEN REGELN," 

490 PRINT"{DOWN,12SPACEJNACH DENEN{SPACE,W 
HITEJICH " 

500 PRINT"{DOWN,7SPACE,REDJMENSCH CRGERE D 
ICH NICHT{YELLOW!" 

510 PRINT"{DOWN,16SPACE>SPIELE" 

520 PRINT"{2D0WN,SPACE>-ES KINNTEN ALSO DI 
FFERENZEN BESTEHEN" 

530 PRINT"{DOWN,16RIGHT,RVSQN>TASTE{RVOFF> 


<249 > 
<241 > 

< 149> 
<255> 

< 160 > 
<034> 

< 113> 

< 168> 
< 160> 
<046> 
<249> 
<251 > 

< 191 > 

<039> 

<052> 

<059> 

<038> 

<096> 

< 177> 

<073> 

<226> 

< 144> 

< 173> 

< 193> 

<083> 

<004> 






540 POKE 198,0:WAIT 198,1 
550 PRINT"{CLR,GREY 3,3D0WN,14SPACE!ANLEIT 

UNG" <231> 

560 PRTNT"{1TRPAflF,RED1 *********** {GREY 3> <173> 
570 PRINT“ {2D0WN!*GEWJJRFELT WIRD MIT{SPACE 

,RVSON!SPACE{RVOFF >." <253> 

580 PRINT”{DOWN>*DER COMPUTERSPIELER WUERF 
I ELT UND ZIEHT{SPACE,DOWN,SPACE1SELBSTS 

TCNDIG." <188> 

590 PRINT"{DOWN>*DIE FIGUR WIRD MIT{SPACE, 

RVSON > SPACE{RVOFF,SPACE > AUSGEWAEHLT{4S 
PACE,DOWN>UND MIT{SPACE,RVSONTRETURN{R 
VOFF,SPACE 5GEZOGEN. <005> 

600 PRINT"{3D0WN,RED>DAS WAR'S & DEN REST 

MACHT DER COMPUTER" <007> 

610 PRINT"{3D0WN,16RIGHT,WHITE,RVSONTTASTE 

{RVOFF!" <201> 

620 T=2000:POKE 198,0:WAIT 198,1:GOTO 640 <251> 

630 FOR B=0 TO T:NEXT:PRINT"{DOWN!";:RETUR 

N <201> 

640 PRINT"{CLR!" <120> 

650 N=0:C=0:A*="" <144 > 

660 FOR 1=1 TO 4 <124> 

670 POKE 53280,F(I>:PRINT”{CLR,3D0WN,WHITE 
,3SPACE!M3CHTE EIN SPIELER ";F*(I);" H 
ABEN?{SPACE,RVSON!J{RVOFF!/{RVSON!N{RV 
OFF!" <243> 

680 GET A*:IF A*="“THEN 680 <207> 

690 IF A*="J"THEN N=N+1:S(I)=2:GOTO 810 <066> 

700 IF A*="N"THEN 720 <032> 

710 GOTO 680 <042> 

720 PRINT"{2D0WN,4SPACE!S0LL DER COMPUTER 
DEN SPIELER":PRINT SPC(9);"{DOWN1ÜBERN 
EHMEN?{SPACE,RVSON!J{RVOFF1/{RVSON!N{R 
VOFF! <210> 

730 GET A*:IF A*=""THEN 730 <223> 

740 IF A*="J"THEN C=C+1:S(I)=1:ON C GOTO 7 

70,780,790,B00 <137> 

750 IF A*="N"THEN:S(I)=0:GOTO 850 <150> 

760 GOTO 730 <020> 

770 NA*(I)“"COMPUTER l":GOTO 850 <188> 

780 NA*(I)="COMPUTER 2":GOTO 850 <202> 

790 NA*(I)“"COMPUTER 3":GOTO 850 <216> 

800 NA*(I)="COMPUTER 4":GOTO 850 <223> 

810 PRINT"{2DOWN,SPACE1BITTE GEBEN SIE DEN 
NAMEN DES SPIELERS":PRINT"{DOWN,RIGHT 
,SPACE!EIN! "; <104> 

Listing »Hauptprogramm-Dich nicht«. Diese Listings 
bitte nur mit dem Checksummer 64 V3 in diesem Heft 
eingeben. 
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-ABER HÖCHSTENS 10 BUCHSTABEN!CD 


B20 PRINT 
OWN>" 

830 POKE 19,64:INPUT NA*:POKE 19,0 
840 NA*(I> =LEFT*(NA*,10) 

850 PRINT" CDDMNl .C.C.C.CCCCCCCCCCCCCCCCCCCcnrn 
C-CC-C.C-CCC.C.C.C.C,CC" : NEXT: POKE 53280,0 
860 IF N+C<2 THEN PRINT“ICLR,6RIGHT,4D0WN> 
2 SPIELER BRAUCHT MAN SCHONM":DU=1:GO 
TO 880 

870 PRINT"<CLR>":GOTO 890 
880 FOR Z=1 TO 1000:NEXT:GOTO 640 
890 PRINT"<CLR,3D0WN>":FOR Q =1 TO 4 
900 IF S(Q)=0 THEN NA*<Q)="NICHT BELEGT" 
910 PRINT"<2D0WN, 8 RIGHTJSPIELER";Q:": NA 

*(Q) 

920 NEXT 

930 PRINT"C2D0WN.8RIGHT>EINGABEN KORREKT? 
J/N"; 

940 GET A*:IF A*=""THEN 940 
950 IF A*="J"THEN PRINT"<5LEFT>!<4SPACE>": 
GOTO 980 

960 IF A*="N" THEN RUN 
970 GOTO 940 

980 REM ZEICHENAENDERUNGEN ************* 

990 FOR 1=0 TO 27 

1000 READ AS 

1010 FOR X=0 TO 7 

1020 READ DA 

1030 POKE 12288+8*AS+X,DA 
1040 NEXT X:NEXT I 
1050 DATA 35,0,0,0,7,31,63,127,127 
1060 DATA 36,0,0,0,224,248,252,254,254 
1070 DATA 37,127,127,63,31,7,0,0,0 
1080 DATA 38,254,254,252,248,224,0,0,0 
1090 DATA 81,0,0,0,7,24,32,64,64 
1100 DATA 82,0,0,0,224,24,4,2,2 
1110 DATA 83,64,64,32,24,7,0,0,0 
1120 DATA 84,2,2,4,24,224,0,0,0 
1130 DATA 86,1,7,15,15,15,7,3,3 
1140 DATA 87,128,224,240,240,240,224,192,1 
92 

1150 DATA B8,7,7,15,15,31,31,15,0 
1160 DATA 89,224,224,240,240,248,248,240,0 
1170 DATA 39,0,0,0,7,31,62,124,122 
1180 DATA 40,0,0,0,224,248,124,62,94 
1190 DATA 41,126,126,62,31,7,0,0,0 
1200 DATA 42,126,126,124,248,224,0,0,0 
1210 DATA 68,0,0,0,7,31,63,127,124 
1220 DATA 69,0,0,0,224,248,124,190,30 
1230 DATA 70,124,127,63,31,7,0,0,0 
1240 DATA 71,30,190,124,248,224,0,0,0 
1250 DATA 72,0,0,0,7,31,62,126,126 
1260 DATA 73,0,0,0,224,248,124,126,126 
1270 DATA 74,122,124,62,31,7,0,0,0 
1280 DATA 75,94,62,124,248,224,0,0,0 
1290 DATA 76,0,0,0,7,31,62,125,120 
1300 DATA 77,0,0,0,224,248,252,254,30 
1310 DATA 78,120,125,62,31,7,0,0,0 
1320 DATA 79,30,254,252,248,224,0,0,0 
1330 REM BILDAUFBAU ******************** 
1340 PRINT"CCLR,7D0WN,3RIGHT.WHITE>MENSCH" 

5 SPC (8 >; "CRGERE":PRINT"C8D0WN,3RIGHT > 
DICH "5 SPC(11);"NICHT" 

1350 PRINT"C9RIGHT>":PO(0)=1532 
1360 FOR 1=1 TO 16:READ PO:READ FA:PO(I)=P 
0:FA(I)=FA 

1370 IF S(INT((I—l)/4)+l)=0 THEN GE(I)=35: 

GOTO 1390 
1380 GE(I )=86 
1390 NEXT 
1400 GE=81:FA=12 

1410 FOR 1=17 TO 56:READ PO:PO(I)=P0:GE(I) 
=GE:FA(I)=FA 
1420 NEXT 
1430 GE=35 

1440 FOR 1=57 TO 72:READ PO:READ FA:PO(I)= 
PO:GE(I> =GE:FA(I)=FA 
1450 NEXT 

1460 GE(17)=72:FA<17)=7 


<015> 
<201 > 
<208> 

<049> 


<043> 
<028> 
< 001 > 
<216> 
<051 > 

<007> 

<168> 

<004> 

<053> 

<255> 
<224> 
<008> 
<204> 
< 222 > 
<075> 
< 181 > 
<086> 
<218> 
<041 > 
<058> 
<251 > 
<085> 
<225> 
<024> 
<057 > 

< 149> 
<223> 

< 162> 

<233> 

<111> 

< 125> 
<026> 

< 223 > 
<228> 

< 135> 
< 022 > 
<078> 

< 162> 
<248> 

< 170> 
<213> 
<088> 
<097> 

< 188> 

< 128> 
<208> 
<188> 

< 171 > 


<008> 

< 159> 

<077> 

< 186> 

< 167> 

< 130> 

< 162> 

< 210 > 
< 160> 
< 197> 


< 114> 

< 190> 
<001 > 


1470 GE(27)=76:FA(27)=6 
1480 GE(37)=39:FA(37)=5 
1490 GE(47)= 68 :FA(47 )=2 
1500 FOR 1=1 TO 72 

1510 POKE PO(I>,GE(I>:POKE PO(I)+54272,FA( 
I) 

1520 POKE PO(I)+1,GE(I)+1:POKE P0(I)+54273 
,FA(I) 


<180> 
<090> 
<239> 
< 125> 

<035> 

<092 > 


1530 POKE PO(I)+40,GE(I)+2:POKE P0(I)+5431 

2, FA(I> 

1540 POKE PO(I)+41,GE(I)+3:POKE P0(I)+5431 

3, FA(I> 

1550 NEXT 

1560 FOR 1=1 TO 16:GE(I> =35:NEXT 
1570 FOR 1=1090 TO 1930 STEP 40:POKE 1,93- 
POKE 1+54272,5:NEXT 

1580 POKE 1650,107:FOR 1=1651 TO 1663:POKE 
1,67:POKE 1+54272,5:NEXT 
1590 DATA 1162,7,1165,7,1242,7,1245,7,1722 
,6,1725,6,1802,6,1805,6 
1600 DATA 1707,5,1710,5,1787,5,1790,5,1147 
,2,1150,2,1227,2,1230,2,1078 
1610 DATA 1158,1238,1318,1398,1400,1402,14 
04,1406,1486,1566,1564,1562,1560,1558 
1620 DATA 1638,1718,1798,1878,1876,1874,17 
94,1714,1634,1554,1552,1550,1548,1546 
1630 DATA 1466,1386,1388,1390,1392,1394,13 
14,1234,1154,1074,1076 
1640 DATA 1156,7,1236,7,1316,7,1396,7,1484 
,6,1482,6,1480,6,1478,6 
1650 DATA 1796,5,1716,5,1636,5,1556,5,1468 
,2,1470,2,1472,2,1474,2 
1660 REM GRUNDSTELLUNGEN *************** 
1670 FOR 1=1 TO 16:ST(I)=1:NEXT 
1680 V=53248:POKE V+16,126 
1690 POKE 2040,184:POKE V+39,1 
1700 POKE V+23,126:POKE V+29,126 
1710 FOR Z=2 TO 12 STEP 2:POKE V+Z,15:P0KE 
V+Z+l,195:POKE V+39+Z/2.15 
1720 POKE 2040+Z/2,184+Z/2:NEXT 
1730 POKE 211,30:POKE 214,2:SYS 58640:PRIN 
T"tWHITETMENSCH":PRINT"C2D0WN,10LEFT, 
GREY 2>CRGERE" 

1740 PRINT"<2D0WN,9LEFT,GREY 2JDICH":PRINT 
"C2D0WN,10LEFT,GREY 1JNICHT!";"C2D0WN 
,5LEFT,GREY 3JV0N"; 

1750 PRINT"<2D0WN, 6 LEFT,WHITEJRALF HAHN(WH 
ITEJ" 

1760 FOR Z=0 TO 6 

1770 FOR N=0 TO 62 :READ Q:POKE 11776+Z*64 
+N,Q:NEXT:NEXT 

1780 DATA 63,255,252,32,0,4,32 
1790 DATA 0,4,32,0,4,32,0 
1800 DATA 4,32,0,4,32,0,4 
1810 DATA 32,0,4,32,0,4,32 
1820 DATA 0,4,32,0,4,32,0 
1830 DATA 4,32,0,4,32,0,4 
1840 DATA 32,0,4,32,0,4,32 
1850 DATA 0,4,32,0,4,32,0 
1860 DATA 4,32,0,4,63,255,252 
1870 DATA 7,255,254,15,255,253,31 
1880 DATA 255,251,63,255,247,127,255 
1890 DATA 239,0,0,31,127,255,223 
1900 DATA 127,255,223,127,255,223,127 
1910 DATA 255,223,127,255,223,127,255 
1920 DATA 223,127,31,223,127,31,223 
1930 DATA 127,31,223,127,255,223,127 
1940 DATA 255,222,127,255,220,127,255 
1950 DATA 216,127,255,208,127,255,192 
1960 DATA 7,255,254,15,255,253,31 
1970 DATA 255,251,63,255,247,127,255 
1980 DATA 239,0,0,31,127,255,223 
1990 DATA 127,248,223,127,248,223,127 
2000 DATA 248,223,127,255,223,127,255 
2010 DATA 223,127,255,223,127,255,223 
2020 DATA 127,255,223,127,255,223,127 
2030 DATA 255,222,99,255,220,99,255 
2040 DATA 216,99,255,208,127,255,192 
2050 DATA 7,255,254,15,255,253,31 
2060 DATA 255,251,63,255,247,127,255 
2070 DATA 239,0,0,31,127,255,223 
2080 DATA 127,248,223,127,248,223,127 
2090 DATA 248,223,127,255,223,127,255 
2100 DATA 223,127,31,223,127,31,223 
2110 DATA 127,31,223,127,255,223,127 
2120 DATA 255,222,99,255,220,99,255 
2130 DATA 216,99,255,208,127,255,192 
2140 DATA 7,255,254,15,255,253,31 
2150 DATA 255,251,63,255,247,127,255 
2160 DATA 239,0,0,31,127,255,223 
2170 DATA 99,248,223,99,248,223,99 
2180 DATA 248,223,127,255,223,127,255 
2190 DATA 223,127,255,223,127,255,223 
2200 DATA 127,255,223,127,255,223,127 
2210 DATA 255,222,99,248,220,99,248 
2220 DATA 216,99,248,208,127,255,192 


<244> 

< 136> 
<036> 
<094> 

<213> 

< 151 > 

< 115> 
< 022 > 
<065> 
<156> 
<016> 
<027> 

< 105> 
<033> 

< 162> 

< 133> 
<093> 
<031 > 

<059> 

< 109> 

< 199> 

<130> 

<052> 

<057> 

< 159> 

< 185> 

< 105> 

< 120 > 

< 193> 

< 137> 

< 150> 
<223> 

< 167> 
<234> 

< 115> 
<158> 
<014> 
<034> 
<036> 

< 172> 

< 171 > 
<224> 

< 124> 
<205> 
<248> 

< 104> 
< 210 > 
<207> 
<024 > 

< 154 > 

< 106> 
<227 > 
<041 > 
<084> 

< 196> 
< 000 > 
<043> 
<09B> 
<097> 
<19B> 
<063> 

< 131 > 

< 174> 
<030> 
< 122 > 

< 133> 
<206> 
<080> 

< 183> 

< 193> 
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2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 


DATA 7,255,254,15,255,253,31 
DATA 255,251,63,255,247,127,255 
DATA 239,0,0,31,127,255,223 
DATA 99,248,223,99,248,223,99 
DATA 248,223,127,255,223,127,255 
DATA 223,127,31,223,127,31,223 
DATA 127,31,223,127,255,223,127 
DATA 255,222,99,248,220,99,248 
DATA 216,99,248,20B,127,255,192 
DATA 7,255,254,15,255,253,31 
DATA 255,251,63,255,247,127,255 
DATA 239,0,0,31,127,255,223 
DATA 99,248,223,99,248,223,99 
DATA 248,223,127,255,223,127,255 
DATA 223,99,248,223,99,248,223 
DATA 99,248,223,127,255,223,127 
DATA 255,222,99,248,220,99,248 
DATA 216,99,248,208,127,255,192 
REM STECHEN *********************** 

IF PEEK(PO(K) >018 THEN SYS 6473B:REM 
" (14DEL, SPACE 3.K=0 

POKE 211,0tPOKE 214,24:SYS 58640 

PRINT"WÜRFELN WIR UMS ANFANGEN!CUP>": 

FOR 1=1 TO 1000 :NEXT 

A=INT(RND(1> *4+3):G=INT(4*RND(1)> +1 

IF S(G)=0 THEN 2450 

FOR Q=1 TO 4:J=Q 

IF S(Q)=0 THEN 2550 

POKE 646,FCQ)SPRINT"<4SPACE>";NA*(Q>; 
" IST DRAN!<10SPACE,UP>":POKE V+21,0 
IF S<Q> =1 THEN FOR 1 = 1 TO 1000:NEXT:G 
OTO 2520 

POKE 198,0:WAIT 198,1 
IF Q=S THEN W=A:GOSUB 2870:GOTO 2550 
W=RND(1)*A:W=INT(W):IF W=0 THEN W=1 
GOSUB 2870 


2550 NEXT 

2560 POKE V+21,0 

2570 POKE 646,F(G):PRINT“(4SPACEJ ";NAS (G); 

'• HAT GEWONNEN! (9SPACE, UP > “ 

25B0 FOR 1=1 TO 800:NEXT 
2590 J=G:GOTO 2640 

2600 REM SPIELSCHLEIFE ***************** 
2610 J=0 

2620 J=J+1:IF J=5 THEN J=1 
2630 IF S<J)=0 THEN 2620 

2640 IF D(J)=4 THEN GOSUB 3360:GOTO 2720 
2650 IF D CJ)<4 AND DR(J>>0 AND D(J)+DR(J>= 
4 THEN 2670 
2660 GOTO .2710 

2670 SP=0:FOR I=56+4*J TO 56+4*J+l-DR(J> S 
TEP-1 

2680 IF PEEK(PO(I>)=86 THEN SP=SP+1 
2690 NEXT 

2700 IF SP=DR < J > THEN GOSUB 3360:GOTO 2720 

2710 GOSUB 2800:AS=0 

2720 IF WU=6 THEN GOSUB 3470 

2730 IF WU=6 THEN GOSUB 3470 

2740 IF WU=6 THEN GOSUB 3470 

2750 IF AS=1 THEN AS=0:GOTO 2620 

2760 GOSUB 2950 

2770 IF S(J>=1 THEN GOSUB 3700 
2780 IF S (J)=2 THEN GOSUB 3130 
2790 GOTO 2620 

2800 REM WUERFELN ********************** 
2810 POKE 646,F(J):POKE V+21,0 
2820 PRINT"<17RIGHT,18SPACE,UP >“ 

2830 PRINT NA*(J)j" IST DRAN!<16SPACE,UP>“ 
:W=INT(6*RND(1)> + 1 
2840 WU=W 

2850 IF S(J)=1 THEN FOR 1=1 TO 1200:NEXT:G 
OTO 2870 

2860 IF JOS THEN POKE 198,0:WAIT 198,1 
2870 S1=54272:POKE 54277,5:POKE 54278,0:PO 
KE 54296,15 

2880 FOR Z=1 TO 8:FOR T=1 TO 50:NEXT 
2890 POKE 54279,100:POKE SI+8,8:P0KE SI+12 
,0:POKE SI+11,129:POKE SI+13,16:POKE 
SI+4,0 

2900 POKE SI+1,6:POKE SI+4,129:POKE SI+24, 
15:POKE SI+24,15:P0KE SI+11,0:NEXT 
2910 POKE V+21,2TW 

2920 POKE 54276,0:POKE 54277,0:POKE 54278, 
0 

2930 FOR 1=1 TO 1000:NEXT 
2940 RETURN 

2950 REM FIGUREN SPERREN *************** 


<221 > 

2960 

<008> 

2970 

< 120> 

2980 

<212> 

2990 

<223> 


<022> 

3000 

<021 > 


<017> 

3010 

<029> 


<057> 

3020 

<100> 

3030 

<212> 


<048> 

3040 

<059> 

3050 

<036> 

3060 

<201 > 

3070 

< 109> 

3080 

< 119> 

3090 

< 185> 

3100 

<161 > 

3110 

<004> 

3120 


3130 

<044> 

3140 

<025> 

3150 

< 196> 


<254> 

3160 

<034> 

3170 


3180 

< 194> 

3190 


3200 

<051 > 


< 196> 

3210 

<247> 

3220 

<074> 


<05B> 


<018> 

3230 

< 166> 

3240 


3250 

< 174> 

3260 

< 154> 

3270 

<132> 

3280 

<233 > 

Hjnfifaa» 

<007> 

3290 

<009> 

3300 

<177 > 


<243> 

3310 

< 112> 

3320 

<212> 

3330 

<158> 

3340 

<070> 

3350 

< 160> 

3360 

<223> 

3370 

<0B5> 


<03B> 

3380 

<048> 

3390 

<058> 


<243> 

3400 

<232> 

3410 

<240> 

3420 

<251 > 

3430 

< 102> 


< 193> 

3440 

<212> 

3450 

<020> 

3460 


3470 

<213> 

3480 

<074> 

3490 


3500 

< 195> 

3510 

<006> 

3520 


3530 

<252> 

3540 

<050> 



3550 


3560 

< 118> 

3570 

<213> 

3580 

< 194> 

3590 

<099> 

3600 

<051 > 

3610 

<204> 


<168> 

Listir 


FOR I=(J-1)*4+1 TO J*4:Z(I)=3 
IF ST<1X17 THEN ZCI)=0:GOTO 3110 
IF J=1 THEN 3010 

IF ST(I)+WU>56 AND ST<I)<=56 THEN W=W 
U—40:GOTO 3010 

IF ST(I)+WU>J*10+6 AND ST <I)<=J*10+6 
THEN W=WU+46—6*J 

IF ST(I>+W>56+J*4 THEN Z(I)=0:GOTO 31 
10 

IF RS=1 THEN RETURN 

IF ST(I)<=56 AND ST(I)+W>56 AND STCI) 

+W<=56+J*4 THEN Z(I>=2 

FO=0:FOR FI=1 TO 16 

IF ST(I> +W=ST(FI)THEN FO=FI 

NEXT FI:IF FO=0 THEN 3110 

F1 = INT <(I —l)/4)+l 

F2=INT(<F0—1)/4> +1 

IF F(Fl> =F(F2)THEN Z(I)=0:GOTO 3110 
IF ST(I) +W<=56+J*4 AND ZCI><>2 THEN Z 
<I)=1:ZF(I)=F0 
IF RS=1 THEN RETURN 
W=WU:NEXT I:RETURN 

REM EINGABE *********************** 

F=(J—1)*4 

IF Z <F+1)+Z <F+2> + Z(F+3)+Z(F+4)=0 THEN 
4660 

S=0:FOR Q=1 TO 4 

IF Z(F+Q)< >0 THEN S=S+5 

NEXT 

IF S>5 THEN 3220 

FOR Q=1 TO 4:IF Z(F+ß><>0 THEN A*=CHR 

S (13):F=(J—1)*4+Q:GOTO 3300 

NEXT 

POKE 646,F(J):PRINT"FIGURWAHL:(SPACE, 
RVSON>SPACE(RVOFF,3SPACE JEINGABE: ISPA 
CE,RVSON JRETURN(RVOFF, UP > " 

T=T+1:IF T>=5 THEN T=1 

F=(J—1)*4+T 

IF Z(F)=0 THEN 3230 

Y=(INT((PO(ST(F))—1024)/40> +1> *8 

X=(PO(ST(F))—983—5*Y> *8 

POKE V,X+12:POKE V+l,Y+40:POKE V+21,1 

+2TWU 

GET AS:IF AS=""THEN 3290 

IF AS=CHRS(13) THEN POKE V+21,0:GOTO 

3330 

IF AS=" "THEN W=WU:POKE V+21,2TWU:GOT 
O 3230 
GOTO 3290 

PRINT"(28RIGHT,11SPACE,UP J":RS=1:1=F: 
GOSUB 2980:RS=0 
GOSUB 4190 
RETURN 

REM 3-MAL WUERFELN **************** 

IF S(J)=1 THEN FOR 1=1 TO 1000:NEXT:G 
OTO 3380 
POKE V+21,0 

POKE 646,F(J):PRINT NAS(J>;" DARF 3-M 
AL W.URFELN! (4SPACE ,UP> " 

FÜR 1=1 TO 1300:NEXT 
FOR Q=1 TO 3 
GOSUB 2800 

IF S(J)=1 OR Q=3 THEN FOR 1=1 TO 1000 

:NEXT:GOTO 3440 

IF W=6 THEN GOSUB 3470:RETURN 

NEXT 

AS=1:RETURN 

REM ANSETZEN ********************** 
AS=1 

FOR F=(J—1)*4+1 TO 4*J 
IF ST <F)<17 THEN 3520 
NEXT 

IF D (J)=0 THEN 4460 
W=1 

GOSUB 2950:IF S(J)=2 AND D(J)=0 THEN 
GOSUB 3130 

IF S(J>=1 AND D (J)=0 THEN GOSUB 3700 
D(J)=D(J)—1:W=1 

POKE 646,F(J):PRINT NA$(J>;" MUSS ANS 
ETZEN!(8SPACE,UP >" 

FOR FI=1 TO 16 

IF ST(FI> =J*10+7 THEN Z(F)=1:ZF(F>=FI 

:GOTO 3610 

NEXT 

GOSUB 4190 


<208> 

<105> 

<095> 

<041 > 

< 133> 

< 156> 
<218> 

< 151 > 
<048> 

< 131 > 

< 148> 

< 146> 
<216> 

< 173> 

< 134> 

< 054 > 
<031 > 
<247> 

< 169> 

< 177> 
<235> 
<058> 

< 142> 
<239> 

< 103> 

< 172> 


<093> 

<019> 

<167> 

<204> 

< 085 > 
<019> 

<006> 
<231 > 

< 252 > 

<129> 

<037> 

< 235 > 

< 067 > 
<106> 
<223> 

<074> 

<224> 

<231 > 
<016> 
<015> 
< 210 > 

<056> 

< 126> 

< 158> 
<099 > 
<209> 

< 162> 
<180> 
< 168> 
<218> 
<241> 
<233> 

<077> 

<237> 

<097> 

<238> 
< 115> 

<025> 

<054> 

<083> 
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3620 IF D(J)=0 THEN GOSUB 2800:GOTO 4460 
3630 PRINT"LOCH FREIMACHEN!<17SPACE,UP)G 
OTO 3640 

3640 FOR 1=1 TO 1000 :NEXT:GOSUB 2800 
3650 GOSUB 2950:IF Z(F)=0 AND S(J)=2 THEN 
GOSUB 3130:GOTO 3680 

3660 IF Z <F)=0 AND S(J) = 1 THEN GOSUB 3700: 

GOTO 3680 
3670 GOSUB 4190 

3680 IF WU=6 THEN GOSUB 2800:AS=0 
3690 RETURN 

3700 REM DENKPHASE ********************* 
3710 W=WU:WU=W:F=(J-1)*4+1:GF=0 
3720 IF Z(F> +Z(F+l)+Z(F+2)+Z(F+3)=0 THEN 4 
660 

3730 FOR I=F TO F+3 

3740 IF Z(I)=0 THEN B(I>=0:GOTO 3870 
3750 RS=1:GOSUB 2980:RS=0:B(I>=0 
3760 SV=0:SN=0 

3770 IF ST(I1+W=17 AND D(1><>0 THEN B(I)=1 
:GOTO 3870 

3780 IF ST(I)+W=27 AND D(2><>0 THEN B(I)=1 
: GOTO 3870 

3790 IF ST(I)+W=37 AND D(3><>0 THEN B(I)=1 
:GOTO 3870 

3B00 IF ST(I)+W=47 AND D<4><>0 THEN B(I)=1 
:GOTO 3870 

3810 IF ST(I> =17 AND D(1)<>0 THEN B(I)=30: 
GOTO 3870 

3820 IF ST(I> =27 AND D(2><>0 THEN B(I)=30: 
GOTO 3870 

3830 IF ST<I)=37 AND D<3><>0 THEN B(I)=30: 
GOTO 3870 

3840 IF ST(I)=47 AND D(4><>0 THEN B(I)=30: 
GOTO 3870 

3850 IF Z <I)=1 THEN 3890 
3860 GOTO 3970 
3870 NEXT 
3880 GOTO 4130 

3890 REM SCHLAGEN ********************** 

3900 FOR FI=1 TO 16 

3910 IF I=FI THEN 3930 

3920 IF ST(FI1=ST(I)+W THEN 3940 

3930 NEXT 

3940 B(I)=ST(I)—J*10 

3950 IF B(I)<0 THEN B(I)=B(I>+40 

3960 GOTO 3870 

3970 REM LAGE VORHER ******************* 
3980 FOR FI=1 TO 16 
3990 IF I=FI THEN 4010 

4000 IF ST<FI)+6>=ST(I) AND ST(FI)<ST(I)TH 
EN SV=SV+1 
4010 NEXT 
4020 B(I)=SV*5 

4030 IF Z(I)=2 THEN B(I)=B<I>+50:GOTO 3870 
4040 REM LAGE NACHHER ****************** 
4050 FOR FI=1 TO 16 
4060 IF I=FI THEN 4080 

4070 IF ST (FI) +6>=ST(I> +W AND ST(FIXST(I> 
+W THEN SN=SN+1 
4080 NEXT 

4090 IF SN>SV THEN B(I)=2:GOTO 3870 
4100 IF SN=SV THEN B(I)=3:GOTO 3870 
4110 B(I)=4+(SV—SN)*3 
4120 GOTO 3870 

4130 REM AUSWAHL *********************** 
4140 W=WU:F=(J—1)*4+1:C=F 

4150 FOR I=F+1 TO F+3:IF B(C><B(I)THEN C=I 
4160 NEXT 

4170 F=C:I=F:RS=1:GOSUB 2980:RS=0:GOSUB 41 
90 

4180 RETURN 

4190 REM ZUGPHASE ********************** 
4200 IF Z(F>=1 THEN GOSUB 4530 
4210 IF ST(F)<=56 AND ST(F)+W>56 THEN DR(J 
>=DR(J)+1:WP=W:GOSUB 2950:W=WP 
4220 Y=(INT((PO(ST(F>1-1024)/40)+l>*8 
4230 X=(PO(ST(F))—983—5*Y)*8 
4240 POKE V,X+12:POKE V+l,Y+40:POKE V+21,1 
4250 FOR Z=1 TO 300:NEXT 
4260 POKE PO(ST(F)),GE(ST(F)) 

4270 POKE PO(ST(F>>+54272,FA(ST(F)) 

4280 POKE PO(ST(F))+l,GE(ST(F)>+l 
4290 POKE PO(ST(F))+54273,FA(ST(F)) 

4300 POKE PO(ST(F>)+40,GE(ST(F)> +2 
4310 POKE PO(ST(F)1+54312,FA(ST(F)) 

4320 POKE PO(ST(F)1+41,GE(ST(Fl 1+3 


< 107> 

<078> 

<026> 

<205> 

<033> 

<143> 

< 022 > 

< 192> 
<242> 
<234> 

< 122 > 
<077> 

< 159> 

< 212 > 

< 166> 

< 192> 
<211 > 
<230> 
<249> 
<046> 
<122> 

< 198> 

<021 > 
<028> 

< 118> 
<070> 

< 146> 
<029> 

< 183> 
<230> 
<000> 

< 130 > 
<226> 
<229> 
<202> 
<249> 
<007> 
<029> 

<200> 

<210> 

< 173> 
<217> 
<091 > 
<077> 
<127> 

<208> 

<024> 

<042> 

< 150> 
<077> 

< 108> 
<065> 
<020> 
<016> 
<106> 

<096> 

< 174> 
<250> 

< 145> 


<236> 
<029> 
<219> 
< 002 > 
<049> 
<207> 
<241 > 

< 134 > 
<007> 

< 118> 
<147> 
<206> 


4330 

4340 

4350 

4360 

4370 

4380 

4390 


4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 


4600 

4610 

4620 
4630 
4 - J 
4650 
4660 
4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 


POKE PO(ST(Fl)+54313,FA(ST(F)1 
IF ST(FX17 THEN ST(F)=J*10+6 
POKE V+21,0 

Y=(INT((PO(ST(Fl+W)-10241/40)+11*8 

X=(PO(ST(F)+W1-983—5*Y>*8 
POKE V,X+12:POKE V+l,Y+40:POKE V+21,1 
POKE PO(ST(F)+W),86:POKE PO(ST(F)+W)+ 
54272,F(J) 

POKE PO(ST(Fl+W1+1,87:POKE PO(ST(Fl+W 
1+54273,F(J1 

POKE PO(ST(F)+W)+40,88:POKE PO(ST(F)+ 
W)+54312,F(J) 

POKE PO(ST(Fl+W)+41,89:POKE PO(ST(F)+ 
W)+54313,F(J) 

ST(Fl=(ST(Fl+W) 

IF DR(J)=4 THEN GOSUB 4770 

FOR Z=1 TO 300:NEXT:POKE V+21,0:RETUR 

REM NOCHMAL WUERFELN ************** 
GOSUB 2950 

IF S(J1=2 THEN GOSUB 3130 
IF S(J)=1 THEN GOSUB 3700 
IF WU=6 AND D(J X >0 THEN GOSUB 3470:G 
OTO 2620 

IF WU=6 THEN GOSUB 2B00:WU=W:GOTO 446 
0 

RETURN 

REM SCHLAGEN ********************** 
WS=W:FF=F:F=ZF(F> 

J=INT((F—1)/4)+l:D(J)=D(J1+1 
W=F—ST(F) 

POKE 54276,0:POKE 54277,0:POKE 54278, 

FOR X=15 TO 0 STEP—2 

POKE 54296,X:POKE 54277,15:POKE 54278 

,0:POKE 54273,16:POKE 54272,80:POKE 5 

4276,129 

NEXT 

POKE 54276,0:POKE 54277,0:POKE 54278, 

GOSUB 4220 
W=WS:F=FF 
J=INT((F-ll/41+1 
RETURN 

REM NAECHSTER SPIELER ************* 
POKE 646,F(J):PRINT NA$(J);" KANN NIC 
HT ZIEHEN!£10SPACE,UP>" 

POKE 54296,15 

POKE 54277,25 

POKE 54278,150 

POKE 54273,3:POKE 54272,100 

POKE 54276,33 

FOR T=1 TO 200:NEXT 

POKE 54276,0:POKE 54277,0:POKE 54278, 

0 

FOR 1=1 TO 1000 :NEXT 
RETURN 

REM SPIELENDE ********************* 
POKE 646,F(J):PRINT NA*(J);" HAT GEWO 
NNEN!!!!!!<4SPACE,UP>" 

POKE 54296,15:FOR Z=1 TO 3 

POKE 54277,25 

POKE 54278,150 

POKE 54273,7:P0KE 54272,193 

POKE 54276,33 

FOR T=1 TO 200:NEXT 

POKE 54276,0:POKE 54277,0:POKE 54278, 

0:NEXT 

POKE 54277,25:POKE 54278,150:POKE 542 
73,6:POKE 54272,39:POKE 54276,33 
FOR T=1 TO 500:NEXT:POKE 54276,0:POKE 
54277,0:POKE 54278,0 
POKE 198,0:WAIT 198,1 
DR(J)=0:S(J)=0 

IF S(11+S(2> +S(3)+S(41=0 THEN 4960 
PRINT"ISPACE,WHITE,SPACEJSOLL ICH WEI 
TERSPIELEN? J/N<SPACE,UP>" 

GET A*:IF A*=""THEN 4920 
IF A*="J"THEN 4970 
IF A*="N"THEN 4960 
GOTO 4920 

PRINT" C5SPACE, WHITE>-SPIELENDE 


< 169> 
<095> 
<176> 
<225> 
<233> 

< 144> 

< 128> 
<094> 
<235> 

<062> 

< 179> 
<076> 

< 179> 
<103> 

< 164> 
<173> 
<182> 

< 158> 

<20B> 

<004> 

< 161 > 
<251 > 

< 139> 
<019> 

<225> 

< 128> 


<071 > 
<036> 

< 011 > 

< 124 > 
<019> 
<023> 
<136> 

< 128> 

< 113> 

< 199> 
< 210 > 
< 220 > 
<136> 

< 106> 

< 101 > 

< 141 > 
<093> 
<246 > 
<009> 

<0B1> 

< 183> 
<064> 
<074> 
<118> 
<216> 
<211 > 

<238> 

<230> 

< 146> 
<026> 
<016> 

< 163> 

<249> 

< 178> 

< 104> 
< 100 > 
<040> 


N 


- <UP >”:POKE 198,0:WAIT 198,1:RU 


4970 PRINT"(35SPACE,UP}":RETURN 

Listing »Hauptprogramm-Dich nicht« (Schluß) 


<031 > 
<057> 
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C 64 

Monopoly 
mit Computer 

Perfekt ist diese Umsetzung eines 
bekannten Brettspieles. Alle Regeln 
des original Monopoly sind bis ins 
kleinste Detail in das Programm über¬ 
nommen worden. Fehlende Mitspieler 
ersetzt der Computer. 

Mit diesem Programm, das bis auf ein paar Bytes fast den 
kompletten Basic-Speicher des C 64 benötigt, können ein bis 
vier Personen Monopoly spielen. Es beinhaltet bis ins kleinste 
Detail die gesamten Monopoly-Regeln. Das Programm ist so 
ausgelegt, daß immer zu viert gespielt wird. Spielen weniger 
als vier Personen mit, dann werden die restlichen vom Com¬ 
puter gespielt. Wird das Programm gestartet, so erscheinen 
zunächst einige notwendige Erläuterungen. Die Kenntnis der 
Monopoly-Regeln wird vorausgesetzt. Währenddessen wer¬ 
den die Daten aus den Zeilen 26000 bis 26650 eingelesen. 
Danach wird die Grafik aufgebaut (Zeilen 510 bis 1000). Nun 
muß die Spielzeit, die Anzahl der Mitspieler und deren Namen 
eingegeben werden (1100 bis 1995). Danach beginnt das 
Spiel (Hauptschleife: 3000 bis 3996), indem der erste Spie¬ 
ler nach seinen Aktivitäten gefragt wird. Zur Auswahl stehen: 

1. Würfeln 

2. Eine Hypothek zurückzahlen 

3. Ein Verkaufs- oder Tauschangebot an einen Mitspieler 
machen 

4. Häuser kaufen 

Zum Würfeln: 

Die Spielfigur (der Anfangsbuchstabe des Namens des 
Spielers) wird um die von den beiden Würfeln am unteren 
Bildrand angezeigte Augenzahl vorgerückt. Trifft der Spieler 
auf eine Straße, die noch nicht verkauft ist, wird er gefragt, ob 
er sie kaufen will. Besitzt sie bereits ein anderer, muß er Miete 
zahlen. Ereignis- und Gemeinschaftskarten werden im Text¬ 
fenster angezeigt und die eventuellen Transaktionen ausge¬ 
führt. 

Zur Hypothek: 

Hat der Spieler inzwischen wieder genug Geld, so kann er 
jetzt eine aufgenommene Hypothek wieder zurückzahlen. 

Zum Angebot: 

Hat ein Mitspieler eine Straße, die man brauchen könnte, so 
kann man versuchen, sie ihm abzukaufen oder gegen eine 
andere zu tauschen. Die Differenz im Kaufpreis zwischen 
zwei Straßen muß beim Tauschen dazubezahlt werden. Auch 
die vom Computer simulierten Spieler machen solche An¬ 
gebote. 

Zum Kaufen: 

Will man Häuser kaufen, dann muß man zunächst die erste 
Straße des entsprechenden Straßenzuges und dann die 
Anzahl der Häuser, die auf jede der Straßen gebaut werden 
sollen, eingeben. 

(=Jüt=0* 


Brettspiele 


Kommt ein Spieler im Laufe des Spiels in finanzielle 
Bedrängnis, zum Beispiel wenn er mehr Miete zahlen muß als 
er Bargeld besitzt, hat er folgende Möglichkeiten: 

— Hypotheken aufnehmen 

— Straßen verkaufen 

— Häuser verkaufen 

Das Spiel ist zu Ende, wenn entweder die vorher bestimmte 
Spielzeit erreicht ist, oder wenn der Sieger bereits vorher 
feststeht, weil die drei Mitspieler pleite sind. 

Das Endergebnis wird in einer Grafik angezeigt. 

(Peter Fink/ rg) 


Variable 

Bedeutung 

SN$(A) 

Straßenname der Straße Nr. A 

PR(A) 

Preis der Straße Nr. A 

MI(A.B) 

Miete auf der Straße Nr. A mit B Häusern 

BE(A) 

Besitzer der Straße Nr. A 

AR$(A) 

Artikel der Straße Nr. A im Akkusativ 

AT$(A) 

Artikel der Straße Nr. A im Dativ 

GW(Z) 

Anzahl der Warterunden im Gefängnis des Spielers Z 

SB(A) 

Anzahl der Häuser auf der Straße Nr. A 

FA(A) 

Farbnummer der Straße Nr. A (siehe unten) 

KP(Z,X) 

Anzahl der Straßen der Farbe X, die der Spieler Z besitzt 

HY(A) 

= i; wenn auf der Straße Nr. A eine Hypothek ist 

GE(Z) 

Kapital des Spielers Z 

<31 (Z) 

Geldwert des Besitzes von Spieler Z 

GG(Z) 

= G1(Z)+GE(Z) 

SP§(Z) 

Name des Spielers Z 

PO(Z) 

Standort des Spielers Z 

PG(Z) 

= 1, wenn Spieler Z im Gefängnis ist 

ER$(N,M) 

N-te Zeile des Textes von Ereigniskarte Nr. M 

GE$(N,M) 

N-te Zeile des Textes von Gemeinschaftskarte Nr. M 

V(l) 

Hilfsvariable zum Mischen der Karten 

KN;." 

Spielfeldkoordinate der Straße Nr. A 

FB(A) 

Spielfeldfarbe der Straße Nr. A 

ZE(A) 

Zeichen (ASCII) der Straße Nr. Aauf dem Spielfeld 

ST(X,C) 

Nummer der C-ten Straße der Straßenreihe der Farbe X 

BB$(B) 

Symbol für eine Straße mit B Häusern 

FP 

»Frei-Parken-Jackpot« 

TT 

gespielte Zeit 

AN 

Anzahl der Spieler 

RU 

gesamte Spielzeit 

SR$, SU$ 

Cursorfunktionen für Textfenster 

WPS: 

= " PASCH ", wenn der Spieler einen Pasch gewürfelt hat 

EZ, GZ 

Nr. der Ereignis- beziehungsweise Gemeinschaftskarte, 
die als nächstes kommt 

LO 

= 1, wenn ein Spieler über LOS kommt 

RES 

= 40x Cursor rechts 

UNS 

= 25x Cursor nach unten 

GT 

Gesamtzahl der Häuser auf dem Spielfeld 

PY 

Preis der zu bezahlen ist 

Alle übrigen sind Lauf- und Hilfsvariablen. 

Variablenliste »Monopoly« 


Farbnummern 

Straßen 

1 dunkelblau 

Badstraße usw. 

2 cyan 

Chausseestraße usw. 

3 violett 

Seestraße usw. 

4 orange 

Münchner Straße usw. 

5 rot 

Museumsstraße usw. 

6 gelb 

Schillerstraße usw. 

7 grün 

Rathausplatz usw. 

8 hellblau 

Parkstraße usw. 

9 

Bahnhöfe 

10 

Elektrizitäts- und Wasserwerk 

Farbnummern der Straßenzüge 
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C 64 


99 - 

440 

510 - 

1000 

1100 - 

1190 

1195 - 

2995 

3000 - 

3996 

Im einzelnen: 

3000 - 

3030: 


Kurzbeschreibung des Listings 

Zeile 

Anzeige der Erläuterungen 
Aufbau der Grafik 

422, 440 und 1000: Einlesen der Daten 
Eingabe der Spielzeit, der Anzahl der Spieler und 
der Namen 

Initialisierung verschiedener Variablen 
Hauptschleife 


Aufruf der Unterprogramme Kapital anzeigen, 
Name anzeigen, Löschen der linken Seite, Stand¬ 
ort anzeigen und Besitz anzeigen 
Abfrage, ob der Spieler im Gefängnis ist 
Abfrage, ob ein vom Computer simulierter Spieler 
an der Reihe ist 
Abfrage der Aktivitäten 
Aufruf UP (Unterprogramm) »Würfeln« 

Aufruf UP »Bewegen der Spielfigur« 

Aufruf UP »Neuer Standort« 

Abfrage, ob bestimmte Orte erreicht wurden und 
Aufruf des entsprechenden UPs 
Anzeige des neuen Kapitals, der Zeit und des 
Jackpots 

Abfrage, ob ein Pasch gewürfelt wurde; Warte¬ 
schleife; Ende der Hauptschleife 


18130 - 18175 
18200 - 18270 
18300 - 18395 
18500 - 18646 


3035 

3040 

3042 - 3075 
3100: 
3105: 
3110 

3200 - 3280 : 

3285: 
3287 - 3996: 


18900 
18920 
18940 
19000 
19500 ■ 


18915 

18935 

18965 

19300 

19520 


20000 - 20010 


20500 

21000 

22000 

23000 


20510 

21999 

22250 

23260 


6000 - 
7000 - 
8000 - 
9000 - 


6015: 

7015: 

8300: 

9070: 


10000 - 10020 : 
10800: 
10900: 


or 


24000 - 24012 


24015 

24045 

24200 


24040 

24145 

24210 


24400 - 24420 


Unterprogramme (UPs) 

5000 - 5050 : Anzeige des Standorts und des eventuellen 
Besitzers 

Anzeige des Namens der Spieler 
Anzeige des Kapitals 

Anzeige des Besitzes (Straßen, Bahnhöfe usw. 

Bewegen der Spielfigur 
Löschen der linken Bildschirmhälfte 
HOME für Textfenster 
CLR für Textfenster 

11000 - 11050: Hypothek zurückzahien (Spieler) 

12000 - 12560: Häuser bauen (Spieler) 

13000 - 13010: Auswahl der Aktivitäten (Computer) . 

13100- 13400: Häuser kaufen (Computer) 

13900 - 13910: Anzeige »AKTIVITÄTEN« im Textfenster 
14000- 14100: Hypothek zurückzahlen (Computer) 

15000- 15097: Angebot an einen Mitspieler machen (Computer) 

Angebot an einen Mitspieler machen (Spieler) 

17140 : Anfrage, Beantwortung und Auswertung eines 
Verkaufsangebotes 

Anfrage, Beantwortung und Auswertung eines 
Tauschangebotes 

18100: Abfrage, ob ein Spieler zu wenig Geld hat 
18129 : Entscheidung des Spielers, ob er eine Hypothek 
aufnimmt, Häuser verkauft oder Straßen verkauft 
(Spieler) 

Programmaufschlüsselung von »Monopoly« 


24500 - 24510 


16000- 16510: 
17000 

17500 - 17610: 

18000 
18105 


25000 - 
25015 - 
25050 - 

25135 - 
25150 - 

un«»*' 

25300 - 
26000 - 
26020 - 
26212 - 
26215 - 
26275 - 

26330 - 


26500 - 

26620 - 
27000 - 


25010 

25045 

25125 

25130 

25142 

25215 

25220 

25999 

26010 

26211 

26214 

26217 

26280 

26285 

26486 

26490 

26520: 

26650: 
27075: 


27100 - 27200 


anhand 


: Straßen verkaufen (Spieler) 

: Hypothek aufnehmen (Spieler) 

: Häuser verkaufen (Spieler) 

: Entscheidung des Spielers, ob er eine Hypothek 
aufnimmt, Häuser verkauft oder Straßen verkauft 
(Computer) 

: Hypothek aufnehmen (Computer) 

: Straßen verkaufen (Computer) 

: Häuser verkaufen (Computer) 

: Eingabe von Straßennamen 
: Erkennen, ob ein Spieler genug Geld zum Kaufen 
hat 

: Anzeige der Spielzeit und des »Frel-Parken- 
Jackpots« 

: Steuer zahlen 

: Untersuchen, ob ein Spieler aus dem Gefängnis 
freikommt oder nicht 
: Würfeln 

: Anzeige und Durchführung von Gemeinschafts¬ 
und Ereigniskarten 

: Erkennen, ob ein Werk verkauft ist, und wenn ja, 
an wen 

: Miete zahlen 
: Straße kaufen 

: Erkennen, ob ein Bahnhof verkauft ist, und wenn 
ja, an wen 

: Erkennen, ob eine Straße verkauft ist, und wenn 
ja, an wen 

: Keine Miete, weil auf die Straße eine Hypothek 
aufgenommen wurde 
: Dimensionierung der Feldvariablen 
: Einlesen der Daten 

: Mischen der Ereignis- und Gemeinschaftskarten 
: Laden der Namen der Computerspieler 
: Festlegen der Spielfeldkoordinaten 
Festlegen der Färb- und Cursorfunktionen 
Aufbau des Spielfeldes 

Laden der Straßennamen und deren Numerierung 
Daten: Kaufpreise 
Daten: Mieten 

Daten : Artikel für Straßennamen (Akkusativ) 

Daten : Artikel für Straßennamen (Dativ) 

Daten : Farbnummern der Straßen 
Daten: Anzahl der Straßen der jeweiligen Farbe 
Daten: Text der Ereignis- und Gemein¬ 
schaftskarten 

Daten : Namen der Computerspieler 
Daten : Farbe und Zeichen (ASCII) für das 
Spielfeld 

Daten: Straßennamen 

Ausscheiden eines Spielers; Überprüfen, ob das 
Spiel zu Ende ist 

Errechnen des Gesamtbesitzes; Anzeige des 
Endergebnisses; Schluß 

der Zeilennummer 


10 

REM 

****************************** 

11 

REM 

* 


* 

12 

REM 

* 

COMMERCIAL TOWN FUER C64 

* 

13 

REM 

* 


* 

14 

REM 

* 

VON : PETER FINK 

* 

15 

REM 

* 

8500 NUERNBERB 30 

* 

16 

REM 

* 

STEPHANSTRASSE 20 

* 

17 

REM 

* 

TEL.: 0911/467930 

* 

18 

REM 

* 


* 


19 REM ****************************** 

99 PRINT"<CLR>"; 

100 DIM SN$<41> 

150 POKE 53281,0:POKE 53280,0 
200 SN*<0>="" 

205 SN$( 1) — "C5SPACE >C OMMERCIA L<3S 
PACEJT O W N“ 

210 SN*<2>="<5SPACE}£SS£aaSS£AIl£asaS£2£222 

MllMltD 1 ' 

215 SNS<3>="" 


<064 > 
<060> 
<017> 
<062> 
<245> 
<238> 
<196> 
< 118> 
<067> 
<073> 
<037> 
<039> 

< 149> 
<236> 

< 175> 

<068> 

< 187> 


220 SN*(4)="<BSPACE>PETER FINK, FEBRUAR 19 

85 " <097> 

225 SN$ (5) ="" <070> 

230 SN*<6)="DIESES SPIEL LAEUFT NACH DEN □ 

RIGINALEN" <018> 

235 SN*<7>="MONOPOLY—REGELN. ES KOENNEN 1 

- * SPIE-" <106> 

240 SN*<8>="LER TEILNEHMEN. DIE AUF 4 SPIE 

LER FEH-" < 014> 

245 SN*(9)="LENEDN WERDEN VOM COMPUTER SIM 

ULIERT." <147> 

250 SN*(10)="BEI DER EINBABE VON STRASSENN 

AMEN BRAU-" <180> 

255 SN*U1)="CHEN NUR DIE ERSTEN DREI BUCH 

STABEN" <204> 

260 SN*(12)="EINGEBEBEN ZU WERDEN." <009> 

265 SN*<13>="<15SPACE>AUSNAHMEN:" <088> 

270 SN*(14)="SCHILLERSTRASSE UND SCHLOSSAL 


Listing »Monopoly«. Bitte verwenden Sie zur Eingabe nur 
den Checksummer 64 in diesem Heft. 
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Brettspiele 


LEE: 4" <037> 

275 SN*(15)="HAUPTBAHNHOF UND HAUPTSTRASSE 

:<4SPACEJ6" <177> 

280 SN*(16)="" <174> 

285 SN*(17)="1 HOTEL ENTSPRICHT 5 HAEUSERN 

, DAS" <104> 

290 SN* < 18) ="HEISST AUCH BEIM KAUF UND VER 

KAUF VON" <175> 

295 SN*(19)="HAEUSERN MUESSEN HOTELS ALS 5 

HAEUSER" <001> 

300 SN*(20)="EINGEGEBEN WERDEN." <206> 

305 SN*(21)="" <132> 

310 SN*(22)="" <010> 

315 SN*(23)="<12SPACEJWEITER -> CSPACE3" <161> 

320 SN*(24)="" <021> 

325 SN*(25)="BEI DER ABFRABE NACH DEN AKTI 

VITAETEN" <218> 

330 SN*(26)="DES SPIELERS VOR DEM WUERFELN 

KANN FOL—“ <127> 

335 SN*(27)="BENDE AUSWAHL BETROFFEN WERDE 

N:" <191> 

340 SN*(28)="> H < WENN ER HAEUSER KAUFEN 

WILL" <193> 

345 SN*(29)="> Z < WENN ER EINE HYPOTHEK Z 

URUECK-" <172> 

350 SN*(30)="<27SPACEJZAHLEN WILL." <152> 

355 SN*(31> = "> K < WENN ER EINEM MITSPIELE 

R EIN VER-" <189> 


360 SN*(32)="<6SPACEJKAUFS— ODER TAUSCHANB 

EBHT MACHEN" <187> 

362 SL*(34)="> W < WENN ER WUERFELN WILL." <184> 

365 LN*(33)="<34SPACEJWILL." <019> 

37M SN*(35)="“ <007> 

375 SN*(36)=“STEHT IM FELD - STANDORT':<SPA 
CE,RED,RVSON JGEFAENGNIS# (RVOFF,BREEN > 

■ <009> 


380 SN*(37)="SO HEISST DAS, DASS DER SPIEL 

ER NICHT“ <027> 

385 SN*(38)="NUR ZU BESUCH SONDERN ECHT IM 

BEFAENB—” <084> 

390 SN*(39)="NIS IST.“ <175> 

395 SN*(40)="" <223> 

400 SN*(41)="<12SPACEJSTART -> CSPACE3" <00S> 

420 FOR A=0 TO 22:PRINT"<ORANGEJ"SN*(A):NE 

XT <082> 

422 EOSUB 25000:PRINT SN*(23) <173> 

425 BET A*:IF A*<>“ "THEN 425 <025> 

430 PRINT"<CLRJ“;:FOR A=24 TO 40:PRINT"CBR 

EEN>"SN*(A>:NEXT <070> 

440 BOSUB 25090:PRINT SN*(41) <129> 


BROWN J ÜESE£E£SSSSEEE£E£ESX “ <146 > 

520 SN* <1> ="<LIG.RED>£***B(2SPACE,YELLOW>B 
ESITZ<LIG.RED,2SPACE J2»**3ä<BROWNJS<WHI 
TE,4SPACE3STANDORT:(5SPACE,BROWN >2" < 247 > 

530 SN* (2 ) = " <L IB. RED >'g'£££JH:2SPACE , BLUE >£££ 
&&£<LIG.RED,2SPACE>iS££U<BR0WNJ 1 3<lBSPA 
CE32" <207> 

540 SN*(3)="{LIG. REDJ2<18SPACEJ2<BR0WNJ2<1 

BSPACEJ2" <253> 

550 SN*(4)="<LIG.RED J2<18SPACE J2<BR0WN J2<1 

BSPACEJ2" <072> 

560 SN*(5)="<LIG.REDJ2<1BSPACEJ2<BR0WNJS££ 

C.C.C.C.C.CC.C.C.C.C.C.C.C.C.CP" <212> 

570 SN*(6)=" <LIG<REDJ2<1 BSPACEJ2<BROWNJ2<C 

YAN,RVSON,1BSPACE,RVOFF,BROWN J 2" <237 > 

5B0 SN*(7)="<LIG.REDJ2<1BSPACEJ2<BR0WNJ2<C 

YAN,RVSON,18SPACE,RVOFF,BROWN J2" < 055> 

590 SN*(8)="<LIG.REDJ2<1BSPACEJ2<BR0WNJ2<C 

YAN,RVSON,1BSPACE.RVOFF,BROWN J2" <130 > 

600 SN*(9)="<LIG.REDJ2<1BSPACEJ2<BR0WNJ2<C 

YAN,RVSON,18SPACE,RVOFF,BROWN J 2" < 204 > 

610 SN*(10)="<LIG.REDJ2<1BSPACEJ2<BROWNJ2< 

CYAN,RVSON,1BSPACE,RVOFF,BROWN)2" <013> 

620 SN*(11)="<LIG. REDJ2<18SPACEJ2<BR0WNJ2< 

CYAN,RVSON,18SPACE,RVOFF,BROWN J2" <151> 

630 SN*(12)="<LIG.RED J2<18SPACEJ2<BR0WNJ2< 

CYAN,RVSON,1BSPACE,RVOFF,BROWN J2" < 034 > 

640 SN*(13)="<LIG.REDJ2<18SPACEJ2<BR0WNJä£ 

_C.C_C.CCC.CC.CCC_C_CCCC_C.K " <009> 

650 SN*(14)="<LIG.RED J2<18SPACEJ2<SPACE,RE 

D JSPIELER <12SPACE J" <119> 

660 SN*(15)="<LIG.REDJ2<1BSPACEJ2<GREEN,RV 
SON JTf <7SPACE, RVOFF >T<SPACE , ORANGE 3 .U.C.C.C. 

.C.C.C.RI. " < 183> 

670 SN*(16)="<LIG.REDJ2<18SPACEJ2<GREEN,RV 
SON JT<7SPACE,RVOFF J1f<SPACE,ORANGE J2<BR 


OWN,SPACEJZEIT:<SPACE,ORANGEJ2 " 

680 SN*(17)="<LIG. REDJ2<1BSPACEJ2<GREENJS< 
RVSON JT7TTTTT<RV0FF JV<SPACE , ORANGE J2<7 
SPACE J2 " 

690 SN*(18)="<LIG.REDJ2<1BSPACEJ2<SPACE,YE 
LLOWJKAPITAL(2SPACE,ORANGEJ .3C.C_C_C_C_C.C.K. " 
700 SN*(19)="<LIG.REDJ2<1BSPACEJ2<PURPLE,R 
VSON JTT<7SPACE , RVOFF JTf< 11 SPACE J " 

710 SN*(20)=“<LIG.RED J2< 1BSPACE J2<PURPLE,R 
VSON JTr<7SPACE , RVOFF J^f ISPACE , BLUE3 .U_C_C.C_C. 
C.C.C.I. •• 

720 SN*(21)="<LIG.REDJ2<1BSPACEJ2<PURPLEJS 
<RVSON JTTTTTTT <RVOFF JV<SPACE,BLUE J2<GR 
EY 2JFREI P.<BLUEJ2 " 

730 SN*(22)="<LIG.REDJ2<18SPACEJ2<SPACE,LI 
G.GREEN,RVSON Jß S<RVOFF,SPACE,RVSON,2S 
PACE Jß<RVOFF,2SPACE,BLUE)2<7SPACE 32 " 
740 SN*(23)="<LIG.RED J2<1BSPACEJ2<SPACE,LI 
G.GREEN,RVSON,3SPACE,RVOFF,SPACE,RVSON 
, SPACE Jfi<SPACE, RVOFF, 2SPACE, BLUE J .J.CC.CC. 
■C.C.C.K. " 

750 SN* (24) =" <L IG. RED J 

<SPACE,LIG.GREEN,RVSONJS fi<RVOFF,SPACE 
,RVSON Jß<2SPACE,RVOFF,11SPACE J" 

775 GET A*:IF A*<>" "THEN 775 

776 PRINT"<CLRJ"; 

780 FOR A=0 TO 24:PRINT SN*(A);:NEXT 
\795 POKE 56295,14:POKE 2023,102 
1000 GOSUB 25220 

1100 GOSUB 10900:GOSUB 10B00:PRINT"<DOWNJD 
AUER DES SPIELES":GOSUB 10800 
1105 PRINT"<2D0WN,4SPACEJ(IN MIN.)":GOSUB 
10800 

1110 PRINT"<4D0WN,6RIGHTJ";:B*="" 

1111 GET A*:IF A*<>CHR*(20)THEN 1114 

1112 IF LEN(B*)>0 THEN PRINT"<LEFT,RVSON,S 
PACE,LEFT J";:B*=LEFT*(B*,LEN(B*)-1> 

1113 GOTO 1111 

1114 IF A*< >""AND A*< >CHR*(13)THEN IF ASC( 
A*)<48 OR ASC(A*)>57 THEN 1111 


1115 

a » »• 


PRINT A*;:IF A*=CHR*(13)AND LEN(B*)>0 
THEN 1118 
B*=B*+A*: GOTO 1111 


1118 RU=VAL(B*) 

1120 GOSUB 10900:GOSUB 10800 
1125 PRINT"<DOWNJANZAHL DER SPIELER":GOSUB 
10800 


1130 PRINT“<3D0WN,8RIGHT,RVSONJ";:B*="" 

1131 GET A*:IF A*< >CHR* (20) AND A*OCHR*(13 
)AND A*< >“"THEN PRINT A*"<LEFTJ";:B*= 
A* 

1132 IF A*=CHR*(13)AND LEN(B*>=1 THEN 1134 

1133 GOTO 1131 

1134 IF ASC(B*> <48 OR ASC(B*)>52 THEN 1120 

1135 AN=VAL(B*) 

1140 GOSUB 10900:IF AN=0 THEN 1180 
1145 FOR A=1 TO AN 

1150 PRINT"<HOMEJ"SR*SU*"<CYAN,RVSON,2SPAC 
EJNAME SPIELER "A 

1155 PRINT SR*"<UP,RVSONJ(BIS ZU 7 BUCHST. 

> 

1156 PRINT"<HQMEJ"SU*SR*"<2D0WN,RVSONJANM. 

: VERSCHIEDENE <DOWN,18LEFT J"; 

1157 PRINT"<RVSONJANFANGSBUCHSTABEN <DOWN,1 
7LEFTJ"; 

1158 PRINT"<RVSONJWAEREN VON VORTEIL" 

1160 PRINT SR*"<5RIGHT,RVSONJ";:B*="" 

1161 GET A*:IF A*<>CHR*(20)THEN 1164 

1162 IF LEN(B*)>0 THEN PRINT"<LEFT,RVSON,S 
PACE,LEFT J“;:B*=LEFT*(B*,LEN(B*>-1> 

1163 GOTO 1161 

1164 IF LEN(B*)>=7 THEN 1168 

1165 IF A*=CHR*(13)THEN 1167 

1166 PRINT A*;:B*=B*+A*:GOTO 1161 

1167 IF LEN(B*)=0 THEN 1161 

1168 SP*(A)=B*:GOSUB 10900 
1170 NEXT A 

1175 IF AN=4 THEN 1200 
1180 B=1:FOR A=AN+1 TO 4 
1185 SP*(A)=NA*(B):B=B+1 
1190 NEXT A 
1195 SP*(5)="BANK" 

1200 FOR A=1 TO 40:SB(A> =0:NEXT 

1205 FOR A=1 TO 4:PO(A)=1:NEXT 

1210 BB*(0) ...1)="1":BB*(2)="2";BB*( 


Listing »Monopoly« (Fortsetzung) 



< 176> 


< 212 > 
<234> 
< 137> 


<051 > 


< 111 > 


<049> 


<04B> 


<053> 

<1B9> 

<20B> 

<234> 

< 191 > 
<242> 

< 124> 

<085> 

< 105> 

< 138> 

< 149 > 

< 149> 

< 172> 

< 020 > 
<057> 
<221 > 

< 164> 

< 123> 

<040> 


< 174> 
<146> 
<233> 
<250> 

< 114> 
< 100 > 
<249> 

<025> 

< 194> 
<005> 

<040> 

<035> 

<217> 

<228> 

< 199> 

< 103> 
<088> 
<067> 

< 124> 

< 16B> 
<095> 

< 174> 

< 199> 
<018> 
<096> 

< 194> 

< 136> 
<090> 

< 117> 


99 












Brettspiele 


C 64 


3)="3":BB*(4)="4":BB*(5> = "fi" 

1215 FQR A=1 TO 4:S*(A>=LEFT*(SP*(A),1):NE 

1220 FP=0:EZ=1:GZ=1 
2995 TI*="000000": GOSUB 20000 
3000 FOR Z=1 TO 4:LL=0:P=0:WP*="":IF PO<Z) 

=0 THEN 3995 
3010 GOSUB 7000 
3015 GOSUB 6000 
3020 GOSUB 10000 
3025 GOSUB 5000 
3030 GOSUB B000 
3035 IF PG<Z)=1 THEN 21000 
3040 IF Z >AN THEN GOSUB 13000:GOTO 3100 
3042 GOSUB 10900 

3045 PRINT"CHOME>"SR*SU*"{CYAN,RVSON,SPACE 
>* AKTIVITAETEN *“ 

3050 PRINT“{HOME>"SR*SU*"{RVSON,2D0WNJHAUS 

KAUFEN{3SPACE>-> H" 

3051 PRINT"{HOME}"SR*SU*"{RVSON,3DOWN >HYP. 

Z'ZAHLEN -> Z" 

3052 PRINT"{HOME>"SR*SU*"{RVSON,4D0WNJANGE 
B. MITSP. -> K“ 

3053 PRINT"{HOME}"SR*SU* M {RVSON,5D0WNJWUER 
FELN{ 6 SPACE>—> W" 

3054 TM*=TI* 

3055 GET A*: IF A*=""THEN 3055 
3057 TIS=TM* 

3060 IF A*="H”THEN GOSUB 10900:GOSUB 12000 
:GOTO 3042 

3065 IF A*="Z"THEN GOSUB 10900:GOSUB 11000 
: GOTO 3042 

3070 IF A*="K"THEN GOSUB 10900:GOSUB 16000 
:GOTO 3042 

3075 IF A*<>"W"THEN 3045 
3100 GOSUB 22000 
3105 GOSUB 9000 
3110 GOSUB 5000 

3200 IF LO=l AND POCZJOl THEN 1=4000:GOTO 
3210 

3205 IF LO=l AND PO(Z)=l THEN 1=8000:GOTO 
3210 

3206 GOTO 3220 

3210 GOSUB 10900:GOSUB 10800:PRINT"{DOWN,R 
IGHT >“SP*(Z)" BEKOMMT" 

3215 GOSUB 10800:PRINT"{2D0WN}"I"DM.“ 

3216 GE(Z>=GE(Z)+I 
3218 LO=0:FOR A=1 TO 1500:NEXT 
3220 IF PD(Z)=5 GR PO(Z)=39 THEN GOSUB 205 

00 

3225 IF PO C Z )=8 OR P0(Z>=23 OR P0(Z>=37 TH 
EN 23000 

3230 IF PO(Z > =3 OR P0(Z)=18 OR P0(Z>=34 TH 
EN 23100 

3235 IF Z2=l THEN Z2=0:GOTO 3995 
3240 IF P0(Z>-11 THEN GOSUB 10900:GOTO 328 
5 

3245 IF PO <Z)=21 THEN GOSUB 10900:GOSUB 10 
800:PRINT"{RIGHT,DOWN >"SP*(Z)" BEKOMM 
T" 

3250 IF PO(Z)=21 THEN GOSUB 10800:PRINT"{2 
DOWN>"FP"DM." 

3255 IF PO(Z)=21 THEN GE<Z>=GE(Z)+FP:FP=0 
3260 IF PO<Z)=31 THEN PG(Z)=1:WU=20:GOTO 3 
105 

3265 IF FA(PO(Z))=10 THEN GOSUB 24000 
3270 IF FA(PO(Z))=9 THEN GOSUB 24200 
3275 IF FA(PO(Z))>0 AND FA(P0(Z>><9 THEN G 
OSUB 24400 

3280 IF Z2=l THEN Z2=0:GOTO 3995 
3285 GOSUB 7000:GOSUB 20000 
3287 FOR A=1 TO 1000:NEXT 
3290 IF WP*="PASCH"AND PG(Z>=0 THEN 3400 
3295 GOTO 3990 
3400 IF Z<=AN THEN 3100 

3410 GOSUB 10900:GOSUB 10800:PRINT"{DOWN,R 
IGHTJPASCH: NOCHMAL!":FOR A=1 TO 1500 
:NEXT:GOTO 3100 
3990 FOR A=1 TO 1000:NEXT 
3992 GOSUB 10900 

3995 NEXT Z:IF TT>RU THEN 27100 

3996 GOTO 3000 

5000 PRINT"{HOME,RVOFF>"LEFT*(RE*,22);"{3D 
OWN.LIG.GREEN,17SPACE,DOWN,17LEFT>"; 

5005 PRINT"{17SPACE>“ 

5010 PR INT" {HOME > " LEFT* ( RE* , 22) ; ■■ {3D0WN , LI 
G.GREEN,RVSON>";SN*(PO(Z)>" "BB*(SB(P 
O(Z)))"{RVOFF>"; <213> 


<227> 

<030> 
<031 > 
< 222 > 

<006> 

< 220 > 

<217> 

<206> 

<219> 

<248> 

< 196> 
< 012 > 
<005> 

<225> 

< 180> 

< 152> 

<085> 

<021 > 
<052> 

< 125> 
<025> 

<083> 

<089> 

<254> 

<048> 

<072> 

<077> 

<050> 

<026> 

<071> 
<210> Ot 

<213> 

< 112 > 
<219> 

< 127> 

<143> 

<224> 

<085> 

<059> 

<051 > 


<218> 

< 104> 
<180> 

<.180> 
<081 > 

< 194> 

<051 > 

< 104> 
<073> 
<090> 

< 132> 

< 124> 

< 191 > 


<019> 
<031 > 

< 195> 

< 108> 
< 142> 

<237> 

<076> 


5015 IF PG(Z)=1 THEN PRINT"<LEFT>#" 

5020 IF FA(PO (Z) > >0 THEN PRINT"{HOME>"LEFT 
*(RE*,22)"{4D0WN,LIG.REDJBESITZER: "S 
P* < BE (PO ( Z ) ) ) 

5025 FOR A=1 TO 100:NEXT 

5030 PRINT"{HOME,RVOFF>"LEFT*(RE*,22):"{3D 
OWN.LIG.GREEN,17SPACE,17LEFT >": 

5035 PRINT"{HOME>»LEFT*(RE*,22 >;"{3D0WN,LI 
S.GREEN >";SN*(PO(Z))" "BB*(SB(PO(Z))) 
; 

5040 IF PG(Z) = 1 THEN PRINT" {LEFT,RVSON}#{R 
VOFFJ" 

5050 RETURN 

6000 PRINT"{HOME,GREEN}"LEFT*(RE*,21);LEFT 
*(UN*,16);"{RVSON,7SPACE,RVOFF >" 

6010 PRINT"{HOME,GREEN>"LEFT*(RE*,21);LEFT 
*(UN*,16);"{RVSON >"SP*{Z >"{RVOFF >" 
6015 RETURN 

7000 BE(Z) = INT(GE(Z)/10> *10:G*=RIGHT*(STR* 
(BE(Z>>,LEN(STR*(GE(Z>> >-l) 

7005 PRINT"{HOME,PURPLE>"LEFT*(RE*,21)jLEF 
T *(UN*,20)j"{RVSON,7SPACE,RVOFF >" 

7010 PRINT"{HOME,PURPLE>"LEFT*(RE*, 21) 5 LEF 
T*(UN*,20);"{RVSON >"G*"{RVOFF >" 

7015 RETURN 
8000 ZL=4:J=1 

8002 FOR B=0 TO KO(J)-1:I=ST(J,B) 

8005 IF BE(I)< >Z THEN 8020 
8007 IF ZL=22 THEN GOSUB 8200 

8010 PRINT"{HOME}"LEFT*(UN*,ZL)"{RIGHT >“FA 
*(FA(I> >"{RVSON,14SPACE,RVOFF,SPACE >- 

"BB*(SB(I)); 

8011 IF HY(I)=1 THEN PRINT"{LEFT>H"j 

8012 PRINT"{18LEFT,RVSON>"SN*(I):ZL=ZL+1 
8020 NEXT B 

8025 J=J+1:IF J=ll THEN RETURN 

8030 GOTO 8002 

8200 IF Z>AN THEN 8300 

8202 PRINT"{HOME>"LEFT*(UN*,ZL+1)“{RIGHT,G 
REY 3JWEITER MIT <SPACE>" 

8204 TM*=TI* 

8205 GET A*:IF A*=""THEN 8205 
> TIS=TM* 

8210 GOSUB 10000:ZL=4:RETURN 

8300 FOR A=1 TO 2000:NEXT:GOTO 8210 

9000 FOR A=1 TO ABS(WU):Q=0 

9005 FOR 1=1 TO 4:IF I=Z THEN 9015 

9010 IF PO(Z)=PO(I)THEN S=1:J=I 

9015 NEXT I 

9020 IF Q=0 THEN 9030 

9025 IF ASC(S*(J))<65 THEN FOKE KN(PO(Z>> + 
54272,l:POKE KN(PO(Z)),ASC(S*(J)):GOT 
0 9050 

9027 POKE KN(PO(Z))+54272,1:POKE KN(PO(Z)> 

,ASC(S*(J))—64:GOTO 9050 
9030 POKE KN(PO(Z)>+54272,FB(PO(Z>):POKE K 
N(PO(Z)),ZE(PO(Z>) 

9050 PO(Z)=PO(Z)+SGN(WU> 

9055 IF PO(Z)>40 THEN PO(Z)=PO(Z>-40:IF LL 
=0 AND PG(Z)=0 THEN LO=l 
9060 IF ASC(S*(Z))<65 THEN POKE KN(PO(Z>>+ 
54272,l:POKE KN(PO(Z)),ASC(S*(Z)):GOT 
D 9070 

9065 POKE KN(PO(Z)>+54272,1:POKE KN(PO(Z>> 
,ASC(S*(Z)>-64 
9070 NEXT A:RETURN 

10000 PRINT"{HOME,RVOFF,3DOWN,RIGHT >"; 

10005 FOR A=1 TO 20 

10010 PRINT"{18SPACE,DOWN,18LEFT>"; 

10015 NEXT 
10020 RETURN 

10800 PRINT"{HOME >"SU*SR*"{CYAN,RVSON >";:R 
ETURN 

10900 PRINT"{HOME >“SU*SR*LO*LP*LQ*:RETURN 
11000 GOSUB 10900:GOSUB 10800:PRINT"{DOWN, 
RIGHTJAUF WELCHER":GOSUB 10800 
11002 PRINT"{2D0WN,RIGHTJSTRASSE WILLST DU 
":GOSUB 10800:PRINT"{3D0WN,RIGHT JEIN 
E HYPOTHEK" 

11004 GOSUB 10800:PRINT"{4D0WN,RIGHT>ZURUE 
CKZAHLEN ?" 

11010 GOSUB 19000:GOSUB 10800:PRINT"{5D0WN 
,RIGHTJAUF "AT*(I>:IF FE=1 THEN 1102 
5 


<060> 


< 102 > 
< 117> 

< 020 > 


<0BB> 

<103> 

<026> 

< 128> 

<018> 
<231 > 

<235> 

< 192> 

<225> 

<215> 

< 193> 
<241 > 
<235> 
<128> 


< 222 > 

<042> 

< 152> 

< 174> 
<211 > 
<024> 
<074> 

< 127> 
<035> 
< 022 > 
< 022 > 

< 117> 
<10B> 
<088> 
<252> 
<007> 
<209> 
<070> 


< 134> 

< 112 > 

< 161 > 
<248> 

<048> 


<253> 

<050> 

<060> 

<208> 

<054> 

<076> 

< 119> 

< 172> 

< 181 > 
<225> 

< 144> 


< 141 > 


<240> 


<228> 


Listing »Monopoly« (Fortsetzung). Bitte beachten Sie bei 
der Eingabe den Checksummer in diesem Heft. 


100 



















C 64 


Brettspiele 


11020 IF HY (I) = 1 AND GE(Z>>=.6*PR(I)THEN 1 
1030 

11025 GOSUB 10800:PRINT"C6D0WN.RIGHTJFALSC 
HE EINGABE!":GOTO 11050 
11030 HY(I)=0:GE < Z)=GE(Z>-.6*PR(I) 

11035 KP(Z,FA(I>)=KP(Z,FA(I)>+l 
11040 GOSUB 10000:GOSUB 8000:GOSUB 7000 
11050 FOR A=1 TO 1500:NEXT:RETURN 
12000 GOSUB 10*700: GOSUB 10800 
12005 PRINT“{DOWN,RIGHT>AUF WELCHE":GOSUB 
10800:PRINT"{2D0WN,RIGHT>STRASSEN WI 
LLST":GOSUB 10800 

12010 PRINT"{3DOWN.RIGHTJDU HAEUSER BAUEN? 
":GOSUB 10800:PRINT"{4DOWN,RIGHT>(DI 
E 1. ANGEBEN)" 

12015 GOSUB 19000:IF FE=1 THEN 12500 

12020 IF BE(I)< >Z THEN 12500 

12025 IF I >38 THEN 12500 

12027 IF FAdXl OR FA(I)>8 THEN 12500 

12030 R=I 

12035 W(0)=0:W(1)=0:W(2)=0 

12040 FOR 0=0 TO KOtFACR)>-1:BCJ>=ST(FA<R> 
,J):B*<J)=SN*(ST(FA(R>,J)) 

12045 IF BE(B(J))OZ THEN Q=1 
12050 NEXT J 

12055 IF 13=1 THEN (3=0: GOTO 12500 
12065 GOSUB 10900:GOSUB 10800:PRINT"{DOWN, 
3RIGHT>WIEVIELE AUF 
12070 FOR 1=0 TO KO(FA(R))—1 
12075 GOSUB 10800:PRINT LEFT*(UN*,1+2)"{RI 
GHT>"B*(I>; 

12080 GET W*(I):IF W*(I)=""THEN 12080 
12085 IF ASC(W*(I) X48 OR ASC(W*(I))>53 TH 
EN 12080 

12090 GOSUB 10800:PRINT LEFT*(UN*,1+2)"<17 
RIGHT>"WS(I):W(I)=VAL(W*(I>) 

12095 NEXT I 

12097 IF ABS(SB(B(0))+W(0)—SB(B(1))—W(1))> 
1 THEN 12500 

12100 IF KO(FA(R))=3 AND ABS(SB(B(1))+W(1) 
—SB(B(2))—W(2))>1 THEN 12500 
12105 IF KO(FA(R))=3 AND ABS(SB(B(0))+W(0) 
—SB(B(2))—W(2))>1 THEN 12500 
12110 FOR 1=0 TO KO(FA(R))—1 
12115 IF SB(B(I))+W(I)>5 THEN (3=1 
12120 NEXT I 

12125 IF 0=1 THEN Q=0:GOTO 12500 
12130 PY=INT((FA(R)+1)/2)*1000*(W(0)+W(1)+ 
W (2) ) 

12135 GOSUB 10800:PRINT"{6D0WN,RIGHT>PREIS 
:"PY:GOSUB 19500 
12140 IF PJ=1 THEN RETURN 
12145 FOR 1=0 TO K0(FA(R))-1 
12150 SB(B(I))=SB(B(I))+W(I) 

12155 GT=ST+W(I) 

12160 NEXT I 

12165 GE(Z)=GE(Z)—PY:GOSUB 7000:GOSUB 1000 
0:GOSUB 8000:FOR A=1 TO 2000:NEXT:RE 
TURN 

12500 GOSUB 10800:PRINT“{6D0WN,RIGHTJFALSC 
HE EINGABE!“:FOR A=1 TO 2000:NEXT:RE 
TURN 

13000 GOSUB 13900:GOSUB 14000:IF S2=l THEN 
13900 

13005 GOSUB 15000:IF S2=l THEN GOSUB 13900 

13010 GOSUB 13100:RETURN 

13100 J=0:K=0:112=9: KJ=0 

13105 L(0)=0:L(1> =0 

13110 FOR 1=1 TO 8 

13115 IF KP(Z,I)=K0(I)THEN K(J>=1:J=J+1:K= 
1 

13120 NEXT I:IF K=0 THEN 13400 
13125 FOR K=1 TO J 

13130 IF GE(Z)<GT*200+RND(1)*5000 OR GE(Z> 
<3*(INT((K(J-1)+1)/2)*1000)THEN 1340 
0 

13135 H=INT((RND(1>/4+.5)*GE(Z)) 

13140 M=INT (RND (1) *J >: IF t1=M2 THEN M=M+1:I 
F M=J THEN (1=0 

13145 N=INT(H/((INT((K(M)+1)/2)*1000)>) 


<155> 

<060> 

<127> 

<251> 

< 147> 
<218> 

< 120 > 


<230> 


<046> 
< 010 > 
< 121 > 
<028> 
<243> 
<204> 
<246> 

<057> 
< 144> 
<204> 
<067> 

<223> 

<076> 

<054> 

<244> 


< 200 > 

<087 > 
<241 > 

< 109> 


<187> 


< 112 > 
< 116> 
<206> 
< 010 > 
<137> 

<063> 

<040> 
<033> 
< 151 > 
<075> 
<042> 
<050> 


<209> 


<093> 

<040> 

< 155> 
<201 > 
<035> 
<228> 

< 130> 

<230> 

< 106> 
<170> 


<091 > 

< 126 > 

<067 > 
<029> 


13150 IF N=0 THEN 13345 <040> 

13155 112=11 <099> 

13160 FOR 1=0 TO KO(K(M))—1 <115> 

13165 B*(I)=SN*(ST(K(M),I)):B(I>=ST(K(M),1 

):NEXT I <157> 

13190 Y=SB(B(0))+SB(B(1))—(SB(B(2))*(KO(K( 

M>)=3)) <233> 


13195 

13200 

13210 

13215 

13220 

13225 

13230 

13235 

13240 

13245 

13250 

13255 

13260 

13265 

13270 

13272 

13273 

13274 

13275 

13280 

13285 

13290 

13295 

13300 


13305 

13310 

13315 

13320 


0X1 


13330 

13335 


IF Y+N>5*K0(K(M)> THEN N=5*K0(K(M> > —Y 

IF N=0 THEN 13345 

IF KO(K(M)> =2 THEN 13250 

IF SB(B(0))=SB(B(1>)AND SB(B(0))=SB( 

B(2)> THEN 13230 

IF SB (B (1) ) <SB (B (2) ) AND SB(B(1)KSB( 
B(0))THEN L(1)=1:N=N—1:GOTO 13230 
IF SB(B(0))=SB(B(1))AND SB(B(1))<SB( 
B(2))THEN L(0)=1:L(1>=1:N=N—2 
IF INT(N/3)=N/3 THEN C(0)=N/3:C(1>=C 
(0):C(2)=C(0> 

IF INT((N+2)/3)=(N+2>/3 THEN C(0)=IN 
T(N/3):C(1> =C(0):C(2)=C(0> + 1 
IF INT((N+l)/3)=(N+l)/3 THEN C(0)=IN 
T(N/3)+1:C(l)=C(0)—1:C(2)=C(0) 

C < 0 > =C(0 > +L(0 >:C(1> =C(1> +L(1):N=N+L( 
0) +L ( 1):GOTO 13272 
IF SB(B(0))=SB(B(1)> THEN 13260 
L (0) =1:N=N-1 

IF INT(N/2)=N/2 THEN C(0)=N/2:C(1>=C 
(0) 

IF INT((N+l)/2)=(N+l>/2 THEN C(0)=IN 
T(N/2):C(1)=C(0)+1 
C(0)=C(0)+L(0):N=N+L(0) 

FOR G=0 TO KO(K (M)> —1 

IF C(G)+SB(B(G>)>5 THEN N=N-(C(G)+SB 

(B (G) ) —5): C (G) =5—SB (B (G> ) 

NEXT G:IF N=0 THEN 13345 
GOSUB 10900:GOSUB 10800:PRINT"{DOWN, 
RIGHT}"SP*(Z)" KAUFT":GOSUB 10800 
PRINT" -C2DOWN.RIGHT>HAEUSER: <3SPACE>A 
UF. . " 

L(0)=0:L(1)=0 

FOR G=0 TO KO(K(M>)—1 

GOSUB 10B00:PRINT LEFT*(UNS,G+4)"<RI 

GHTJ"B*(G) 

GOSUB 10800:PRINT LEFT*(UN*,G+4)"<16 
RIGHT>”C(G) 

NEXT G 

FOR 1=0 TO KO(K(M> > — 1 
SB(B(I))=SB(B(I))+C(I> 

GT=GT+C(I) 

NEXT I 

GE(Z> =GE(Z)—N*INT((K(M)+1)/2)*1000 
XJ=J:GOSUB 7000:GOSUB 10000:GOSUB 80 


< 126> 
<090> 

< 151 > 

<237> 

<052> 

<043> 

< 133> 
<019> 
<058> 

<015> 

< 178> 
<253> 

< 180 > 

<072> 
< 121 > 
<211 > 

< 132> 
< 102 > 

< 149> 

<013> 

< 152> 
<229> 

<077> 

<229> 

< 163> 
<009> 

< 161 > 
< 173> 
<201 > 
<018> 


00:J=XJ <222> 

13340 FOR A=1 TO 2000:NEXT A <152> 

13345 NEXT K <237> 

13400 RETURN <250> 

13900 GOSUB 10900 <197> 

13910 GOSUB 10800:PRINT"<DOWN,RIGHT>* AKTI 

VITAETEN *":RETURN <1B2> 

14000 1=0:S2=0 <031> 

14010 1=1+1: IF(BE(I)OZ OR HY(I) =0) AND I<4 

0 THEN 14010 <204> 

14020 IF I<40 THEN 14060 <0B5> 

14030 IF BE(40)=Z AND HY<40)=1 THEN 14060 <111> 

14040 IF S2=l THEN GOSUB 7000:GOSUB 10000: 

GOSUB 8000 <000> 

14050 RETURN <136> 

14060 IF GE(Z)<.8*PR(I)THEN 14040 <006> 

14070 GOSUB 10900:GOSUB 10800:PRINT"{DOWN, 

RIGHTJ"SP*(Z)" ZAHLT":GOSUB 10800 <103> 

14075 PRINT"{2D0WN,RIGHTJHYPOTHEK AUF "AT* 

(I):GOSUB 10800:PRINT"{3D0WN,RIGHT >" 

SN*(I) <231> 

14078 GOSUB 10800:PRINT"<4D0WN,RIGHT>ZURUE 

CK. <117> 

14080 GE(Z)=GE(Z)—.6*PR(I):HY(I)=0:S2=1 <048> 

14085 KP(Z,FA(I>)=KP(Z,FA(I>)+l <253> 

14090 FOR A=1 TO 1500:NEXT <232> 

14095 IF 1=40 THEN 14040 <130> 

14100 GOTO 14010 <222> 

15000 S2=0:N=0 <226> 

15005 FOR 1=1 TO 8:A*="":Z4=0:Z5=0:Z6=0:Z7 

=0:IF N>=2 THEN 15090 <052> 

15010 IF KP(Z,I)=K0(I)OR KP(Z,I)=0 THEN 15 

090 <194> 

15015 FOR J=1 TO 4: IF J=Z OR Z4O0 THEN 15 

025 <167> 

15020 IF KP(J,I)>0 THEN Z4=J <177> 

15025 NEXT J <129> 

15030 IF Z4=0 THEN 15090 <201> 

15035 FOR K=1 TO 8: IF K=I OR Z5O0 THEN 15 

045 <057> 

15040 IF(KP(Z4,K> =1 OR KP(Z4,K)=2 AND KO(K 
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>=3>AND KP(Z , K) = 1 THEN Z5=K 
15045 NEXT K 

15050 IF Z5=0 THEN 15069 
15055 M=-l 

15057 M=M+lsIF BE(ST ( I,M))< >Z4 THEN 15057 
15060 Z7=ST (I, M >:M=—1 

15062 M=M+1:IF BE(ST(ZS,M))<>Z THEN 15062 
15065 Z6=ST(Z5,M):GOSUB 17500:N=N+1:S2=l:G 
OTO 15090 

15069 M=-l 

15070 M=M+1:IF BE(ST<I,M>)<>Z4 THEN 15070 
15075 Z7=ST(I ,M>:PT=INT((PR(Z7>*(1.9+RND(1 

)*1.4))/100)*100 
15080 IF GECZXPT THEN 15090 
15085 GOSUB 17000:S2=1:N=N+1 
15090 IF A*="J"THEN GOSUB 10000:GOSUB 8000 
:GOSUB 7000 
15092 NEXT I 

15095 IF S2=l THEN FOR A=1 TO 3000:NEXT 
15097 RETURN 
16000 N=0 

16002 N=N+1:IF N=3 THEN 16500 

16005 GOSUB 10900:GOSUB 10800:PRINT"CDOWN, 

RIGHT JWELCHE STRASSE":GOSUB 10800 

16006 PR I NT " C2DOWN, RIGHT >W ILLST DU ?" 

16010 GOSUB 19000:IF FE=1 THEN 16500 
16012 FOR A=1 TO 800:NEXT 
16015 Z7=I 

16020 IF SB(I)>0 THEN 16500 
16030 FOR J=0 TO KO(FAIJ)) — 1:B(J)=ST(FA(I> 

,J) 

16035 NEXT J 

16040 IF SB(B(1))>0 THEN 16500 
16045 IF M=3 AND SB(B(2)>>0 THEN 16500 

16050 GOSUB 10900:GOSUB 10B00:PRINT"CDOWN, 

RIGHT JVON WEM WILLST" : GOSUB 10800 

16051 PRINT"C2D0WN,RIGHT>DU "AR*(Z7>:GOSUB 

10800:PRINT"C3D0WN,RIGHT >"SN*(Z7 >" 

?" 

16055 Z4=0 
16060 TM*=TI* 

16065 GET A*:IF A*=“"THEN 16065 

16066 TI*=TM* 

16070 FOR K=1 TO 4:IF K=Z THEN 16075 
16072 IF A*=LEFT*(SP*(K),1)THEN Z4=K 
16075 NEXT K 

16080 IF Z4=0 OR Z4<>BE(I)THEN 16500 
16085 GOSUB 10800:PRINT"C6D0WN,5RIGHT>"SP* 

(Z4) 

16088 FOR A=1 TO 1000:NEXT 

16090 GOSUB 10900:GOSUB 10800:PRINT"CDOWN, 

RIGHT>WILLST DU":GOSUB 10800 
16095 PRINT"C2D0WN,RIGHT>KAUFEN (V) ODER": 

GOSUB 10B00:PRINT"C3D0WN,RIGHT >TAUSC 
HEN (T) ?" 

16099 TM*=TI* 

16100 GET A*:IF A*<>"V“AND A*<>"T"THEN 161 
00 

16101 TI*=TM* 

16105 IF A*="T"THEN 16140 
16110 GOSUB 10800:PRINT"C4D0WN,RIGHT>ZU WE 

LCHEM PREIS?" 

16113 B*="" 

16115 GOSUB 10800:PRINT"C6D0WN,4RIGHT>DM » 

5 

16116 GET A*:IF A*<>CHR*(20)THEN 16119 

16117 IF LEN(B*)>0 THEN PRINT"CLEFT,RVSON, 

SPACE,LEFT>";:B*=LEFT*(B*,LEN(B*)—1) <166> 

16118 GOTO 16116 <017> 

16119 IF A*< >""AND A*<>CHR*(13)THEN IF ASC 
(A*><48 OR ASC(A*> >57 THEN 16116 

16120 PRINT A*;:IF A*=CHR*(13)AND LEN(B*>> 

0 THEN 16122 

16121 B*=B*+A*:GOTO 16116 

16122 PT=VAL(B*) 

16125 GOSUB 17000 

16130 IF A*="J"THEN GOSUB 10000:GOSUB 8000 
:GOSUB 7000 

16135 FOR A=1 TO 3000:NEXT:RETURN 
16140 GOSUB 10800:PRINT"C4D0WN,RIGHT>GEGEN 
WELCHE ?":GOSUB 19000:IF FE=1 THEN 
16500 

16145 Z6=I:J=I 

16150 IF BE(J)<>Z THEN 16500 
16155 FOR K=0 TO KO(FA(J)>-1:B(K>=ST(FA(J> 

,K> 

16160 NEXT K 

16165 IF SB(J)>0 OR SB(B(1>>>0 THEN 16500 


<243> 

< 157> 
< 101 > 
<237> 
< 222 > 
<069> 

< 180> 

<065> 
<251 > 
<043> 

<126> 

< 185> 

< 167> 

<043> 

< 188> 

< 163> 

< 167> 
<205> 
<079> 

< 011 > 
<045> 
<201 > 
<05B> 

< 129> 
<076> 

< 129> 
<123> 
<032> 

< 133> 

< 112 > 


< 165> 
< 110 > 

< 104> 
<223> 
<080> 

< 187> 

< 176> 

< 171 > 
<050> 

< 120 > 

< 191 > 

< 138> 


<236> 

< 143> 

<2I4> 

< 115> 

< 114 > 

< 130> 

< 142> 

< 119> 

< 166> 


< 115> 

<031 > 
<032> 
<221 > 
<213> 

<069> 

<219> 


<036> 

<244> 

< 125> 

<106> 

< 113> 
<091 > 


16170 IF M=2 AND SB(B(2>>>0 THEN 16500 <22B> 

16180 GOSUB 17500:GOTO 16130 <245> 

16500 GOSUB 10800:PRINT"C6D0WN,RIGHT>FALSC 
HE EINGABE!":FOR A=1 TO 1500:NEXT:GO 
SUB 10900 <158> 

16510 RETURN <05(£)> 

17000 GOSUB 10900:GOSUB 10800:PRINT"CDOWN, 

RIGHTJ"SP*(Z)" WILL":GOSUB 10800 <235> 

17002 PRINT"C2D0WN,RIGHTJV0N "SP*(Z4>“ "AR 

*(Z7) <221> 

17005 A*=" " <0M> 

17010 GOSUB 10800:PRINT"C3D0WN,RIGHTJ"SN*( 

Z7):GOSUB 10800:PRINT"C4D0WN,RIGHTJF 
UER DM"PT <020> 

17015 GOSUB 10800:PRINT"C6D0WN.3RIGHTXJ/N 

>? “ <247> 

17020 IF Z4>AN THEN 17100 <103> 

17024 TM*=TI* <052> 

17025 GET A*:IF A*=""THEN 17025 <227> 

17026 TI*=TM* <024> 

17030 IF A*="J“THEN 17050 <042> 

17035 IF A*="N"THEN 17045 <0B2> 

17040 GOTO 17024 <226> 

17045 GOSUB 10800:PRINT"C6D0WN,11RIGHTJNEI 

N!":RETURN <235> 

17050 IF GE(Z)<PT THEN GOSUB 10800:PRINT"C 

6D0WN,RIGHT>ZU WENIG GELD! " <096> 

17051 IF GECZXPT THEN RETURN <211> 

17055 GOSUB 10800:PRINT"C6D0WN,11RIGHTJJA! 

<084> 

17060 BE(Z7)=Z <239> 

17061 IF HY(Z7> =0 THEN KP(Z,FA(Z7))=KP(Z,F 

A(Z7>)+1 < 164> 

17063 IF HY(Z7>=0 THEN KP(Z4,FA(Z7)>=KP(Z4 

,FA(Z7))—1 <01B> 

17065 GE(Z)=GE(Z >-PT:GE(Z4)=GE(Z4)+PT:RETU 

RN <215> 

17100 IF KP (Z,FA(Z7)-> =KO (FA (Z7>) — 1 THEN A* 

=" N " <004> 

17105 IF KP(Z4,FA(Z7)> >1 THEN A*="N“ <034> 

17110 M=0 <039> 

17115 FOR J=1 TO 8:IF KP(Z4,J)=KO(J)THEN M 

=M+1 <097> 

17120 NEXT J:IF M<2 AND PT<3*PR(Z7>THEN A* 

= , ' N " <084> 

17125 IF PT<2*PR(Z7)THEN A*="N" <226> 

17130 IF PT>3*PR(Z7)AND RND(1X.5 THEN A*= 

" N ” <002> 

17132 IF GE(Z4)>3000 THEN A*="N" <241> 

17135 IF A*<>"N"THEN A*="J" <129> 

17140 GOTO 17030 <132> 

17500 R=PR(Z7)—PR(Z6):A*="“ <150> 

17505 IF R>0 AND GE1ZXR THEN RETURN <084> 

17510 GOSUB 10900:GOSUB 10800:PRINT"CDOWN, 

RIGHTJ"SP*(Z)" WILL":GOSUB 10800 <237> 

17512 PRINT"C2D0WN,RIGHTJVON ”SP*(Z4)" "AR 

*(Z7):GOSUB 10800 <102> 

17513 IF R>=0 THEN 17520 <00B> 

17515 PRINT"C3D0WN,RIGHTJ"SN*(Z7)" +":GOSU 

B 10800:PRINT“C4D0WN>"ABS(R)"DM GEGE 
N "AR*(Z6) , <113> 

17517 GOSUB 10800:PRINT"C5D0WN,RIGHTJ"SN*( 

Z6) <159> 

17518 GOTD 17525 <228> 

17520 GOSUB 10800:PRINT"C3D0WN,RIGHTJ"SN*( 

Z7):GOSUB 10800:PRINT"C4D0WN,RIGHT JG 
EGEN DM"ABS(R) <0B2> 

17522 GOSUB 10800:PRINT"C5D0WN,RIGHTJ+ "SN 

*(Z6> <031> 

17525 GOSUB 10800:PRINT"C6D0WN,3RIGHTJCJ/N 

>?" <249> 

17530 IF Z4>AN THEN 17600 <145> 

17534 TM*=TI* <054> 

17535 GET A*:IF A*=""THEN 17535 <104> 

17536 TI*=TM* <026> 

17540 IF A*="J"THEN 17555 <189> 

17545 IF A*="N"THEN 17552 <003> 

17550 GOTO 17534 <196> 

17552 GOSUB 10800:PRINT"C6DOWN,11RIGHTJNEI 

N!":RETURN <234> 

17555 GOSUB 10800:PRINT"C6D0WN,12RIGHTJJA! 

<067> 

17556 IF R>0 AND GE(ZXR THEN GOSUB 10800: 

PRINT"C6D0WN,RIGHTJZU WENIG GELD":GO 

TO 17575 <203> 
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17537 IF R<0 AND GE<Z4><C-R)THEN GOSUB 108 
00: PRINT" {6D0WN, RIGHT>ZU WENIG GELD" 
:GOTO 17575 

17560 BE(Z7)=Z:BE(Z6)=Z4 

17561 IF HY<Z7)=0 THEN KP(Z,FA(Z7>)=KP(Z,F 
A <Z7))+1 

17563 IF HY<Z7)=0 THEN KP<Z4,FA<Z7>)=KP(Z4 
»FA(Z7))—1 

17565 IF HY(Z6)=0 THEN KP(Z4,FA(Z6>)=KP<Z4 
,FA(Z6))+l 

17567 IF HY <Z6)=0 THEN KP(Z»FA(Z6>)=KP(Z,F 
A ( Z6))—1 

17570 GE(Z)=GE(Z> —R:GE(Z4)=GE(Z4> +R 
17575 RETURN 

17600 IF KP(Z,FA(Z7) )—KO(FA <Z7)> <=KP(Z4»FA 
(Z6>>-K0(FA(Z6>»THEN A*="J" 

17602 IF A*< >*'J "THEN A*="N" 

17605 IF R<0 AND GE(Z4><ABS(R)THEN A*="N" 

17610 GOTO 17540 

18000 IF GE(ZXZ9 THEN 18015 

18005 IF Z >AN THEN GOSUB 10000:GOSUB 8000 

18010 V=0:FOR A=1 TO 1000:NEXT:RETURN 

18015 Q=0 

18020 FOR 1=1 TO 40 
18025 IF BE(I)=Z THEN Q=1 
18030 NEXT I 
18035 IF Q=0 THEN 27000 

18040 GOSUB 18100:GOSUB 7000:GOTO 18000 
18100 IF Z>AN THEN 18500 

18105 GOSUB 10900:G05UB 10800:PRINT"{DOWN} 
HAEUSER VERK. -> V" 

18110 GOSUB 10800:PRINT"<2D0WN>HYP0THEK AU 
FN.-> H" 

18115 GOSUB 10800:PRINT"{3D0WNJSTRASSE VER 
K. -> S" 

18120 GOSUB 10800:PRINT"{5D0WN » 2RIGHTJSCHU 
LD:"Z9 

18124 TM*=TI* 

18125 GET A*:IF A*="“THEN 18125 

18126 TI*=TM* 

18127 IF A*="V'THEN 18300 

18128 IF A*="H"THEN 18200 

18129 IF A*O n S"THEN 18124 

18130 GOSUB 10900:GOSUB 10800:PRINT"{DOWN, 
RIGHTJWELCHE STRASSE":GOSUB 10800:PR 
INT"{2D0WN,RIGHT>WILLST DU“ 

18135 GOSUB 10800:PRINT"<3D0WN,RIGHTJVERKA 
UFEN?" 

18140 GOSUB 19000:IF FE=1 THEN 18105 
18142 IF BE <I)< >Z THEN 18400 
18144 FOR J=0 TO 2 
18146 B (J)=ST (FA(I),J> 

18148 NEXT J 
18150 Q=0 

18152 FOR 0=0 TO KO(FA(I>) 

18154 IF SB(B(J))>0 THEN Q=1 
18156 NEXT J 
18160 IF Q=1 THEN 18400 
18165 BE(I)=5 

18170 GE<Z)=GE(Z)+PR(I)*(l+(.5*(HY(I)=1)>» 
18172 IF HY(I)=0 THEN KP(Z»FA(I))=KP<Z,FA( 
I) )-l 

18175 HY <I)=0:GOSUB 10000:GOSUB B000:RETUR 
N 

18200 GOSUB 10900:GOSUB 10800:PRINT"{DOWN, 
RIGHTJAUF WELCHE":GOSUB 10800:PRINT" 
{2D0WN,RIGHTJSTRASSE WILLST" 

18205 GOSUB 10800:PRINT"{3D0WN»RIGHT>DU EI 
NE HYPOTHEK":GOSUB 10800:PRINT"{4D0W 
N,RIGHT >AUFNEHMEN?" 

18210 GOSUB 19000:IF FE=1 THEN 18105 
18215 IF BE(I)<>Z THEN 18400 
18220 FOR J=0 TO KO(FA(I))-l 
18225 B(J)=ST(FA <I>,J) 

18230 NEXT J 
18235 Q=0 

18240 FOR J=0 TO K0(FA(I)>-1 
18245 IF SB(B(J»)>0 THEN Q=1 
18250 NEXT J 
18255 IF Q=1 THEN 18400 
18260 IF HY <I> = 1 THEN 18400 
18265 GE(Z)=GE(Z)+.5*PR(I> 

18267 KP(Z »FA(I)» =KP(Z »FA <I))—1 
18270 HYCI» =1:GOSUB 10000:GOSUB B000:RETUR 
N 

18300 GOSUB 10900:GOSUB 10800:PRINT"{DOWN, 
RIGHTJAUF WELCHEM":GOSUB 10800:PRINT 
"{2D0WN »RIGHT JSTRASSENZUG 



< 001 > 

< 131 > 

< 156> 
< 010 > 

< 188> 

<030> 

<240> 

< 105> 

< 182> 
<086 > 
<249> 
<063> 
<066> 
<240> 
<175> 
< 200 > 
<004> 
<083> 
<078> 
<194> 
<130> 
<226> 

<072> 

<249 > 

< 002 > 

<142> 

<136> 

<248> 

<10B> 

<025> 

<003> 


<087> 

< 170> 
<077> 
< 020 > 
<055> 
<06B> 

< 204 > 
<079> 
< 022 > 

< 173> 
< 212 > 
<231 > 
<055> 
<007> 

<072> 

<232> 


< 135> 


<019> 

< 149> 
<095> 

< 105> 

< 149> 
<032> 

< 166> 

< 125> 
< 010 > 
<052> 
<072> 
<058> 

< 124> 

< 117> 

<074> 


18305 


18310 

18315 

18325 

18330 

18332 

18335 

18337 

18340 

18345 

18347 

18350 

18355 

18360 

18370 

18372 

18374 

18376 

18378 

18380 

18385 

18390 

18395 

18400 

18405 

18500 

18505 

18510 

18512 


18514 

i 

18518 

18520 

18525 

18526 

18540 

18541 
1B555 

18556 

18570 

18571 

18585 

18586 
18600 

18601 

18615 

18616 

18617 

18618 

18619 

18620 
18621 
18622 

18623 

18624 

18630 

18631 

18645 

18646 
18900 

18902 


<215> 


GOSUB 10800:PRINT"{3DDWN,RIGHTJWILLS 
T DU HAEUSER":GOSUB 10800:PRINT"<4D0 
WN,RIGHT}VERKAUFEN?" 

GOSUB 10800:PRINT"{5D0WN,RIGHT}(DIE 
1. ANGEBEN)" 

GOSUB 19000:IF FE=1 THEN 18105 
FOR J=0 TO KO(FA(I))—1 
B(J)=ST(FA(I>,J> 

NEXT J 

GOSUB 10900 

FOR J=0 TO KO(FA(I>)—1 

GOSUB 10800:PRINT LEFT*(UN*,J+l>SN*( 

B(J> >••:" 

GET A*:IF A*= “ 11 THEN 18345 

IF ASC(A*><48 OR ASC(AS)>53 THEN 183 

45 

W(J)=VAL(A*):GOSUB 10800:PRINT LEFT* 
(UN*,J+l)"<16RIGHT}"W(J> 

C(J)=SB(B(J)>-W(J) 

NEXT J 

IF ABS(C(0)—C(1))>1 THEN 18400 
IF KO(FA(I))=3 AND ABS(C(0)-C(2)>>1 
THEN 18400 

IF KO(FA(I))=3 AND ABS(C(1)-C(2))>1 

THEN 18400 

W=W (0) +W (1) +W (2) 

FOR J=0 TO KO(FA(I))-1 
SB (B (J ) > =SB (B (J ) ) —W (J ) 

NEXT J 

GE(Z)=GE(Z)+W*500*INT((FA(I)+l)/2) 
GT=GT-W:Z4=I:GOSUB 10000:GOSUB 8000: 
GOTO 18965 

GOSUB 10900:GOSUB 10800:PRINT"{2D0WN 
,RIGHTJDAS GEHT NICHT!" 

FOR A=1 TO 1500:NEXT:GOTO 18105 
Z4=0:0=1 

FOR B=1 TD 10:FOR C=0 TO K0(B)-1:I=S 

T(B,C):IF Z4< >0 THEN 18514 

IF V>0 THEN GOSUB 18615:GOTO 18514 

ON O GOSUB 18525,18540,18555,18570,1 

8585,18600,18615,18630,18645 

NEXT C,B 

IF Z4<>0 THEN ON Z5 GOTO 18900,18920 
,18940 

0=0+1:IF O<10 THEN 18505 
RETURN 

IF(FA(I)=9 OR FA(I)=10)AND BE(I)=Z A 

ND HY(I> =0 THEN Z4=I:Z5=1 

RETURN 

IF KP(Z,FA(I))=1 AND BE(I)=Z AND HY( 

I>=0 THEN Z4=I:Z5=1 

RETURN 

IF KP(Z,FA(I))=2 AND K0(FA(I)>=3 AND 
BE(I)=Z AND HY(I)=0 THEN Z4=I:Z5=1 
RETURN 

IF(FA(I> =9 OR FA(I)=10)AND BE(I)=Z T 

HEN Z4=I:Z5=2 

RETURN 

IF KP(Z,FA(I))=0 AND BE(I)=Z AND HY( 

I)=l THEN Z4=I:Z5=2 

RETURN 

IF KP(Z,FA(I))=0 AND K0(FA(I))=3 AND 
BE(I)=Z AND HY(I> =1 THEN Z4=I:Z5=2 
RETURN 

IF KP(Z,FA(I>)<K0(FA(I)>THEN RETURN 
V=0:FOR J=0 TO K0(FA(I))-1 
B(J)=ST(FA(I),J) 

V=V+SB(B(J)) 

NEXT J 

IF V=0 THEN RETURN 
M=0 

FOR J=0 TO KO(FA(I)>-l 
IF SB(B(J))>M THEN M=SB(B(J)):Z4=B(J 
) 

NEXT J:Z5=3:RETURN 

IF BE(I)=Z AND HY(I)=0 THEN Z4=I:Z5= 
1 

RETURN 

IF BE(I)=Z THEN Z4=I:Z5=2 
RETURN 

GOSUB 10900:GOSUB 10800:PRINT"{DOWN, 
RIGHTJ"SP*(Z)" NIMMT":GOSUB 10800 
PRINT"{2D0WN,RIGHTJHYPOTHEK AUF "AR* 
(Z4):GOSUB 10800:PRINT"{3D0WN,RIGHTJ 
"SN*(Z4)“ 


<082> 

< 101 > 
<254 > 
< 210 > 
<254> 

< 134> 
<058> 
< 222 > 

< 109> 
<217> 

<021 > 

< 010 > 

< 138> 

< 162> 
<193> 

< 180> 

< 190> 
<055> 
<007> 

< 155> 

< 187> 
<042> 

< 102 > 

< 117> 
<039> 
<088> 

< 172> 
<043> 

<014> 

<016> 

<252> 

< 178> 
<034> 

<043> 

<040> 


<067> 

<055> 

<206> 

<070> 

<239> 

<085> 

< 114> 
< 100 > 

<034> 

< 115> 

< 142> 
<180> 
<031 > 
<060> 

< 167> 

< 141 > 
<026> 
<253> 

<249> 

<033> 

<092> 

< 145> 
<225> 
<160> 

< 108> 


<049> 






< 010 > 
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18905 


18910 

18913 

18915 

18920 

18922 

18925 

18930 

18932 

18933 

18935 

18940 

18942 


18945 

18950 

18955 

18960 

18965 

19000 

19002 

19005 

19010 

19015 

19020 

19025 

19030 

19035 

19040 

19045 

19050 

19100 

19105 

19110 

19115 

19130 

19135 

19140 

19145 

19150 

19155 

19180 

19190 

19195 

19300 

19500 

19510 

19515 

19520 

20000 

20002 

20005 

20010 

20500 

20505 

20510 

20515 

20520 

20525 

20530 

20550 

20555 

21000 

21010 

21015 

21020 

21021 


GOSUB 10800:PRINT"{4D0WN,RIGHT >AUF.“ 
:GDSUB 10800:PRINT"{6D0WN,RIGHTJSCHU 
LD:"Z9 

GE<Z)=GE(Z)+.5*PR(Z4> 

KP(Z,FA(Z4))=KP<Z,FA(Z4>)-l 
HY(Z4)=l:RETURN 

GOSUB 10900:GOSUB 10800:PRINT"{DOWN, 
RIGHTJ"SP*(Z > : GOSUB 10,800 
PRINT•• {2D0WN,RIGHT JVERKAUFT " AR* < Z4) 
:GOSUB 10800 

PRINT"{3D0WN,RIGHT >"SN*(Z4) 

GOSUB 10800:PRINT"{6D0WN,RIGHT>SCHUL 
D: "Z9 

GE(Z)=GE<Z)+.5*PR(Z4) 

IF HY(Z4)=0 THEN KP(Z,FA(Z4>)=KP(Z,F 
A(Z4)>-l 

BE(Z4> =5:HY(Z4)=0:RETURN 
GOSUB 10900:GOSUB 10800:PRINT"{DOWN, 
RIGHT>"SP*(Z)" VERKAUFT":GOSUB 10800 
PRINT"{2D0WN,RIGHT>EIN HAUS AUF "AT* 
(Z4):GOSUB 10800:PRINT"{3D0WN,RIGHT> 
"SN*(Z4) 

GOSUB 10800:PRINT"{6D0WN,RIGHT JSCHUL 
D: "Z9 

SB(Z4> =SB <Z4> —1:V=V—1 

GE<Z)=GE(Z)+INT<(FA(Z4)+1>/2)*500 

GT=GT—1 

RETURN 

FE=0 

GET B*:IF B*=""THEN 19000 
GET C*:IF C*=""THEN 19005 
GET D*:IF D*="“THEN 19010 
A*=B*+C*+D* 

IF A*="SCH"THEN 19100 
IF A*="HAU"THEN 19130 
1=0 

1=1+1:IF 1=41 THEN 19045 
IF LEFT*(SN*(I),3)<>A*THEN 19035 
IF 1=41 THEN 19300 
GOTO 19180 

GET B*:IF BS=""THEN 19100 

IF B*=”L"THEN 1=40:GOTO 19180 

IF B*< >"I"THEN 19300 

1=27:GOTO 19180 

GET B*:IF B*="“THEN 19130 

GET BS: IF B*='"'THEN 19135 

GET B*:IF B*="“THEN 19140 

IF B*= “S"THEN 1=33: GOTO 19180 

IF B*<>"B"THEN 19300 

1=36:GOTO 19180 

A*=SN*(I> 

GOSUB 10800:PRINT"{6DDWN,RIGHT >"A* 

RETURN 

FE=1:RETURN 

IF GE(Z)>PY THEN PJ=0:RETURN 

PJ=1:GOSUB 10800:PRINT"{5D0WN,RIGHT > 

"SP*(Z) n HAT NICHT":GOSUB 10800 

PRINT"{6D0WN,RIGHT>GENUG GELD." 

RETURN 

TT=VAL <LEFT*(TI*,2)>»60+VAL(MID*(TI* 
,3,2)) 

PRINT"{HOME,GREY 1J"TR*TU*;"{5SPACE, 
5LEFT}"STR* < RU—TT) 

PRINT"{HOME,GREY 1>"FR*FU*;"{6SPACE, 
6 LEFT >"STR*(FP > 

RETURN 

IF PO(Z)=39 THEN GOTO 20520 

GOSUB 10900:GOSUB 10800:PRINT"{DOWN, 

RIGHT>"SP* <Z)" MUSS" 

GOSUB 10800:PRINT"{2DOWN,RIGHT>4000 
DM ZAHLEN." 

BZ=4000:GOTO 20550 

GOSUB 10900:GOSUB 10800:PRINT"{DOWN, 
RIGHT>"SP*(Z)" MUSS“ 

GOSUB 10800:PRINT"{2DOWN,RIGHT>2000 
DM ZAHLEN." 

BZ=2000:GOTO 20550 

IF BZ>GE(Z)THEN Z9=BZ:GOSUB 18000 

GE(Z)=GE(Z)-BZ:FP=FP+BZ:RETURN 

GOSUB 22000:GW(Z)=GW(Z)+1 

IF WP*="PASCH"THEN PG<Z>=0:GW<Z)=0:G 

OSUB 21100:GOTO 3105 

IF GW<Z)=3 THEN GW<Z)=0:PG(Z>=0:Z9=l 
000:GOSUB 21150:GOTO 24040 
IF FF <Z) = 1 THEN PG(Z)=0:GW(Z)=0:FF(Z 
)=0:GOTO 21065 

GOSUB 10900:GOSUB 10800:PRINT"{DOWN, 
RIGHTJWILLST DU DICH":GOSUB 10800 


< 000 > 

< 193> 
<135> 
<062> 

< 149> 

< 1B8> 

< 139> 

<178> 

<215> 

<053> 

< 193> 

< 100 > 


<219> 

< 195> 
< 012 > 
<075> 

< 145> 
<227> 
<064> 

< 170> 
<063> 
<196> 

< 107> 
<071> 
<096> 

< 167> 
< 222 > 

< 131 > 
<052> 

< 140> 

< 140> 

< 172> 
<128> 
<127> 

< 173> 
<188> 
<184> 
<167> 
<161> 
<151> 
<062> 
<018> 
<201 > 
<099> 
< 011 > 

< 138> 

< 137> 
<018> 

< 127> 
<246> 

< 136> 
< 000 > 
<214> 

<123> 

<187> 

< 220 > 

< 13B> 

<073> 

<171> 

<004> 

< 134> 

< 104> 

< 002 > 

<063> 

< 012 > 

< 148> 


21030 

21031 

21032 


21022 PRINT"{2D0WN.RIGHTJFUER DM 1000":GOS 

UB 10800:PRINT"{3D0WN,RIGHT >FREIKAUF 
EN GOSUB 10800 <000> 

21023 PRINT"{5D0WN,3RIGHT> (J/N)”;:IF Z>AN 

THEN 21030 <057> 

21024 TM*=TI* <105> 

21025 GET A*:IF A*<>"J"AND A*<>"N"THEN 210 

25 <195> 

21026 TI*=TM* <216> 

21027 IF A*="J"AND GE(Z>>=1000 THEN GW(Z)= 

3:PRINT" JA!":FOR A=1 TO 1000:NEXT:G 
OTO 21015 <081> 

21028 PRINT" NEIN!":FOR A=1 TO 1000:NEXT:G 

OTO 3235 <200> 

IF GT>10 OR GE(Z)<1000 THEN A*="N" <103> 

IF GE(Z)>1000 AND(WU=10 OR WU=7)THEN 

A*="J" <241> 

IF A*="N"THEN PRINT" NEIN!":FOR A=1 
TO 1000:NEXT:GOTO 3235 <188> 

21033 PRINT" JA!" <105> 

21035 FOR A=1 TO 1000:NEXT:GW<Z)=3:GOTO 21 

013 <005> 

21040 IF GE< Z) <Z9 THEN GOSUB 18000 <251> 

21045 IF Z2=l THEN 3235 <125> 

21050 GE(Z)=GE(Z> —1000:GOTO 3105 <006> 

21065 GOSUB 10900:GOSUB 10800:PRINT"{DOWN, 

3RIGHTJE/G-KARTE:“ <194> 

21066 GOSUB 10800:PRINT"{2D0WN,RIGHT>DU KO 

MMST AUS":GOSUB 10800:PRINT"{3D0WN,R 
IGHTJDEM GEFAENGNIS“ <117> 

21067 GOSUB 10800:PRINT“{4D0WN,RIGHT>FREI. 

" <205> 

21070 GOTO 3105 <023> 

21100 GOSUB 10900:GOSUB 10800:PRINT"{DOWN, 

4RIGHTJ* PASCH *" <204> 

21105 GOSUB 10800:PRINT"{2D0WN,RIGHT >DU KO 
MMST AUS":GOSUB 10B00:PRINT"{3D0WN,R 
IGHTJDEM GEFAENGNIS" <156> 

21110 GOSUB 10800:PRINT"{4D0WN,RIGHT JFREI. 

” <248> 

21115 RETURN <089> 

21150 GOSUB 10900:GOSUB 10800:PRINT"{DOWN, 

RIGHTJDU KOMMST FUER" <139> 

21155 GOSUB 10800:PRINT"{2DOWN,RIGHT>1000 
DM AUS DEM”:GOSUB 10800:PRINT"{3D0WN 
,RIGHTJGEFAENGNIS FREI" <173> 

21160 RETURN <134> 

21999 GOTO 3100 <125> 

22000 GOSUB 10900 <167> 

22005 GOSUB 10800:PRINT“{DOWN,3RIGHTJ* WUE 

RFELN *" <053> 

22010 IF ZJAN OR(PG(Z)=0 AND WP*="")THEN 2 

2025 <237> 

22015 GOSUB 10800:PRINT"{RVOFF,3D0WN,6RIGH 

TJRETURN" <176> 

22019 TM*=TI* <223> 

22020 GET A*:IF A*<>CHR*<13)THEN 22020 <095> 

22021 TI*=TM*:GOSUB 10800:PRINT"{3D0WN,6RI 

GHT, 6 SPACE >" <126> 

22025 W <1> = 6 :W(2 )=6 <224> 

22030 B(1)=INT(RND(1)*12>+13 <241> 

22040 B(2) = INT < RND(1)*12)+13 <011> 

22045 IF B<1)>=B<2)THEN X=B<l):GOTO 22050 <161> 

22046 X=B(2) <009> 

22050 FOR Y=1 TO X:FOR 1=1 TO 2 <110> 

22052 IF Y>B(I)THEN 22056 <224> 

22055 W(I)=W<I)—lsIF W(I)=0 THEN W<I )=6 <012> 

22056 NEXT I <040> 

22057 PRINT"{HOME >"LEFT* < RE*,21>LEFT*(UN*, 

22 )5 <090> 

22058 ON W<1)GOSUB 22200,22210,22220,22230 

,22240,22250 <113> 

22059 PRINT"{HOME >"LEFT*(RE*,25)LEFT*(UN*, 

22 > 5 < 220 > 

22060 ON W(2)GOSUB 22200,22210,22220,22230 

,22240,22250 <147> 

22065 NEXT Y <177> 

22070 IF W(1)=W < 2)THEN WP*="PASCH" <088> 

22072 IF W(l)OW<2) THEN WP*="" <204> 

22075 IF WP*="PASCH"THEN P=P+1:IF P=3 THEN 
PB(Z)=1:WU=11-PO(Z>:IF WU<0 THEN WU 
=WU+40 <168> 

22080 IF P=3 THEN 22100 <004> 

22085 WU=W <1)+W <2) <019> 

22090 RETURN <048> 

Listing »Monopoly« (Fortsetzung). Bitte verwenden Sie 
zur Eingabe nur den Checksummer in diesem Heft. 
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22100 

22105 

22110 

22115 

22120 

22200 


22210 


22220 


22230 

22240 


22250 

23000 

23002 

23005 

23010 

23012 

23015 

23020 

23025 

23030 

23035 

23040 

23100 

23102 

23105 

23110 

23112 

23115 

23120 

23125 

23130 

23135 

23140 

23145 

23150 

23155 

23160 

23162 

23165 

23166 

23170 

23171 

23172 

23173 
23175 

23180 

23185 

23190 

23195 

23200 

23201 


23202 

23203 

23204 

23205 

23206 

23207 

23208 

23209 

23210 

23211 


GOSUB 10900:GGSUB 10800 <060> 

PRINT"{DOWNIDREIMAL PASCH:" <123> 

GOSUB 10800:PRINT"{3DOWN}"SP*(Z)" MU 
SS INS" <190> 

GOSUB 10800:PRINT"{4D0WN}6EFAENGNIS. 

" <205> 

FOR A=1 TO 2000:NEXT:RETURN <234> 

PRINT"{LIG.GREEN.RVSON,3SPACE,DOWN,3 
LEFT,SPACESPACE,DOWN,3LEFT,3SPACE 
>"5:RETURN <092> 

PR I NT " <L IG.GREEN,RVSON,2SPACE>0<DOWN 
,3LEFT,3SPACE,DOWN,3LEFT>fi<2SPACE >"; 

:RETURN <097> 

PRINT"{LIG. GREEN,RVSON >S {2SPACE,DOWN 
,3LEFT,SPACE >fi<SPACE,DOWN,3LEFT,2SPA 
CEJfi"s:RETURN <085> 

PRINT"<LIG.GREEN,RVSON >fi fi{DOWN,3LEF 
T,3SPACE,DOWN,3LEFT >fi S";: RETURN < 032 > 

PRINT"<LIG.GREEN,RVSON5S {DOWN,3LEF 
T, SPACE }fi<SPACE, DOWN, 3LEFT >fi 3 ."; : RET 
URN <145> 

PRINT"(LIG.GREEN,RVSON >fi fi {DOWN,3LEF 
TJfi fi{D0WN,3LEFT>a a M 5 :RETURN <102> 

A=0 <039> 

IF LEN(ER*(A,EZ>)>18 THEN 23010 <133> 

A=A+1:GOTO 23002 <126> 

LT*=RIGHT*(ER*(A,EZ),6):L1*=LEFT*(LT 
*,1):E*(A)=LEFT*(ER*(A,EZ),18) <033> 

IF A>0 THEN FOR B=0 TO A-l:E*(B>=ER* 

(B,EZ):NEXT B <161> 

GOSUB 10900 <166> 

FOR 1=0 TO A <232> 

GOSUB 10800:PRINT LEFT*(UN*,1+1)E*(I 
> <248> 

NEXT I <252> 

EZ=EZ+1:IF EZ=16 THEN EZ=0 <227> 

GOTO 23140 <233> 

A=0 < 141 > 

IF LEN(GE*(A,GZ))>18 THEN 23110 <024> 

A=A+1:GOTO 23102 <236> 


LT*=RIGHT*(GE*(A,GZ),6):L1*=LEFT*(LT 
*,1>:G*(A)=LEFT*(GE*(A,GZ),18) <153> 

IF A>0 THEN FOR B=0 TO A-l:G*<B)=GE* 
<B,GZ):NEXT B <034> 

GOSUB 10900 <012> 

FOR 1=0 TO A <078> 

GOSUB 10800:PRINT LEFT*(UN*,1+1)G*(I 


< 126> 

NEXT I <098> 

GZ=GZ+1:IF GZ=16 THEN GZ=0 <165> 


IF MID*(LT*,1,3)<>”0"THEN L3=VAL(RIG 
HT*(LT*,4)):GOTO 23160 <082> 

IF MID*(LT*,1,4)<>"0"THEN L3=VAL(RIG 
HT*(LT*,3)):GOTO 23160 <030> 

IF MID*(LT*,1,5)<>"0"THEN L3=VAL(RIG 
HT*(LT*,2)):GOTO 23160 <235> 

L3=VAL(RIGHT*(LT*,1)>:GOTO 23160 <077> 

IF Ll*="X"THEN WU=L3-P0(Z>:IF WU<0 T 
HEN WU=WU+40 <242> 

IF L1*="X"THEN 3105 <075> 

IF L1*="Y"THEN WU=L3-P0(Z):LL=1 <029> 

IF L1*="Y"THEN 3105 <080> 

IF L1*< >"Z”THEN 23175 <097> 

IF L3>GE(Z)THEN Z9=L3:G0SUB 18000 <017> 

IF Z2=l THEN 3235 <220> 

GE(Z)=GE(Z)-L3:FP=FP+L3:G0T0 3235 <252> 

IF L1*="E"THEN GE(Z>=GE(Z)+L3:GOTO 3 
235 <111> 

IF L1*="G"THEN WU=-3:LL=1:GOTO 3105 <135> 

IF L1*="F"THEN FF(Z)=l:GDTO 3235 <061> 

IF L1*="K"THEN PG(Z)=1:WU=11-PO(Z>:I 
F WU<0 THEN WU=WU+40 <092> 

IF L1*="K"THEN GOSUB 9000:GOTO 3235 <012> 

IF Ll*<>"A"THEN 23220 <006> 

GOSUB 10800:PRINT"{6D0WN,RVOFF>E{RVS 
ON >•KARTE -{SPACE,RVOFF > Z{RVSON1AHLE 
N ?" <152> 

IF Z<=AN THEN 23205 <111> 

IF RND(1)<.5 OR GE(Z)<200 THEN 23210 <210> 
GOTO 23215 <110> 

TM*=TI* <137> 

GET A*:IF A*="“THEN 23205 <086> 

TI*=TM*:IF A*="E"THEN 23210 <002> 

IF A*< >"Z"THEN 23205 <181> 

GOTO 23215 <115> 

Q*="{6D0WN,8RIGHT,10SPACE>" <028> 

GOSUB 10800:PRINT Q*:FOR A=1 TO 1500 


: NEXT 


<090> 


23212 GOTO 23000 <116> 

23215 Q*="{6D0WN,9SPACE }" <037> 

23216 GOSUB 10800:PRINT Q*:IF GE(Z)<200 TH 

EN 23201 <196> 

23217 GE(Z)=GE(Z> —200:FP=FP+200:GOTO 3235 <032> 

23220 IF Ll*< >"B“THEN 23230 <156> 

23221 FOR 1=1 TO 4:IF I=Z THEN 23223 <120> 

23222 IF GE(I)>200 THEN GE(I)=GE(I)-200 <092> 

23223 NEXT I <191> 

23224 GE(Z)=GE(Z>+600 <034> 

23225 GOTO 3235 <002> 

23230 IF Ll*<> U S"THEN 23250 <201> 

23231 U=0 <096> 

23232 FOR 1=1 TO 40 <136> 

23233 IF SB(I)=5 AND BE(I)=Z THEN U=U+2300 

:GOTO 23235 <065> 

23234 IF SB(I)>0 AND BE(I)=Z THEN U=U+800* 

SB(I> <161> 

23235 NEXT:GOSUB 10800:PRINT"{6D0WN,RIGHT> 

GESAMT:"U"DM" < 027 > 

23236 IF GEIZXU THEN Z9=U:GOSUB 1B000 <228> 

23237 IF Z2=l THEN 3235 <029> 

23238 GE(Z)=GE(Z)-U <208> 

23239 FP=FP+U <199> 

23240 GOTO 3235 <017> 

23250 IF Ll*< >“R"THEN 3235 <219> 

23251 U=0 <i16> 

23252 FOR 1=1 TO 40 <156> 

23253 IF SB(I)=5 AND BE(I)=Z THEN U=U+2000 

:GOTO 23255 <084> 

23254 IF SB(I)>0 AND BE(I)=Z THEN U=U+500* 

SB(I> <051> 

23255 NEXT I:GOSUB 10800:PRINT"{6D0WN,RIGH 

T >GESAMT:"U"DM" <031> 

23256 IF GEIZKU THEN Z9=U: GOSUB 18000 <248> 

23257 IF Z2=l THEN 3235 <049> 

23258 GE(Z)=GE(Z)—U <228> 

23259 FP=FP+U <219> 

23260 GOTO 3235 <037> 

24000 IF BE(PO(Z))=5 THEN 24045 <119> 

24005 IF BE(PO(Z))=Z THEN GOSUB 10900:GOSU 
B 10800:PRINT"<DOWN,RIGHT>"SP*(Z>" I 

Qn jn» st- <041 > 

24006 IF BE(PO(Z))=Z THEN GOSUB 10800:PRIN 
T"{2D0WN,RIGHT>SELBST BESITZER":RETU 

RN <155> 

24010 IF BE(14)=BE(29)AND HY(14)=0 AND HY( 

29)=0 THEN MX=200*WU:GOTO 24020 <042> 

24012 MX=80*WU <018> 

24015 IF HY(PO(Z))=1 THEN 24500 <073> 

24020 GOSUB 10900:GOSUB 10800:PRINT"{DOWN, 

RIGHT}"SP*(Z)" ZAHLT AN":GOSUB 10800 <104> 
24025 PRINT"{2D0WN,RIGHT>"SP*(BE(PO(Z))>;M 
X"DM":GOSUB 10800:PRINT"{3D0WN,RIGHT 
IMIETE." <139> 

24030 GE(BE(PO(Z)))=GE(BE(PO(Z)>)+MX <142> 

24035 IF GE(Z)<MX THEN Z9=MX:G0SUB 18000:1 

F Z2=l THEN RETURN <149> 

24040 GE(Z)=GE(Z)-MX:RETURN <121> 

24045 GOSUB 10900:GOSUB 10800:PRINT"{DOWN, 

RIGHT >"SN*(PO(Z)):GOSUB 10800 <042> 

24047 PRINT"{2D0WN,RIGHT>IST FUER"PR(PO(Z) 

>"DM” <066> 

24050 GOSUB 10800:PRINT"{3D0WN,RIGHT>ZU VE 
RKAUFEN.":GOSUB 10800:PRINT"(5D0WN,3 
RIGHTJ(J/N)?" <121> 

24055 IF Z>AN THEN 24135 <164> 

24059 TM*=TI* <229> 

24060 GET A*:IF A*<>"J"AND A*< >"N"THEN 240 

60 <159> 

24061 TI*=TM* <201> 

24065 IF A*="N"THEN GOSUB 10800:PRINT"{5D0 

WN, 10RIGHT>NEIN ! ".-RETURN <217> 

24070 GOSUB 10800:PRINT"{5D0WN,10RIGHTJJA 

• " <007> 

24075 PY=PR(PO(Z)) <198> 

24080 GOSUB 19500:IF PJ=1 THEN RETURN <077> 

24085 GE(Z)=GE(Z)—PY <146> 

24090 BE(PO(Z))=Z <006> 

24095 KP(Z,FA(PO(Z> >)=KP(Z,FA(PO(Z)))+1 <237> 

24100 PRINT“{HOME}"LEFT*(UN*,ZL)"{RIGHT}"F 
A*(FA(PO(Z >))"{RVSON,14SPACE,RVOFF,S 
PACE}- "BB*(SB(PO(Z))); <161> 

24102 PRINT"{18LEFT,RVSON}"SN*(PO(Z)) <208> 
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24105 ZL=ZL+1:IF ZL=22 THEN GOBUB 10000!ZL 

=4 <136> 

24110 RETURN <036> 

24135 IF KP (Z ,FA (PO (Z) ) ) =0 AND RNDUX.l A 
ND GE(Z) <2*PR(PO(Z))THEN AS=“N":GOTO 
24065 <226> 

24140 IF GE<Z)>=PR(PO(Z))THEN A*="J":GOTO 

24070 <115> 

24145 AS=”N":GOTO 24065 <018> 

24200 IF BE(PO(Z> )=5 THEN 24045 <065> 

24205 IF BE(PO(Z))=Z THEN GOSUB 10900iGOSU 
B 10800:PRINT"{DOWN,RIGHT>"SPS(Z)“ I 

ST" <243> 

24206 IF BE(PO(Z))=Z THEN GOSUB 10800:PRIN 
T"{2DDWN,RIGHT JSELBST BESITZER":RETU 

RN <101> 

24208 MX=(2T(KP(BE(PO(Z>),FA(PO(Z> > >-l>>*5 

00 <169> 

24210 GOTO 24015 <052> 

24400 IF BE(PO(Z))=5 THEN 24045 <011> 

24405 IF BE(PO(Z)> =Z THEN GOSUB 10900:GOSU 
B 10B00:PRINT"{DOWN,RIGHT>"SP*(Z)" I 

ST" <189> 

24406 IF BE(PO(Z)> =Z THEN GOSUB 10800:PRIN 
T"C2D0WN,RIGHTJSELBST BESITZER":RETU 

RN <047> 

24410 MX=MI(PO(Z>,SB(PO(Z))) <163> 

24415 IF KP(BE(PO(Z)),FA(PO(Z)> > =KO(FA(PO( 

Z))>AND SB(PO(Z>>=0 THEN MX=MX*2 <113> 

24420 GOTO 24015 <00B> 

24500 GOSUB 10900:GOSUB 10B00:PRINT"{DOWN, 

RIGHT>HYPOTHEK AUF "ATS(PO(Z)):GOSUB 
10800 <014> 

24505 PRINT"C2D0WN,RIGHT>"SN*(PO(Z > >“:":SO 
SUB 10800:PRINT"{4D0WN,RIGHT >KEINE M 
IETE!" <005> 

24510 RETURN <182> 

25000 DIM PR(40), MI(40,5),BE(40),AR*(40),G 

W(4) <116> 

25005 DIM SB(40),FA(40),KP(4,10),HY(40),GE 

(4),Gl(4),GG(4>,SP*(5),P0(4>,PG(4) <226> 

25010 DIM ERS(4,15>,GE*(4,15>,V<15>,KN(40) 

,FB(40) ,ZE(40) ,AT*(40 >,ST(10,3) <107> 

25015 FOR A=1 TO 4:GE(A)=30000:NEXT <125> 

25020 FOR A=1 TO 40.-READ PR(A):NEXT <179> 

25025 FOR A=1 TO 40:FOR B=0 TO 5:READ MI(A 

,B>:NEXT B,A <024> 

25030 FOR A=1 TO 40:BE(A)=5:NEXT <003> 

25035 FOR A=1 TO 40:READ ARS(A):NEXT <247> 

25036 FOR A=1 TO 40:READ AT*(A):NEXT <024> 

25040 FOR A=1 TO 40:READ FA(A):NEXT <102> 

25045 FOR A=1 TO 10:READ KO(A):NEXT <241> 

25050 FOR A=0 TO 15:V(A>=A:NEXT <165> 

25055 FOR A=15 TO 0 STEP-1 <091> 

25060 C=INT(RND(1)*(A+1>>:E=0 <179> 

25065 READ GE*(E,V(C>) <20B> 

25070 IF LEN(GE*(E,V(C)>)<=18 THEN E=E+1:G 

OTO 25065 <187> 

25075 IF C=A THEN 25085 <112> 

25080 FOR D=C TO A-l:V(D>=V(D+l):NEXT D <233> 
25085 NEXT A:RETURN <071> 

25090 FOR A=0 TO 15:V(A)=A:NEXT <207> 

25095 FOR A=15 TO 0 STEP-1 <133> 

25100 C=INT(RND(1)* (A+l>):E=0 <221> 

25105 READ ER*(E,V(C)> <187> 


25110 IF LEN(ER*(E,V(C>>><=1B THEN E=E+1:G 
OTO 25105 

25115 IF C=A THEN 25125 

25120 FOR D=C TO A-l:V(D>=V(D+l>:NEXT D 
25125 NEXT A 

25130 FOR A=1 TO 4:READ NA*(A>:NEXT 

25135 FOR A=1 TO 11:B=32-A 

25136 KN(A)=2024-A:KN(B > =KN(A >-400 

25137 NEXT A 

25140 FOR A=12 TO 20:B=52-A 

25141 KN(A> =2013-40*(A-l1>:KN(B> =KN(A> +10 

25142 NEXT A 
25150 RE*="<40RIGHT >" 

25155 UN*="{28D0WNJ" 

25160 TR*=LEFT*(RE*,31):TU*=LEFT*(UN*,17) 

25165 FR*=LEFT*(RE*,31>:FUS=LEFT*(UN*,22 > 

25170 SR*=LEFT*(RE*,21):SU*=LEFT*(UN*,6) 

25175 L*="<CYAN,RVSON,18SPACE,DOWN,18LEFT> 

< 149> 

25180 FOR A=1 TO 3:LOS=LO*+LS:NEXT <215> 

25185 FOR A=1 TO 2:LP*=LP*+LS:NEXT <161> 

25190 FOR A=1 TO 2:LQ*=LQ*+LS:NEXT <234> 

25200 FA*(1> =”{BLUE>“:FA*(2)="{CYAN>":FA*( 


<098> 

< 132> 
<245> 
<253> 

< 136> 
<091 > 
<006> 
<009> 
<054> 

< 182> 
<014> 

< 146> 
<248> 
<021 > 

< 176> 
<028> 


3)="{PURPLE >":FA*(4 > ="{ORANGE >":FA*( 

5 > ="{RED >":FA*(6 > = "{YELLOW >" < 067 > 

25205 FA*(7 > ="{GREEN >":FA*(8)="{LIG.BLUE >" 

:FA*(9> = "{WHITEV:FA*(10)=“{GREY 2>" <016> 
25210 FOR A=1 TO 40:READ FB(A>,ZE(A):NEXT 

A <098> 

25215 RETURN <125> 

25220 FOR A=1 TO 40:POKE KN(A)+54272,FB(A> 

:POKE KN(A),ZE(A>:NEXT <044> 

25300 B=0:C=0:D=0 <246> 

25305 FOR A=1 TO 40:READ SN*(A> <216> 

25310 IF FA(A)<9 AND FA(A>>0 THEN ST(FA(A> 

,B)=A:B=B+1:IF B=KO(FA(A>>THEN B=0 <204> 

25315 IF FA(A)=9 THEN ST(9,0 =A:G=C+1 <219> 

25320 IF FA(A)=10 THEN ST(10,D>=A:D=D+1 <205> 

25325 NEXT A <197> 

25999 RETURN <147> 

26000 DATA 0,1200,0,1600,0,4000,2000,0,200 

0,2400,0,2800,2800,3000,3200,4000 <106 > 

26005 DATA 3600,0,3600,4000,0,4400,0,4400, 

4800,4000,5200,5200,3000,5600,0,6000 <176> 
26010 DATA 6000,0,6400,4000,0,7000,0,8000 <121> 

26020 DATA 0,0,0,0,0,0 <109> 

26025 DATA 40,200,600,1800,3200,5000 <025> 

26030 DATA 0,0,0,0,0,0 <119> 

26035 DATA 80,400,1200,3600,6400,9000 <041> 

26040 DATA 0,0,0,0,0,0 <129> 

26045 DATA 500,1000,2000,4000,0,0 <151> 

26050 DATA 120,600,1800,5400,8000,11000 <155> 

26055 DATA 0,0,0,0,0,0 <144> 

26060 DATA 120,600,1800,5400,8000,11000 <165> 

26065 DATA 160,800,2000,6000,9000,12000 <148> 

26070 DATA 0,0,0,0,0,0 <159> 

26075 DATA 200,1000,3000,9000,12000,15000 <136> 

26080 DATA 200,1000,3000,9000,12000,15000 <141> 

26085 DATA 1,1,1,1,1,1 <128> 

26090 DATA 240,1200,3600,10000,13000,16000 <123> 
26095 DATA 500,1000,2000,4000,0,0 <201> 

26100 DATA 280,1400,4000,11000,15000,19000 <222> 
26105 DATA 0,0,0,0,0,0 <194> 

26110 DATA 280,1400,4000,11000,15000,19000 <232> 
26115 DATA 320,1600,4400,12000,16000,20000 <252> 
CH 26^8 DATA 0,0,0,0,0,0 <211 > 

26125 DATA 360,1800,5000,14000,17500,23000 <171> 
26130 DATA 0,0,0,0,0,0 <221> 

26135 DATA 360,1800,5000,14000,17500,23000 <181> 
26140 DATA 400,2000,6000,15000,18500,24000 <049> 
26145 DATA 500,1000,2000,4000,0,0 <253> 

26150 DATA 440,2200,6600,17000,21000,25000 <245> 
26155 DATA 440,2200,6600,17000,21000,25000 <250> 
26160 DATA 1,1,1,1,1,1 <205> 

26165 DATA 480,2400,7200,18000,22500,27000 <101> 
26170 DATA 0,0,0,0,0,0 <005> 

26175 DATA 520,2600,7800,19000,24000,28000 <023> 
26180 DATA 520,2600,7800,19000,24000,28000 <028> 
26185 DATA 0,0,0,0,0,0 <020> 

26190 DATA 560,2800,8400,20000,25500,30000 <254> 
26195 DATA 500,1000,2000,4000,0,0 <047> 

26200 DATA 0,0,0,0,0,0 <035> 

26205 DATA 700,3000,11000,25000,30000,3500 

0 <225> 

26210 DATA 0,0,0,0,0,0 <045> 

26211 DATA 1000,4000,12000,28000,34000,400 

00 <178> 


26212 DATA,DIE,DAS,DIE,DIE,DEN,DIE,DAS,DIE 


,DIE,DAS,DIE,DIE,DAS,DIE,DEN,DIE,DAS <181> 

26213 DATA DIE,DIE,,DIE,DAS,DIE,DEN,DEN,DI 

E,D.IE,DAS,DIE,,DEN,DIE,DAS,DIE,DEN <116> 

26214 DATA DAS,DIE,DIE,DIE <238> 

26215 DATA,DER,DEM,DER,DER,DEM,DER,DEM,DER 

,DER,DEM,DER,DER,DEM,DER,DEM,DER,DEM <037> 

26216 DATA DER,DER,,DER,DEM,DER,DEM,DEM,DE 
R,DER,DEM,DER,,DEM,DER,DEM,DER,DEM,D 

EM <220> 

26217 DATA DER,DER,DER <137> 

26275 DATA 0,1,0,1,0,9,2,0,2,2,0,3,3,10,3, 

9,4,0,4,4,0,5,0,5,5,9,6,6,10,6,0 <159> 

26280 DATA 7,7,0,7,9,0,8,0,8 <005> 

26285 DATA 2,3,3,3,3,3,3,2,4,2 <116> 

26330 DATA"ZAHLE AN DAS KRAN- <246> 

26331 DATA"KENHAUS■ DM 2000<2SPACE>Z 2000 <178> 

26335 DATA" AUS LAGERVERKAEU- <199> 

26336 DATA" FEN ERHAELTST DU <087> 

26337 DATA" DM 100.<10SPACE>E 0100 <100> 

26340 DATA" EINKOMMENSSTEUER- <12B> 
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26341 DATA" RUECKZAHLUNG. DU 

26342 DATA" ERHAELTST DM 400.E 0400 

26345 DATA"{3SPACE1ARZTK0STEN. 

26346 DATA"{3SPACE}ZAHLE DM 100.{2SPACEJZ 
0100 

26350 DATA "DU KOMMST AUS DEM 

26351 DATA"GEFAENGNIS FREI.{2SPACE1F 0000 

26355 DATA" ZAHLE DEINE VER- 

26356 DATA" SICHERUNGSSUMME. 

26357 DATA" DM 1000.{9SPACE3Z 1000 

26360 DATA"BANKIRRTUM ZU 

26361 DATA"DEINEN GUNSTEN. DU 

26362 DATA"ERHAELTST DM 4000 E 4000 

26365 DATA"DU HAST IM KREUZ- 

26366 DATA"WORTRAETSEL GEWON- 

26367 DATA"NEN. DU ERHAELTST 

26368 DATA"DM 2000.{10SPACE1E 2000 

26370 DATA" GEHE ZURUECK ZUR 

26371 DATA“ BADSSTRASSE.{5SPACE3Y 0002 

26375 DATA"{3SPACE1GEHE IN DAS 

26376 DATA"{3SPACE3GEFAENGNIS{5SPACETK 001 
1 

26380 DATA"DEINE JAHRESRENTE 

26381 DATA"WIRD FAELLIG. 

26382 DATA"ZIEHE DM 2000 EIN.E 2000 

26385 DATA"DU HAST IN EINER 

26386 DATA"SCHOENHEITSKONKUR— 

26387 DATA"RENZ DEN 2. PREIS 

26388 DATA"GEWONNEN. DU 

26389 DATA“ERHAELTST DM 200<2SPACE>E 0200 

26390 DATA" AUS VORZUGSAKTIEN 

26391 DATA" ERHAELTST DU 77. 

26392 DATA" DIVIDENDE. DM 500E 0500 


< 134> 
<066> 

< 114> 

<249> 

< 169> 
<061 > 

< 126> 

< 170> 
<136> 

< 125> 
<091 > 
<030> 

< 191 > 

< 151 > 
<035> 
<061 > 

< 106> 

< 104> 
<249> 

<240> 

< 164> 
<098> 

< 156> 
<052> 

< 164> 
<054> 
<201 > 

< 174> 
<006> 
<254> 
<240> 


26395 DATA" DU ERBST DM 2000.E 2000 <0B0> 

26400 DATA" ZAHLE EINE STRA- <244> 

26401 DATA" FE VON DM 200 <251> 

26402 DATA" ODER NIMM EINE <054> 

26403 DATA" EREIGNISKARTE.<3SPACE>A 0000 <027> 

26405 DATA" RUECKE VOR BIS <227> 

26406 DATA" AUF LOS{10SPACE>X 0001 <180> 

26410 DATA"<3SPACE>MACHE EINEN <13B> 

26411 DATA"{3SPACE3AUSFLUG ZUM <176> 

26412 DATA"<3SPACE>WESTBAHNHOF<4SPACE>X 00 

16 <186> 

26415 DATA" ZAHLE SCHULGELD. <056> 

26416 DATA" DM 3000.C9SPACE1Z 3000 <101> 

26420 DATA"BETRUNKEN IM <211> 

26421 DATA"DIENST. ZAHLE EINE <152> 

26422 DATA"STRAFE VON DM 200.Z 0200 <024> 

26425 DATA" RUECKE VOR BIS <247> 

26426 DATA" ZUR SCHLOSSALLEE.X 0040 <131> 

26430 DATA" DIE BANK ZAHLT <064> 

26431 DATA" DIR EINE DIVIDEN- <082> 

26432 DATA" DE VON DM 1000.{2SPACE3E 1000 <000> 

26435 DATA"<2SPACE>GEHE 3 FELDER <182> 

26436 DATA"{2SPACE>ZURUECK.<8SPACE>G 0003 <248> 

26440 DATA" RUECKE VOR BIS <006> 

26441 DATA" ZUR SEESTRASSE.{2SPACEJX 0012 <130> 

26445 DATA" STRAFE FUER ZU <158> 

26446 DATA“ SCHNELLES FAHREN. <064> 

26447 DATA" DM 300.<10SPACE>Z 0300 <200> 

26450 DATA" MIETE UND ANLEI- <054> 

26451 DATA" HEZINSEN WERDEN <213> 

26452 DATA" FAELLIG. DU ER- <069> 

26453 DATA" HAELTST DM 3000. E 3000 <127> 

26455 DATA"{2SPACE3RUECKE VOR BIS <021> 

26456 DATA"C2SPACEJAUF LOS.{BSPACE3X 0001 <214> 

26460 DATA“ RUECKE VOR BIS <026> 

26461 DATA" ZUM OPERNPLATZ.{2SPACE3X 0025 <094> 

26465 DATA" STRASSENAUSBES- <019> 

26466 DATA"{3SPACE3SERUNGSARBEITEN <022> 

26467 DATA"PRO HAUS-<2SPACE>DM 800 <122> 

26468 DATA"PRO HOTEL- DM 2300S 0000 <229> 

26470 DATA" LASSE DEINE HAEU- <201> 

26471 DATA" SER RENOVIEREN. <218> 

26472 DATA"PRO HAUS-<2SPACE>DM 500 <190> 

26473 DATA"PRO HOTEL- DM 2000R 0000 <223> 

26475 DATA"<3SPACE>GEHE IN DAS <093> 

26476 DATA"{3SPACE 3GEFAENGNIS{5SPACE >K 001 

1 <084> 

26480 DATA" ES IST DEIN GE- <004> 

26481 DATA“ BURTSTAG. ZIEHE <023> 

26482 DATA" VON JEDEM SPIE- <017> 

26483 DATA" LER DM 200 EIN.{2SPACE3B 0200 <137> 

26485 DATA" DU KOMMST AUS DEM <050> 

26486 DATA“ GEFAENGNIS FREI. F 0000 <198> 

26490 DATA 1 C0MM,2 C0MM,3 CQMM,4 COMM <083> 


26500 DATA 1,159,6,130,12,160,6,148,11,160 
,1,147,3,131,12,160,3,133,3,144,10,1 
63 

26510 DATA 4,147,4,136,15,133,4,142,1,151, 
8,141,12,160,8,151,8,130,13,164 
26515 DATA 2,141,12,160,2,148,2,143,1,142, 
7,147,7,140,15,151,7,135,10,161 
26520 DATA 5,146,5,136,12,160,5,130,1,136, 
12,160,14,144,11,160,14,147 
26620 DATA LOS,BADSTRASSE,GEMEINS.-FELD,TU 

RMSTRASSE,EINKOM.-STEUER,SUEDBAHNHOF <174 > 
26625 DATA CHAUSSEESTR..EREIGNISFELD,ELISE 
NSTRASSE, POSTSTRASSE, GEFAENGN IS 
26630 DATA SEESTRASSE,HAFELSTRASSE,ELEKTR. 

-WERK,NEUE STRASSE,WESTBAHNHOF 
26632 DATA MUENCHNER STR.,GEMEINS.-FELD,WI 
ENER STRASSE,BERLINER STR.,FREI PARK 
EN 

26635 DATA MUSEUMSSTRASSE,EREIGNISFELD,THE 
ATERSTRASSE,OPERNPLATZ,NORDBAHNHOF 
26640 DATA SCHILLERSTR.,LESSINGSTRASSE,WAS 
SERWERK,GOETHESTRASSE,GEHE INS GEF. 

26645 DATA RATHAUSPLATZ.HAUPTSTRASSE,GEMEI 

NS.-FELD,BAHNHOFSTRASSE,HAUPTBAHNHOF < 017> 
26650 DATA EREIGNISFELD,PARKSTRASSE,ZUSATZ 
STEUER,SCHLOSSALLEE 

27000 GOSUB 10900!GOSUB 10800:PRINT"{DOWN, 

RIGHT}"SPS(Z)" IST":GOSUB 10800 

27001 PRINT"{2D0WN,RIGHTJAUSGESCHIEDEN 

27002 GE(Z> =0 

27005 FOR 1=1 TO 40:IF BE(I)=Z THEN BE(I>= 

5 

27006 NEXT I 

27010 FOR 1=1 TO 4:IF I=Z THEN 27015 
27012 IF PO(I> =PO(Z)THEN Q=1:J=I 
27015 NEXT I 
27020 IF Q=0 THEN 27030 

27022 IF ASC(S#(J))<65 THEN POKE KN(POtZ)) 

+54272,1:POKE KN(PO(Z> >,ASC(S#(J)> 

27025 IF ASC(SS(J))>=65 THEN POKE KN(PO(Z, 

)+54272,1:POKE KNCPO(Z)),ASC(SS(J> >- 
64 

27* 17 GOTO 27035 

27030 POKE KN(PO(Z))+54272,FB(PO <Z)):POKE 
KN (PO (Z) ) , ZE (PO (Z) ) 

27035 PO(Z>=0 
27040 J=0 

27045 FOR 1=1 TO 4:IF PO(I>=0 THEN J=J+1 
27050 NEXT I 
27055 IF J=3 THEN 27100 
27075 Z2=l:RETURN 
27100 FOR A=1 TO 4:FOR 1=1 TO 40 
27110 IF BE(I)=A THEN Gl(A)=61(A)+PR(I)*(1 
+.5*(HY(I>=1> > 

27115 IF BE(I)=A AND SB(I>>0 THEN G1(A)=G1 
(A> + <INT((FA(I)+1>/2)*500)»SB(I) 

27120 NEXT I 
27125 GG(A)=GE(A)+G1(A) 

27130 NEXT A 
27135 PRINT"<CLR>" 

27137 PRINT:PRINT 

27140 PRINT"<RED,9SPACE>E N D R E S U L 
A T" 

27145 PRINT" CBLUE,9SPACE) ADP.PIUIJia_DIIDDJJlJl!)D 
flBflfl " 

27150 PRINT:PRINT 

27155 PRINT"{YELLOW,SPACE}SPIELER:{2SPACE, 

PURPLEJKAPITAL:C2SPACE,CYAN >BESITZ:{ 

3SPACE,ORANGEJGESAMT:" 

27160 PRINT"<WHITE>- 

-... < 177> 

27163 PRINT <085> 

27165 FOR A=1 TO 4 <149> 

27170 PRINT TAB(1)"{YELLOW>“SP#(A);TAB(11) 

" {PURPLE!"GE (A); TAB (21) " {CYANVGl (A> 

;TAB(31)"{ORANGE >"GG(A) 

27172 PRINT 
27175 NEXT A 
27180 PRINT:PRINT:PRINT 

27185 PRINT"{GREEN,4SPACEJN0CH EIN SPIEL ? 

-> [SPACE3" 

27190 GET A#:IF A#<>" "THEN 27190 
27200 RUN 
6 64'et- 

Listing »Monopoly« (Schluß). Zur sicheren Eingabe ver¬ 
wenden Sie bitte den Checksummer in diesem Heft. 


< 151 > 


< 162> 


< 109> 


< 222 > 


<754> 


<211 > 


<249> 


<1"7> 


< 100 > 


<035> 

<066> 
<027> 
<051 > 

< 199> 
<164> 
<105> 

< 178> 

< 173> 
<045> 

< 192> 


<0u6> 

<251 > 

< 125> 

< 200 > 
<051 > 
<055> 
<208> 
< 110 > 
< 181 > 
<021 > 

<036> 

<229> 
< 022 > 
<132> 
<224 > 

< 197> 
<165> 

<042> 

<063> 

< 178> 


<244> 


<048> 

<094> 

<015> 

<125> 

<203> 
< 167> 
<062> 
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C 64 


Taktikspiele 


Risiko 


Werden Sie Feldherr auf dem Plane¬ 
ten »Gurungo«. Vernichten Sie die 
feindlichen Armeen, um die Macht auf 
diesem Planeten an sich zu reißen. 

Bei dem Spiel Risiko handelt es sich um eine Variante des 
bekannten Strategiespiels gleichen Namens. Das Programm 
kann auf Kassette und Diskette abgespeichert werden. Die 
Spieler, deren Anzahl zwischen zwei und sechs liegen darf, 
befinden sich in einer fernen Galaxis auf dem Planeten 
»Gurungo« mit seinen sieben Kontinenten. Jeder Spieler ist 
Feldherr auf diesem Planeten und besitzt eine Anzahl von 
Ländern, die am Anfang des Spieles ausgelost werden. 

Die Aufgabe der Spieler ist es, möglichst viele Länder zu 
erobern beziehungsweise die eigenen Länder zu verteidigen. 
Gelingt es einem Spieler einen ganzen Kontinent zu erobern, 
um so besser für ihn, denn die Anzahl der Truppen, die jeden 
Monat vom Heimatplaneten kommen, um die auf dem Plane¬ 
ten »Gurungo« stationierten Armeen aufzufüllen, richtet sich 
nach den komplett eroberten Kontinenten. 

Programmablauf 

Nach dem Laden und Starten des Programms wird gefragt, 
ob die Spielregeln schon bekannt sind. Bei der Eingabe von 
»j« erscheint die Anleitung auf dem Bildschirm. Weitergeblät¬ 
tert wird mit einer beliebigen Taste. Nachdem die Anzahl der 
Spieler und deren Namen eingegeben wurden, lost der C 64 
die Länder aus und verteilt sie gleichmäßig an jeden Spieler. 
Sollte sich die Anzahl der Länder nicht durch die Anzahl der 
Spieler teilen lassen, werden die restlichen Länder per Zufall 
verlost. Daher kann es passieren, daß ein Spieler mehr Länder 
bekommt als ein anderer. Der Spieler, der als erster in der 
Namensliste aufgeführt ist wird aufgefordert, die Armeen 
(mindestens 4), die jeden Monat seine Streitmacht auffüllen, 
auf seine Länder zu verteilen. 

Ist dies geschehen, erfolgt ein Angriff. Dazu muß der 
angreifende Spieler den Kontinent, das Land und die Anzahl 
der Armeen, mit denen angegriffen werden soll, dem C 64 
über ein Menü mitteilen. Anschließend muß noch angegeben 
werden, welches Land angegriffen werden soll. Der Verteidi¬ 
ger setzt alle im Land stationierten Armeen ein, um sich vor 
dem Angreifer zu schützen. Der Angreifer muß aber minde¬ 
stens eine Armee im angreifenden Land stehen lassen. 

Jetzt wird gewürfelt. Jeder an der Schlacht teilnehmenden 
Armee wird ein Würfel zugeordnet. Zieht der Angreifer mit 
mehr Armeen in die Schlacht als Armeen auf der zu verteidi¬ 
genden Seite stehen, geht die gleiche Anzahl von Würfeln in 
die Wertung ein wie bei dem Verteidiger. Es werden aber die 
Würfel mit den meisten Würfelaugen genommen. Jetzt wer¬ 
den die einzelnen Würfel miteinander verglichen. Abhängig 
von der Anzahl der Würfelaugen, verliert der Angreifer bezie¬ 
hungsweise der Verteidiger bei jedem Vergleich eine Armee. 
Ist die Anzahl von Würfelaugen bei dem Angreifer und Vertei¬ 
diger identisch, verliert der Angreifer eine Armee. Dies wie¬ 
derholt sich so lange bis entweder der Verteidiger alle 
Armeen verloren hat, dann ist das Land erobert worden, oder 
die Armeen des Angreifers auf eine zusammengeschrumpft 
sind, dann ist das Land erfolgreich verteidigt worden. 

Hin und wieder kommt es vor, daß ein Spieler nur noch 
wenige Armeen besitzt. Um diese Armeen und die neu hinzu¬ 
gekommenen nicht zu gefährden, ist es manchmal besser 
niemanden anzugreifen. Dazu gibt der Spieler, wenn die 


Frage auf dem Bildschirm erscheint »Angriff von weichem 
Kontinent aus?« einfach ein »x« ein. Mit der Taste »x« kann aus 
jedem Spielstadium heraus eine Routine beendet werden. 

Unabhängig davon ob ein Angriff stattgefunden hat oder 
nicht, wird dem Spieler die Gelegenheit gegeben, seine 
Armeen zu verschieben. Dazu muß dem C 64 mitgeteilt wer¬ 
den, wieviele Armeen verschoben werden sollen, von wel¬ 
chem Kontinent und welchem Land zu welchem Land 
geschoben werden soll. Dabei kann kein Land übersprungen 
werden. Das Programm bietet jedoch die Möglichkeit, die Ver¬ 
schieberoutine genauso wie die Angriffsroutine so häufig zu 
wiederholen bis das Ergebnis zufriedenstellend ist. 

Da das Spielfeld nicht permanent angezeigt wird, ist, um 
sich einen Überblick über die Land- und Kontinentaufteilung 
zu machen, die Taste »@« zu drücken. Diese Taste kann aus 
jeder Spielsituation angesprochen werden. Es erscheint ein 
weiteres Menü auf dem Bildschirm. Wird die Fl-Taste ge¬ 
drückt, kann auf dem Bildschirm die »Planetenkarte« betrach¬ 
tet werden. Auf ihr sind alle Kontinente und die Verbindungen 
von einem zum anderen Kontinent eingetragen. Möchte man 
sich ein genaues Bild über einen bestimmten Kontinent ver¬ 
schaffen, istzuersteine beliebige Taste zu drücken, um in das 
Menü zu gelangen. Anschließend ist eine der sieben Funk¬ 
tionstasten zu drücken; denn jeder dieser sieben Funktions¬ 
tasten ist ein Kontinent zugeordnet. Nun erscheint der Konti¬ 
nent auf dem Bildschirm. Auf dieser Karte sind die Länder und 
deren Eigentümer verzeichnet. Soll das Spiel fortgesetzt wer¬ 
den, kann das »Landkarten-Menü« mit der Taste »x« verlassen 
werden. 

(Bernd Hornig / ah) 


1 REM ******************************** <051> 

2-Rp! * * <051 > 

3 REM * RISIKO * <233> 

4 REM * * <053> 

5 REM * GESCHRIEBEN VON BERND HORNIG * <090> 

6 REM * * <055> 

* ABSENDER: * <205> 

* BERND HORNIG * <180> 

* BISMARCKSTR.77 * <098> 

* 4100 DUISBURG 1 * <093> 

* * <060> 

12 REM ******************************** <062> 

15 GOSUB 55000 <107> 

20 S=0:DIM LS(45):DIM MS(45) <147> 

30 DIM Q (45):DIM LA(45,6):DIM WS(6):DIM SS 

(6):DIM NS(45> <157> 

40 DIM WV(13):DIM WU(13):DIM WES(6,5):DIM 

KO(6):DIM KL(6):DIM DD(6) <117> 

100 WES(6,l>="U£££r' <230> 

110 WES(6,2)=":da fi=" <217> 

120 WES(6,3> = "=Ji a=" <228> 

130 WES(6,4)="^ä <239> 

140 WES(6,5>="£C£££" <099> 

150 WES (1,1) =WES (6,1): WES (1,2)= " ~<3SPACE 

WES(1,3)="s S. =":WES(1,4)=WES(1,2> <103> 

160 WES(1,5)=WES(6,5) <01B> 

170 WES(2,1> =WES(6,1):WES(2,2) = " ;^ä<2SPACE> 

= ":WES(2,3)=WES(1,2):WES(2,4)="=<2SPAC 
E).Q—<096> 
180 WES(2,5)=WES(6,5) <102> 

190 WES(3,1)=WES(6,1>:WES(3,2)=WES(2,2) :WE 

S(3,3)=WES(1,3):WES(3,4)=WES(2,4) <044> 

200 WES(3,5)=WES(6,5) <186> 

210 WES(4,1)=WES(6,1):WES(4,2)=WES(6,2):WE 

S(4,3)=WES(2,3):WES(4,4)=WES(6,4) <038> 

220 WES(4,5)=WES(6,5) <015> 

230 WES(5,1)=WES(6,1):WES(5,2)=WES(6,2): WE 

S(5,3)=WES(1,3):WES(5,4)=WES(6,4) <135> 

240 WES(5,5)=WES(6,5) <099> 

250 DIM A(7):DIM B(7) <226> 

260 A(l) =4: A (2) =8: A (3) =6: A (4) =9: A (5) =6: A (6 

)=7:A(7)=5 <217> 

Listing 1. Listing zum Programm »Risiko«. 

Bitte nur mit dem Checksummer in diesem Heft 
eingeben. 


7 REM 

8 REM 

9 REM 

10 REM 

11 REM 
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270 B(1)=0:B(2)=4:B(3)=12:B(4)=18:B(5)=27- 
B(6)=33:B(7)=40 

280 ER=45:AR=4:DIM XS(6):F0R 1=1 TO 6:XS(I 
)=0:DD(I> =0:NEXT:C=1:WT=1:GF=0 
900 BOSUB 20000:PRINT"{CLR,13D0WN,8RIGHT,L 
IG.BLUE,SPACEJSPIELANLEITUNG ?{2SPACE> 
CJ/NJ" 

910 GET A*:IF A*=""THEN 910 
920 IF A*="J"THEN GOSUB 60000 
1000 F'OKE 53281,0: POKE 53280,0 
1010 PRINT"ICLR,12DOWN,2RIGHT,GREEN,6RIGHT 
JWIEVIELE SPIELER ? (2-6)" 

1020 GET S*:IF S*=""THEN 1020 
1030 IF S*="2"THEN L=22:S=2 
1040 IF S*="3"THEN L=15:S=3 
1050 IF S*="4"THEN L=11:S=4 
1055 IF S*="5"THEN L=9:S=5 
1060 IF S*="6"THEN L=7:S=6 
1070 IF S=0 THEN 1020 
1080 PRINT"{24D0WN,16UP >" 

1090 FOR W=1 TO S 

1100 PRINT"{DOWNJNAME DES " ; :PRINT W;:PRIN 
T". SPIELERS INPUT W*(W> 

1101 S*(W)=LEFT*(W*(W>,2) 

1102 IF W>=2 THEN Y=0:GOTO 1104 

1103 GOTO 1108 

1104 FOR 1=1 TO W:IF S*(W>=S*(I)THEN Y=Y+1 

1105 NEXT I 

1107 IF YOl THEN 1100 

1108 NEXT W 

1109 PRINT"{CLR,9D0WN,GREEN,RIGHTJBITTE GE 
DULD ICH LOSE DIE LAENDER AUS" 

1110 FOR X=1 TO 45:READ L*(X),ZA,ZB,ZC,ZD, 

ZE,ZF ’ 

1111 LA(X,1)=ZA:LA(X,2)=ZB:LA(X,3)=ZC:LA(X 
, 4)=ZD: LA(X,5)=ZE:LA(X,6)=ZF 

1118 N*(X)="00":M*(X)="0":Q(X)=1:NEXT X 

1120 FOR V=1 TO L 

1130 FOR P=1 TO S 

1140 X=INT(ER*RND(1>)+l 

1145 IF N*(XX>"00"THEN 1140 

1150 N*(X)=S*(P):M*(X)=W*(P> 

1160 IF X=ER THEN ER=ER—1 
1170 NEXT P:NEXT V 
1180 FOR KL=1 TO 45 

1190 IF N*(KL)=“OO"THEN N*(KL)="C0":M*(KL) 
="COMPUTER" 

1^00 NEXT KL 
1500 GOSUB 20000 

1505 PRINT"{GREEN,CLR,9D0WN,5RIGHTJFELDHEE 
R "J:PRINT W*(C> 

1510 PRINT"{2D0WN,5RIGHT>SIE BEKOMMEN " ; :P 
RINT"{RED >";: PRINT AR;:PRINT"{GREEN,S 
PACE>ARMEEN DAZU" 

1515 FOR 1=1 TO 1500:NEXT I 
1520 PRINT"{3D0WN,5RIGHT>W0 SOLLEN DIE ARM 
EEN HIN ?":FOR 1=1 TO 750:NEXT I 
1530 GOSUB 52400 
1540 GOSUB 20000 

1550 A*= " ": PR I NT " {CLR, RED > "; 

1551 SI=54272:FL=SI:FH=SI+1:TL=SI+2:TH=SI+ 
3:W=SI+4:A=SI+5:H=SI+6:L=SI+24 

1552 FOR X=15 TO 0 STEP-.1:PRINT" ANGRIFF 


< 202 > 
< 156> 


<036> 

<086> 

<160> 

<237> 

<038> 

<077> 

<252> 

<216> 

<229> 

<028> 

< 131 > 
<004> 
<205> 
<045> 

< 185> 

< 184> 

< 179> 
<045> 

< 199> 

< 173> 
<183> 
<032> 

<030> 

< 191 > 

<02B> 

< 145> 

< 192> 
<029> 
<145> 
<060> 

< 112 > 
<125> 

< 174> 
<090> 

<096> 

<224> 

<218> 

< 192> 


<023> 
<206> 


IHRE LAENDER{DOWN>" 


5 

1553 POKE L,X:POKE A,15:P0KE H,74:P0KE FH, 
140:POKE W,129 

1554 NEXT 

1555 POKE W, 0:POKE A,0 
1560 IF A*="N"THEN 1580 
1565 GOSUB 15000 

1567 IF A*="N"THEN 1580 
1570 GOTO 1565 
1580 GOSUB 20000 

1590 PRINT"{CLR,PURPLE>" 

1591 SI=54272:FL=SI:FH=SI+1:TL=SI+2:TH=SI+ 
3:W=SI+4:A=SI+5:H=SI+6:L=S1+24 

1592 FOR X=1 TO 10:FOR 1=15 TO 0 STEP-1:PR 
INT" VERSCHIEBEN “;:FOR Y=1 TO 2:NEXT 

Y 

1593 POKE L,15:POKE A,102:POKE H,1:P0KE FH 
,I*10:POKE FL,1*15:POKE W,33 

1594 NEXT I 

1595 POKE W,0:POKE A,0 

1600 NEXT X:POKE W,0:POKE A,0 
1610 QY=0:OZ=0 

1620 GOSUB 20010 

1621 PRINT”{CLR,5RIGHT,BLUE>FELDHERR ::PR 


< 222 > 
< 176> 
<004> 

<232> 

<247> 

< 012 > 

<233> 

<040> 

<177> 

< 010 > 

< 101 > 

<017> 

<067> 

<044> 

<013> 

<031 > 


< 222 > 

< 157> 

< 154> 
<217> 
<108> 
<075> 

< 148> 


INT W*(C>;:PRINT 
1630 Y=0 
1640 FOR 1=1 TO 45 

1650 IF N*(I)=S*(C)THEN PRINT TAB(Y>"{YELL 
0W>" ; I ; ; TAB (5+Y) " {GREEN>" ;L*(I>::G 

OTO 1655 

1654 GOTO 1660 

1655 PRINT TAB(15+Y)"{RED>";Q(I);:Y=Y+20:I 
F Y=40 THEN Y=0:PRINT 

1660 NEXT I 

1670 PRINT:PRINT"{DOWN,YELLOW,SRIGHT>VON N 
UMMER: ";:INPUT TS* 

1675 IF TS*="X"THEN GOTO 1810 

1676 IF TS*="@"THEN GOSUB 53000:GOTO 1620 
1690 OY=VAL(TS*) 

1700 IF N*(QY)< >S*(C> THEN 1620 

1720 PRINT"{CLR>":GOSUB 20020 

1721 PRINT"{HOME,3D0WN,2RIGHT,RED}VERSCHIE 
BEN VON{SPACE,RVSON >";L*(QY >;"{RVOFF, 
2SPACE,PURPLE > ";Q(OY) 

1722 LE=QY:GOSUB 30120:PRINT:GOSUB 20020 

1725 PRINT"{DOWN,3RIGHT,LIG.GREENJNACH LAN 
D NR";:INPUT Y* 

1726 IF Y*="X"THEN 1810 

1727 IF Y*="@"THEN GOSUB 53000:GOTO 1720 

1728 Y=VAL(Y*):QZ=0 

1729 FOR 1=1 TO 6:IF Y=LA(QY,I)THEN QZ=Y 

1730 NEXT I 

1732 IF QZ=0 THEN 1720 
1735 IF N*(QZ)< >S*(C)THEN 1720 
1760 PRINT"{DOWN,2RIGHT.LIG.REDJWIEVIELE A 
RMEEN";:INPUT ER 
1770 IF ER>Q(QY)—1 THEN 1760 
1780 Q(QZ)=Q(QZ)+ER 
1790 Q(QY)=Q(QY)—ER 
1800 GOTO 1620 

1810 GOSUB 13000 

1811 C=C+1:IF C>S THEN C=1 

1815 FOR X=1 TO GF:IF DD(X)=C THEN C=C+1 

1816 NEXT X 

1817 IF C>S THEN C=1:G0T0 1815 
1820 IF XS(C)<5 THEN 1840 

■0 X=XS(C)/5:X=INT(X):XS(C)=XS(C)-5*X-.WT 
=WT+1:AR=X*WT 
1840 AR=AR+4 

1850 FOR Y=1 TO 7:FOR X=1 TO A(Y) 

1860 IF N*(B(Y)+X)=S*(C)THEN C(Y)=C(Y)+1 
1870 NEXT X 

1880 IF C(Y> =A(Y)THEN AR=AR+C(Y) 

1885 C(Y)=0 
1890 NEXT Y 
1900 GOTO 1500 

13000 FOR X=1 TO S:KL(X)=0:KO(X)=0:NEXT X 

13010 FOR Y=1 TO S 

13020 FOR X=1 TO 45 

13030 IF N*(X)=S*(Y)THEN KL(Y)=1 

13040 NEXT X 

13050 IF KL(Y><>1 THEN K0(1)=Y 
13060 NEXT Y 

13070 IF KD(1)=0 THEN RETURN 
13080 GOSUB 20000:PRINT"{CLR>":GOSUB 20020 
13090 PRINT"{DOWN,RED,6RIGHT>EINE TRAURIGE 
NACHRICHT !!!" 

13100 PRINT"{DOWN,BLUE,2RIGHT JFELDHERR{SPA 
CE,CYAN}“;W*(KO(1> >;"{SPACE,BLUE)MIT 
SEINER " 

13110 PRINT"{DOWN,2RIGHT>LETZEN ARMEE IN D 
EN KAMPF GEZOGEN," 

13120 PRINT"{DOWN,2RIGHT>UND WURDE TOEDLIC 
H GETOFFEN" 

13130 FOR X=1 TO 5000:NEXT X 
13140 GF=GF+1:DD(GF)=K0(1> 

13150 GOTO 13000 
15000 GOSUB 20000:Z=0 

15002 GOSUB 40000 

15003 PRINT“{2D0WN,2RIGHT,WHITE>ANGRIFF VO 
N WELCHEM KONTINENT AUS ?" 

15010 PRINT"{CYAN,2D0WN,7RIGHTJ1.{GREEN,SP 
ACEJMINILAND" 

15020 PRINT"{DOWN,7RIGHT,CYAN>2.{GREEN,SPA 
CE>JUMBOLAND" 

15030 PRINT"{DOWN,7RIGHT,CYANJ3.{GREEN,SPA 
CE}BONGOLAND" 

15040 PRINT"{DOWN,7RIGHT,CYAN}4.{GREEN,SPA 
CE JWANGOLAND" 

15050 PRINT”{DOWN,7RIGHT,CYAN>5.{GREEN,SPA 
CE>ZULULAND" 


< 154> 
<103> 

< 141 > 


<030> 
< 102 > 

< 012 > 

< 220 > 

<117) 
<225> 
<081 > 
< 011 ) 
<167> 
<242> 


< 217 > 

< 155> 

<006> 

<029> 

< 163> 

< 116 > 
< 166> 
<034 > 
<074> 
<079> 

<188> 

< 153> 

< 162> 

< 164> 

< 122 > 
<060> 
<076> 
<204> 
<242> 

< 198> 
<017> 

< 132> 
<069> 
< 022 > 
<073> 
<040> 
<108> 
<055> 
<06B> 

< 142> 
<035> 
<041 > 
<209> 
<231 > 
<032> 
<226> 
<062> 
<249> 
<193> 

<219> 


< 099> 
<184> 

<20B> 
<224 > 

< 103> 
<20B> 
<057> 
<018> 


< 13B> 
< 111 > 
<099> 

< 165> 
< 200 > 
<204> 




110 
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Taktikspiele 


15060 

15070 

15080 

15090 

15100 

15110 

15120 

15130 

15140 

15150 

15160 

15165 

15167 

15180 

15200 

15210 

15220 

15230 

15240 

15250 

15260 

15270 

15280 

15290 

15300 

15310 

15320 

15330 

16000 

16002 

16003 

16010 

16020 

16030 

16040 

16050 

16060 

16070 

16080 

16090 

16100 

16110 

16120 

16130 

16140 

16150 

16160 

16165 

16167 

16180 

16190 

16200 

16210 

16230 


16240 

16250 

16260 

16270 

16280 

16300 

20000 

20010 

20020 

20030 


PRINT"{DOWN,7RIBHT,CYAN >6.{GREEN,SPA 
CE >YUNGOLAND" 

PRINT"{DOWN,7RIGHT,CYAN >7.{GREEN,SPA 
CEJXYLOLAND" 

PRINT"{2D0WN,17RIGHT,YELLOW,RVSON >NU 
MMER ?{RVOFFJ" 

GET A*:IF A*=""THEN 15090 
IF A*="1"THEN Z=1 
IF A*="2"THEN Z=2 
IF A*="3"THEN Z=3 
IF A*="4"THEN Z=4 
IF A*="5"THEN Z=5 
IF A*="6"THEN Z=6 
IF A*="7"THEN Z=7 
IF A*=“X"THEN:A*="N":RETURN 
IF A*="@"THEN GOSUB 53000 
IF Z=0 THEN 15000 
GOSUB 20010:PRINT"{CLR>" 

PRINT"{CLR,DOWN,9RIGHT,PURPLE JANGRIF 
F VON LAND NR: " 

FOR 1=1 TO A(Z) 

PRINT"{DOWN,4RIGHT,LIG.BLUEJ"; B(Z)+1 
;".{SPACE,YELLOWJ";L*(B(Z)+I); 

PRINT TAB(27)"{GREENJ";N*(B(Z)+I); 
PRINT TAB(35)"{REDJ";Q<B<Z)+1> 

NEXT 

PRINT"{LIG.BLUE,DOWN,11RIGHT JNUMMER 
:" 5 sINPUT LE* 

IF LE*="@"THEN GOSUB 53000:GOTO 1520 
0 

IF LE*="X“THEN A*="J":RETURN 
LE=VAL(LE*) 

IF LE<1 OR LE>45 THEN 15200 
IF N*(LE)< >S*(C)THEN 15200 
GOSUB 30000:RETURN 
POKE 53281,2:POKE 53280,8:X=0 
GOSUB 41000 

PRINT“{2DOWN,4RIGHT,WHITE >INFORMAT10 
NEN UEBER KONTINENT ?" 

PRINT“{CYAN,2D0WN,7RIGHT J1.{YELLOW,S 
PACEJMINILAND" 

PRINT"{DOWN,7RIGHT,CYAN>2.{YELLOW,SP 
ACEJJUMBOLAND" 

PRINT"{DOWN,7RIGHT,CYAN >3.{YELLOW,SP 
ACEJBDNGOLAND" 

PRINT"{DOWN,7RIGHT,CYAN >4.{YELLOW,SP 
ACEJWANGDLAND" 

PRINT"{DOWN,7RIGHT,CYAN >5.{YELLOW,SP 
ACEJZULULAND" 

PRINT"{DOWN,7RIGHT,CYANJ6.{YELLOW,SP 
ACE >YUNGALAND" 

PRINT"{DOWN,7RIGHT,CYAN >7.{YELLOW,SP 
ACE > XYLOLAND“ 

PRINT"{2D0WN,17RIGHT,BLACK,RVSONJNUM 
MER ?{RVOFFJ" 

GET A*:IF A*=""THEN 16090 
X=1 
X=2 
X=3 
X=4 
X=5 


IF A*="1"THEN 
IF A*="2"THEN 
IF A*="3”THEN 
IF A*="4"THEN 
IF A*="5"THEN 
IF A*="6"THEN X=6 
IF A*="7"THEN X=7 
IF A*="X"THEN:A*="":RETURN 
IF A*="@"THEN GOSUB 53000 
IF X=0 THEN 16000 
POKE 53281,8:POKE 53280,9 
PRINT"{CLRJ";:GOSUB 20020:PRINT"{HOM 
E>" 

FOR 1=1 TO A(X> 

PRINT"{DOWN,3RIGHT,RED J"j B(X > +1;"{2R 
IGHT,BLACK J";L*(B(X)+I>;TAB(29)"{BRO 
WNJ";N*(B(X)+1>;"{5RIGHT,GREY 1J"J : 
PRINT Q(B(X)+I) 

NEXT I 

PRINT:GOSUB 20020 

PRINT"{DOWN,9RIGHT,RVSON,SPACE >TASTE 
{SPACE,RVOFF >" 

GET A*:IF A*=""THEN 16280 
RETURN 

POKE 53281,0:POKE 53280,0:RETURN 
POKE 53281,0:POKE 53280,11:RETURN 
PRINT" {RIGHT,WHITE J WV+V+V+V++++++++ 

PR I NT " {RI GHT, BLUE J V++V+V+++++++V+'+'++ 


<070> 

<246> 

< 134> 

< 193> 
<226> 
<127> 
<025> 
<180> 
<078> 
<233> 
<131> 
<177> 
<218> 
<074> 

< 1B9> 

< 179> 
< 212 > 

<070> 
<041 > 
<130> 
<02B> 

<245> 

< 19B> 

< 174> 
<217> 
<254> 
<252> 

< 171 > 
<215> 
<018> 

< 171 > 

<223> 

<147> 

<213> 

<248> 

<252> 

<150> 

<038> 

<111> 
<241 > 
< 202 > 
< 101 > 
<255> 

< 156> 
<054> 
<209> 

< 163> 
<018> 
< 202 > 
<043> 
<239> 

<042> 

< 182> 


< 138> 
< 202 > 
<076> 
<013> 

< 176> 

< 177> 
< 100 > 

< 168> 
< 198> 


■:RETURN 


30000 GOSUB 20010:PRINT"{CLRJ" 


< 114> 

< 191 > 
<001 > 


30100 PRINT"{RED,3RIGHT,RVSON,SPACEJ";:PRI 
NT L*(LE >;:PRINT"{SPACE,RVOFF,3RIGHT 
JARMEEN:";:PRINT Q(LE) 

30105 PRINT:GOSUB 20030:PRINT 
30110 PRINT"{DOWN,CYAN,SRIGHTJANGRIFF AUF 
:":GOSUB 30120:GOTO 30305 
30120 PRINT"{2DQWN,2RIGHT,GREENJ";:PRINT L 
A(LE,1);".{SPACE,LIG.BLUE J"j L*(LA(LE 
,1>)j TAB(23)"{PURPLE J"; 

30130 PRINT N*(LA(LE,1>);“{2RIGHT,LIG.REDJ 
“jQ(LA(LE,1)) 

30140 PRINT"{DOWN,2RIGHT,GREEN J";LA(LE,2); 

".{SPACE,LIG.BLUEJ";L*(LA(LE,2));TAB 
(23)"{PURPLEJ"; 

30150 PRINT N*(LA(LE,2));"{2RIGHT,LIG.REDJ 
";Q(LA(LE,2)> 

30160 IF LA(LE,3)=0 THEN GOTO 30300 
30170 PRINT"{DOWN,2RIGHT,GREENJ";LA(LE,3); 

".{SPACE,LIG.BLUEJ";L*(LA(LE,3));TAB 
(23)"{PURPLEJ "5 

30180 PRINT N*(LA(LE,3));"{2RIGHT,LIG. REDJ 
";Q(LA(LE,3)) 

30190 IF LA(LE,4)=0 THEN GOTO 30300 
30200 PRINT"{DOWN,2RIGHT,GREEN J":LA(LE,4); 

".{SPACE,LIG.BLUEJ";L*(LA(LE,4)) ; TAB 
(23)"{PURPLEJ"; 

30210 PRINT N* (LA (LE,4) ); " {2RIGHT,HG. RED J 
";Q(LA(LE,4)) 

30220 IF LA(LE,5)=0 THEN GOTO 30300 
30230 PRINT"{DOWN,2RIGHT,GREENJ";LA(LE,5); 

".{SPACE,LIG.BLUEJ";L*(LA(LE,5));TAB 
(23)"{PURPLEJ"; 

30240 PRINT N*(LA(LE,5)>;"{2RIGHT,LIG.REDJ 
";Q(LA(LE,5)) 

30250 IF LA<LE, 6 )=0 THEN GOTO 30300 
30260 PRINT"{DOWN,2RIGHT,GREENJ";LA(LE, 6 ); 

".{SPACE,LIG.BLUEJ";L*(LA(LE, 6 ));TAB 
(23)“{PURPLEJ"; 

30270 PRINT N*(LA(LE, 6 ));"{2RIGHT,LIG.REDJ 
”;Q(LA(LE, 6 )) 

30300 RETURN 

30305 PRINT"{2D0WN,LIG.GREEN,7RIGHTJANGRIF 
F AUF NUMMER :";: 

30310 INPUT LS* 

30311 IF LS*="@"THEN GOSUB 53000:GOTO 3000 
0 

30312 IF LS*="X"THEN A*="J":RETURN 

30313 LS=VAL(LS*) 

30315 Y=0:FOR 1=1 TO 6 :IF LA(LE,I)=LS THEN 
Y=1 

30316 NEXT:IF Y<>1 THEN 30000 

30317 IF N*(LS)=S#(C)THEN 30000 
30320 PRINT“{DOWN,7RIGHT,LIG.REDJMIT WIE V 

IELEN ARMEEN INPUT AQ 

30330 IF AO>Q(LE)—1 THEN 30000 
30335 Q(LE)=Q(LE)—AQ 
30400 IF AQ>3 THEN WU=4:G0T0 30410 
30405 WU=AQ 

30410 IF □(LS)>3 THEN WV=4:G0T0 30420 
30415 WV=Q(LS) 

30420 FOR 1=1 TO WU:WU(4+1>=INT( 6 *RND(1>>+ 
1:NEXT 

30430 FOR 1=1 TO WV:WV(4+1>=INT( 6 *RND(1>>+ 
1:NEXT 

30450 IF WU<=3 THEN WU(8>=0 

30460 IF WU<=2 THEN WU(7)=0 

30470 IF WU<=1 THEN WU(6)=0 

30480 IF WV<=3 THEN WV(8)=0 

30490 IF WV<=2 THEN WV(7>=0 

30500 IF WV<=1 THEN WV(6>=0 

30510 WX=0 

30550 IF WU( 8 > >=WU(7)AND WU( 8 )>=WU( 6 )AND W 
U( 8 )>=WU(5)THEN WX=WX+1:WU(WX>=WU( 8 ) 
:WU( 8)=—1 

30560 IF WU(7)>=WU( 8 )AND WU(7)>=WU( 6 )AND W 
U(7)>=WU(5)THEN WX=WX+1:WU(WX)=WU(7) 
:WU(7)=—1 

30570 IF WU( 6 )>=WU( 8 )AND WU( 6 >>=WU(7)AND W 
U( 6 )>=WU(5)THEN WX=WX+1:WU(WX)=WU( 6 ) 
:WU( 6)=—1 

30580 IF WU(5)>=WU( 8 )AND WU(5)>=WU(7)AND W 
U(5)>=WU( 6 )THEN WX=WX+1:WU(WX)=WU(5) 
:WU(5)=-l 

30590 IF WU (9)0—1 THEN 30550 


<235> 

<067> 

< 158> 


<206> 


<234> 


<023> 

<078> 
< 172> 


<056> 

< 188> 
<204> 


<089> 


<045> 

<238> 


< 124> 

<056> 

<014> 


< 157> 

<009> 

< 130> 

<082> 

< 131 > 

<084 > 

< 179> 

< 114> 

<045> 

< 188> 
<214> 

<087> 
<099> 
<251 > 
<072> 
<095> 

< 174> 
<244> 

< 112 > 

< 131 > 
<045> 

< 167> 
<034> 
<097> 
<219> 
<0B4> 

< 108> 


< 116> 


<065> 


<242> 


<032> 

<248> 


Listing 1. »Risiko« (Fortsetzung). Bitte nur mit dem Check¬ 
summer in diesem Heft eingeben. 
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30600 WX=0 

30610 IF WV(8>>=WV(7>AND WV(B)>=WV(6)AND W 
V<8> >=WV(5)THEN WX=WX+1:WV(WX)=WV(8) 
:WV(8)=—1 

30620 IF WV(7)>=WV<8>AND WV(7)>=WV(6)AND W 
V<7> >=WV(5)THEN WX=WX+1:WV(WX>=WV(7) 
:WV(7)=—1 

30630 IF WV(6> >=WV(8)AND WV<6>>=WV(7)AND W 
V<6> >=WV(5)THEN WX=WX+1:WV(WX>=WV(6) 
: WV(6)=—1 

30640 IF WV(5)>=WV(8)AND WV(5)>=WV(7)AND W 
V(5)>=WV(6)THEN WX=WX+1:WV(WX> =WV(5) 
s WV(5)=-l 

30650 IF WV (9)0—1 THEN 30610 
30660 WV(9)=0:WU(9 > =0 

30670 POKE 53280,llsPOKE 53281,15:PRINT"<C 
LR>" 

30680 PRINT"C3RIGHT,RED}ANGREIFER{14RIGHT, 
BLACK >VERTEIDIGER{DOWN >" 

30690 FOR 1=1 TO WUsFOR Y=1 TO 5 
30700 PRINT"{RED,4RIGHT}";WE*(WU(I),Y) 
30710 NEXT YsPRINT;sNEXT I 
30715 PRINT"{HOME,2D0WN}" 

30720 FOR 1=1 TO WVsFOR Y=1 TO 5 

30730 PRINT TAB(32>"{BLACK}";WE*(WV(I>,Y) 

30740 NEXT YsPRINT;sNEXT I 

30745 FOR Y=1 TO 1500sNEXT Y 

30750 Y=0s FOR 1 = 1 TO 4 

30760 IF WU(I)=0 OR WV(I)=0 THEN GOTO 3081 
0 

30770 IF WV(I> >=WU(I)THEN AG=AQ-lsGOTO 308 
10 

30780 Q(LS)=0(LS)—1 
30810 NEXT I 

30820 IF AQO0 AND Q(LS><>0 THEN 30400 
30830 GOSUB 40000 

30840 IF S (LS)=0 THEN PRINT"{6D0WN,2RIGHT, 
GREEN}";W$(C>;" SIE HABEN ";LS(LS>" 
EROBERT"sGOTO 30860 
30850 GOTO 30900 

30860 PRINT"{DOWN,2RIGHTJES SIND NUN{RED>" 
;AQ;"{GREENJARMEEN IN DIESEM LAND" 
30870 PRINT"{3D0WN,2RIGHT,LIG.BLUE}";M*(LS 
>;" SIE HABEN{SPACE,RED>"sLS(LS>;"{L 
IG.BLUE,SPACE >VERLOREN" 

30880 Q(LS>=AQ:N*(LS>=S*(C> sXS(C)=XS(C)+1s 
M$(LS)=M$(LE>:GOTO 31000 
30900 PRINT"{7D0WN,6RIGHT,LIG.BLUE}";M«(LS 
>;" SIE HABEN{SPACE,RED>";L$(LS) 
30910 PRINT"{DOWN,6RIGHT,LIG.BLUEJERFOLGRE 
ICH VERTEIDIGT" 

30920 PRINT"{3D0WN,GREEN,6RIGHT>"; M*(LE);" 
HAT SEINE ANGREIFENDEN" 

PRINT"{D0WN,6RIGHTJTRUPPEN VERLOREN" 
FOR 1=1 TO 5000sNEXT 
PRINT"{CLR}":POKE 53280,0sPOKE 53281 
,0 

PRINT"{12D0WN.3RIGHT.PURPLEJNOCH EIN 
ANGRIFF ";W*(C>;" ?" 

BET A*sIF A*=""THEN 31030 
RETURN 

POKE 53280,llsPOKE 53281,0sPRINT"{CL 
R>" 

FOR WJ=1024 TO 1063sPOKE WJ,102:NEXT 
FOR WJ=1984 TO 2023sPOKE WJ,102sNEXT 
FOR WJ=1064 TO 1944 STEP 40sPOKE WJ, 
102sNEXT 

FOR WJ=1103 TO 1983 STEP 40sPOKE WJ, 
102sNEXT 

FOR WJ=55296 TO 55335sPOKE WJ,6sNEXT 
FOR WJ=56256 TO 56295sPOKE WJ,6sNEXT 
FOR WJ=55336 TO 56216 STEP 40:POKE W 
J,6:NEXT 

FOR WJ=55375 TO 56255 STEP 40:POKE W 
J,6s NEXT 

PRINT"{HOME >";:RETURN 
PRINT"{CLR>" 

FOR WJ=1024 TO 1063:POKE WJ,42sNEXT 
FOR WJ=1984 TO 2023sPOKE WJ,42:NEXT 
1944 STEP 40sPOKE WJ, 


30930 

31000 

31010 

31020 

31030 

31050 

40000 

40010 

40020 

40030 

40040 

40050 

40060 

40070 

40080 

40090 

41000 

41010 

41020 

41030 


< 19B> 

<056> 

<005> 

<182> 


<228> 

<193> 

<052> 

<068> 

<234 > 
<242> 

< 104> 

< 141 > 
<008> 
<019> 

< 163> 
<173> 
< 100 > 

< 157> 

<041 > 

< 114> 
<066> 

< 158> 
<045> 
<09B> 


<064> 

< 127> 

< 127> 

G46R I 

< 103> 

< 189> 

< 136> 

< 182> 

<018> 

< 177> 

< 183> 

<096> 

<057> 

< 188> 

< 118> 

<090> 

<027> 

<055> 

< 145> 


TO 


1983 STEP 40:POKE WJ, 


FOR WJ=1064 
42:NEXT 

41040 FOR WJ=1103 TO 
42:NEXT 

41050 FOR WJ=55296 TO 55335:P0KE WJ,1sNEXT 
41060 FOR WJ=56256 TO 56295:POKE WJ,1:NEXT 
41070 FOR WJ=55336 TO 56216 STEP 40:POKE W 
J,1sNEXT 


<083> 

<097> 

< 199> 

<04B> 

<063> 
<056> 
<093> 
<031 > 
<059> 

<035> 

<229> 

<016> 

< 118> 

< 022 > 


41080 

41090 

43996 

45000 

45010 

45020 


FOR WJ=55375 TO 56255 STEP 40:POKE W 
J,1:NEXT 

PRINT"{HOME>";:RETURN 
IF A*="£"THEN END 
POKE 53280,0sPOKE 53281,6 
PRINT"{CLR,WHITE,10RIGHT,RVSON,SPACE 
}PLANET GURUNGO{SPACE,RVOFF,DOWN >" 

PRINT"{BLACK,RVSON,5RIGHT,2SPACE,RIG 
p j 3SPACE »1 ^RI GHT, 5SPACE, 6RI GHT, R VOF 

45030 PRINT"{RVS0N,5RIBHT,7SPACE,15RIGHT,8 
SPACE,4RIGHT,RVOFF >" 

45040 PRINT"{RVSON,4RIGHT,2SPACE >JUMBO{2SP 
ACE,4RIGHT,4SPACE,5RIGHT,10SPACE,3RI 
GHT,RVOFF}" 

45050 PRINT"{RVSON,4RIGHT,10SPACE,2RIGHT,6 
SPACE, 4RI GHT, 2SPACE 5-WANGO {3SPACE, 3RI 
GHT,RVOFF>" 

45060 PRINT"{RVSON,4RIGHT,2SPACE,RIGHT,7SP 
ACE,RVOFF >£ {RVSON,2SPACE >MINI{2SPACE 
,4RIGHT,RVOFF >H{RVSON,7SPACE,4RIGHT, 
RVOFF}" 

45070 PRINT"{RVSON,4RIGHT,2SPACE.2RIGHT,5S 
PACE , 2RI GHT , 8SPACE, 3RI GHT , SPACE, RI GH 
T,6SPACE,5RIGHT,RVOFF >" 

45080 PRINT"{RVSON,7RIGHT,5SPACE,4RIGHT,8S 
PACE,RIGHT,RVOFF}?{RVSON,SPACE,RVOFF 
>*{RVSON,6SPACE,5RIGHT,RVOFF}" 

45090 PRINT"{RVSON,6RIGHT,5SPACE,RIGHT,RVO 
FF >fl{RVSON,7RIGHT,5SPACE,4RIGHT,4SPA 
CE, 6RI GHT, RVOFF >" 

45100 PRINT"{RVSON,6RIGHT,RVOFF >MTRVSON,6R 
IGHT,RVOFF }fl{RVSON,RIGHT,4SPACE,11RI 
GHT,RVOFF}?I{RVSON,7RIGHT,RVOFF >" 

45110 PRINT"{RVSON,3RIGHT,4SPACE,7RIGHT,6S 

PACE,7RIGHT,2SPACE,RIGHT,2SPACE,6RIG 
HT,RVOFF}" 

45120 PRINT"{RVSON,2RIGHT,6SPACE,4RIGHT,9S 
PACE,5RIGHT,6SPACE,5RIGHT,RVOFF}" 

45130 PRINT"{RVSON,RIGHT,7SPACE,RVOFF} *** { 

RVSON,3SPACE}ZULU{4SPACE,3RIGHT,7SPA 
CE,5RIGHT,RVOFF}" 

“-. 40 PRINT"{RVSON.RIGHT,SPACE}XYLO{SPACE, 

4RIGHT,9SPACE,RIGHT,SPACE,3RIGHT,SPA 
CE}BONBA{SPACE,RVOFF}ß{RVSON,SPACE,3 
RIGHT,RVOFF}" 

45150 PRINT"£{RVSON,7SPACE,5RIGHT,7SPACE,R 
IGHT,SPACE,4RIGHT,5SPACE,2RIGHT,SPAC 
E, RVOFF }££££££." 

45160 PRINT"{UP,RVSON,2RIGHT,5SPACE,8RIGHT 
,4SPACE,3RIGHT,RVOFF}ß{RVSON,4RIGHT, 

3SPACE,RIGHT,RVOFF }YY{RVSON,4RIGHT,R 
VOFF}" 

45170 PRINT"{RVSON,3RIGHT,4SPACE,7RIGHT,4S 
PACE , 3RI GHT , 4SPACE , RI GHT , RVOFF }"pf{RV 
SON,SPACE,7RIGHT,RVOFF}“ 

45180 PRINT"{RVSON,20RIGHT,6SPACE,7RIGHT,R 
VOFF}" 

45190 PRINT"{RVSON,19RIGHT,2SPACE}YUNGA{SP 
ACE,7RIGHT,RVOFF}" 

45200 PRINT"{RVSON,19RIGHT,8SPACE,10RIGHT, 
RVOFF}" 

45210 PRINT"{RVSON,20RIGHT,RVOFF }ü.{RVSON,5 
SPACE,10RIGHT,RVOFF}" 

45215 PRINT"{RVSON,19RIGHT,SPACE,2RIGHT,4S 
PACE,12RIGHT,RVOFF}" 

45216 PRINT"{RVSON,19RIGHT,SPACE,RVOFF> »*» 

{RVSON,2SPACE,4RIGHT,YELLOW}TASTE{2R 
IGHT,RVOFF}" <219> 

45230 GET M :IF A$=""THEN 45230 <197> 

45250 A$="":RETURN <235> 

46000 POKE 53280,0:POKE 53281,6 <175> 

46010 PRINT"{CLR,DOWN,WHITE,14RIGHT,RVSON, 

SPACE}MINILAND{SPACE,RVOFF,DOWN}" < 080 > 

46020 PRINT"{BLACK,2D0WN}" <034> 

46030 PRINT"{10RIGHT,RVSON,7SPACE,RVOFF}" <011> 

46040 PRINT"{9RIGHT,RVSON,12SPACE,RVOFF}" <122> 

46050 PRINT"{8RIGHT,RVS0N}-pT{2SPACE}M0IRA{ 

3SPACE}fl{2SPACE,RVOFF}" <109> 

46060 PRINT"{7RIGHT,RVSON,3SPACE}fl{BSPACE} 

MT5SPACE,RVOFF}" <216> 

46070 PRINT"{7RIGHT,RVSON,SPACE}":N*(2);" 

fl{2SPACE}";N*(1); " {2SPACE})4{7SPACE,R 
VOFF}" <044> 

46080 PRINT"{RIGHT,PURPLE}JäütSiTBLACK,RVSO 
N,6SPACE}fiTpT?ß{2SPACE} ,, :NS(3) ; " {4SP 
ACE,RVOFF}" <i24> 


<037> 

<040 > 
<044> 
< 191 > 

<238> 


<071 > 

< 171 > 

<095> 

<028> 

<061 > 

<087> 

< 136> 

<008> 

<032> 

<253> 

< 011 > 

<223> 

< 120 > 

<20B> 

<033> 

<027> 

<183> 

<017> 

< 167> 
<053> 
<224> 
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Taktikspiele 


46090 PRINT" C7RIGHT, RVSON, 2SPACE1MUR fi<12S 

PACE,SHIFT—SPACE,RVDFF >" <211> 

46100 PRINT"CBRIGHT,RVSON,6SPACE}fl£2SPACE> 

MARISUAN ’p'pCRVOFF}" <013> 

46110 PRINT"<9RIBHT,RVSQN,5SPACE}ß<5SPACE> 

•pTpT?M<2SPACE,RV0FF>" <161> 

46120 PRINT"C7RIBHT,RVSON,5SPACE,RVOFF,2SP 

ACE,RVSON,5SPACE}ß<7SPACE,RVOFF >“ < 053 > 

46130 PRINT"C8RIGHT,RVSON,3SPACE,RVOFF,3SP 

ACE,RVSON,4SPACE}ß<8SPACE,RVOFF >" < 066 > 

46140 PRINT"C15RIGHT,RVSON,2SPACETM MESIGO 

CSPACE,RVOFF}" <021> 

46150 PRINT"C17RIBHT,RVSON,9SPACE,RVOFF>" <230> 

46160 PRINT"<21RIBHT,RVSON,3SPACE>";NS(4); 

"<SPACE,RVOFF>" <124> 

46170 PRINT"€24RIBHT,RVSON,4SPACE,RVOFF,PU 

RPLE JäJUUUtüW <BLACK > " <157> 

46220 PRINT"<DOWN,25RIBHT,YELLOW,6RIBHT,RV 

SON > TASTE <RVOFF>" <138 > 

46230 BET Ai: IF A*=""THEN 46230 <245> 

46250 A#=""s RETURN < 219 > 

47000 POKE 53280,0SPOKE 53281,6 <159> 

47010 PRINT"<CLR,DOWN,WHITE,13RIBHT,RVSON, 

SPACE > J UMBOLAND <SPACE,RVOFF,DOWN >" <155> 

47020 PRINT"<BLACK,8RIBHT,RVSON,5SPACE,RVO 

FF>" <142> 

47030 PRINT"<7RIBHT,RVSON,7SPACE,RVOFF,14S 

PACE,RVSON,3SPACE,RVOFF >" <096> 

47040 PRINT"<7RIBHT,RVSON,SPACE>JUISU <3SPA 
CE , RVOFF, 11 SPACE, RVSON, 6SPACE , RVOFF > 

" <011> 


47050 PRINT"<6RIBHT,RVSON,11SPACE,RVOFF,9S 
PACE,RVSON,SPACE } JOSUAH C2SPACE,RVOFF 
>•• <192> 

47060 PRINT"C5RIGHT,RVSON,SPACE}YßC7SPACE} 
HYC3SPACE,RVOFF,4SPACE,RVSON,12SPACE 
,RVOFF} <177> 

47070 PRINT"<3RIGHT,RVSON,5SPACE >Ü<2SPACE} 

";Ni(5):" UI3SPACE}";Ni(7); "<3SPACE> 
fl< 13SPACE, RVOFF > " <252> 

47080 PRINT"<2RISHT,RVSON,3SPACE}";Ni<6>;" 

<2SPACE}ßC4SPACE} WC8 SPACE }'n'p'p'p'p'< 5SPA 
CE}";Ni<8>;”C2SPACE,RVOFF}" <031 > 

47090 PRINT"C2RIGHT,RVSON,8SPACE}fl<3SPACE, 

RVOFF,2SPACE,RVSON,SPACE}J EDIP N MSP 

ACE }J1<7SP ACE, RVOFF} <135> 


47100 PRINT" <3RIBHT,RVSON, 8 SPACETYYCRVOFF, 

3SPACE,RVSON}'ppVpVpyü ";Ni(9);"<2SPA 
CE} üppppTCRVOFF}" <253> 

47110 PRINT"<4RIGHT,RVSON,2SPACE}JUKLIA<SP 
ACE,RVOFF,4SPACE,RVSON, 6 SPACE}fl<lISP 
ACE,RVOFF}" <026> 

47120 PRINT"<5RIGHT,RVSON,9SPACE,RVOFF,4SP 
ACE, RVSON, 6 SPACE }£fpT<2SPACE } JI DU <SPA 
CE, RVOFF, PURPLE } *-*-*-*M <BLACK } " <021 > 

47130 PRINT"< 8 RIGHT,RVSON, 6 SPACE,RVOFF,4SP 

ACE,RVSON,9SPACE}fl <5SPACE,RVOFF}" <177 > 

47140 PRINT"<11RIGHT,RVSON,2SPACE,RVOFF,4S 
PACE,RVSON,2SPACE}JUXARI0 flYYYYYCRVO 
FF}" <138> 

47150 PRINT"<12RIGHT}fl<5RIGHT,RVSON, 8 SPACE 

}fljANIANCSPACE,RVOFF}" <254> 

47160 PRINT"<13RIGHT}fl<3RIGHT,RVSON,SPACE} 
AC2BPACE}":NiU 0 >;"C2SPACE}ß< 8 SPACE, 
RVOFF}" <210> 

47170 PRINT"C14RIGHT,RVSON,5SPACE}flC4SPACE 

1MC3SPACE }"5 Ni<11);"<3SPACE,RVOFF}" < 078 > 

47180 PRINT"<11RIBHT,RVSON,4SPACE}";Ni<12) 

!"C3SPACE}fl<2SPACE}RCBSPACE,RVOFF,PU 
RPLE}fl<BLACK}" <082> 

47190 PRINT"<10RIGHT,RVSON,11SPACE}YYYAC3S 

PACE,RVOFF,5SPACE,PURPLE}fl<BLACK}" <181> 

47200 PRINT"<10RIGHT,RVSON,2SPACE}JODELIA < 

5SPACE,RVOFF,10RIGHT,PURPLE}Z<BLACK} 

" <254> 


47205 PRINT"<10RIGHT,PURPLE}ß<BLACK,RVSON, 

9SPACE,RVOFF}" <090> 

47210 PRINT"<8RIGHT,PURPLE TXflCBLACK,3RIBHT 
,RVSON,5SPACE,14RIGHT,YELLOW}TASTE<R 
VOFF}" <059> 

47230 GET Ai:IF Ai=""THEN 47230 <037> 

47250 ..RETURN <203> 

48000 POKE 53280,0:POKE 53281,6 <143> 

48010 PRINT”<CLR,DOWN,WHITE,13RIGHT.RVSON, 

SPACE}BONGALAND CSPACE,RVOFF,DOWN}" <114> 
48020 PRINT"CBLACK,25RIGHT,PURPLE}ßWCBLACK 

}" <170> 


48030 PRINT"C9RIBHT,RVSON,2SPACE,RVOFF,14S 

PACE,PURPLE}ß<BLACK}" <248> 

48040 PRINT"C8RIGHT,RVSON,4SPACE,RVOFF,12S 

PACE,RVSON,2SPACE,RVOFF}" <244> 

48050 PRINT"C7RIGHT,RVSON,6SPACE}flC3SPACE, 

RVOFF,5SPACE,RVSON,5SPACE,RVOFF}" <097 > 

48060 PRINT"C6RIGHT,RVSON,BSPACEIKC5SPACE, 

RVOFF,SPACE,RVSON,7SPACE,RVOFF}“ < 087 > 

48070 PRINT"C5RIGHT,RVSON,2SPACEIB0UYAC2SP 

ACE}H<13SPACE,RVOFF}" <193> 

48080 PRINT"C4RIGHT,RVSON,10SPACEIHBUNGAC2 

SPACE} P'P'P'PP'P CRVOFF}" <069> 

48090 PRINT"C4RIGHT,RVSON,3SPACE}";Ni(13); 

“C4SPACE}fl C7SPACE}fl C5SPACE,RVOFF}" <084> 

48100 PRINT"C4RIGHT,RVSON,8SPACE}flfl<3SPACE 

}"5 Ni(14);" fl C6SPACE,RVOFF}" <113> 

48110 PR I NT " C5RI GHT, RVSON } •p-pVp»'HC2SPACE } Y 
YÜTP'14C2SPACE} "; Nt < 16); " C2SPACE, RVOFF 
,2RIGHT}H<RVSON,3SPACE,RVOFF}" <124 > 

48120 PRINT"C6RIGHT,RVSON,10SPACE}WC9SPACE 
,RVOFF,RIGHT}fl<RIGHT,RVSON,5SPACE,RV 
OFF}" <239> 

48130 PRINT"C7RIGHT,RVSON,3SPACE}BIFIANff B 
ALINGO CSPACE,RVOFF}fl<3R IGHT,RVSON,5S 
PACE,RVOFF}" <006> 

48140 PRINT"C9RIGHT,RVSON,7SPACE}WC9SPACE, 

RVOFF,4RIGHT,RVSON,2SPACE}":Ni(18);" 

CSPACE,RVOFF}" <240> 

48150- PRINT"CI1RIGHT,RVSON,2SPACE}"; Ni(15) 

; " C2SPACE }ßp-p C5SPACE, RVOFF, 6RI GHT, RV 
SON,5SPACE,RVOFF}" <067> 

48160 PRINT"C12RIGHT,RVSON,5SPACETWC2SPACE 
}fl<4SPACE,RVOFF,6RIGHT,RVSON,6SPACE, 
RVOFF}" <123> 

48170 PRINT" <13RIGHT,RVSON}’p-pTn7J4 ";Ni(17>; 

"JTp"PCRVOFF, 6RIGHT, RVSON, 2SPACE}BEYU C 
SPACE,RVOFF}" <172> 

48180 PRINT"C15RIGHT.RVSON,9SPACE,RVOFF}±£ 

iLSflCRVSON,7SPACE,RVOFF}" <212> 

48190 PRINT"C16RIGHT,RVSON,2SPACE}BOANCSPA 
CE,RVOFF,6RIGHT.RVSON,6SPACE,RVOFF,P 
URPLE}.C_C.X {BLACK}" <093> 

482'»' PRINT" C6RIGHT, PURPLE}Y ********** {:BLA 
CK,RVSON,6SPACE,RVOFF,7RIGHT,RVSON,4 
SPACE,RVOFF}" <147> 

48210 PRINT"C19RIGHT,RVSON,2SPACE,RVOFF,9R 

IGHT,RVSON,2SPACE,RVOFF}" <196> 

48220 PRINT"C23RIGHT,YELLOW,RVSON}TASTE CRV 

OFF}" <041> 

48230 GET Ai:IF Ai=“"THEN 48230 <086> 

48250 Ai="":RETURN <187> 

49000 POKE 53280,0:POKE 53281,6 <127> 

49010 PRINT"CCLR,DOWN,WHITE,14RIGHT,RVSON, 

SPACE}WANGOLANDCSPACE,RVOFF,2D0WN}" < 054 > 

49020 PRINT"CBLACK,14RIGHT,RVSON,2SPACE}flC 

7SPACE}ß C2SPACE,RVOFF}" <148> 

49030 PRINT"C12RIGHT,RVSON,5SPACE}fl<7SPACE 

}fl<4SPACE,RVOFF}" <091> 

49040 PRINT"C10RIGHT,RVSON,3SPACE}“;Nt < 20) 

; "C2SPACE}R WIUMBOWC5SPACE,RVOFF}" <237> 

49050 PRINT"C9RIGHT,RVSON,BSPACE}RC7SPACE} 

flWOKIOCSPACE,RVOFF}" <234> 

49060 PRINT"C8RIGHT,RVSON,2SPACE}WAGURIUWC 
2SPACE } "; Ni (19) ; " C2SPACE }fl<5SPACE }flY 
CSPACE,RVOFF}" <192> 

49070 PRINT" C8RIGHT,RVSON,9SPACE>WiWF>'pHC2 

SPACE}":Ni(22);" flMSPACE,RVOFF>" <250> 

49080 PRINT"C9RIGHT,RVSON,8SPACE}fl<5SPACE} 
flMSPACE}AC2SPACE}";Ni(23);"CSPACE,R 
VOFF}" <015> 

49090 PRINT"<11RIGHT,RVSON,5SPACE}fl C7BPACE 

}ß'pTHC6SPACE, RVOFF } " <226.» 

49100 PRINT"C4RIGHT,RVSON,3SPACE,RVOFF,3RI 
GHT}fl C2RIGHT,RVSON,2SPACE}fl<2SPACE}W 
EFIA HCBSPACE,RVOFF}" <091> 

49110 PRINT"C3RIGHT,RVSON,2SPACE}";Ni(26); 

"C2SPACE,RVOFF}ß C7RIGHT,RVSON,7SPACE 
}R WIGUACSPACE,RVOFF}" <009> 

49120 PRINT"C3RIGHT,RVSON,7SPACE,9RIGHT,2S 

PACE}"; Ni (21 >; " JülTp 1 C3SPACE, RVOFF}" <132> 

49130 PRINT"C2RIGHT,RVSON,2SPACE}WANZANff<9 

RIGHTI^WH ";Ni(24) ; " ß-pTCRVOFF}" <067> 


Listing 1. Listing zum Programm »Risiko« (Fortsetzung). 
Bitte nur mit dem Checksummer in diesem Heft 
eingeben. 
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49140 PRINT"C3RIGHT,RVSON,6SPACE JAC3SPACE, 
7RIGHT,3SPACE JQC7SPACE,RVOFF >" 

49150 PRINT"C4RIGHT,RVSON,4SPACE JflCSSPACE, 
&RIGHT,4SPACE JflWUGAC5PACE,RVOFF >" 

49160 PRINT"C5RIGHT,RVSON,2SPACE >N. WEGOS CS 
PACE,6RIGHT,SPACEJ";N*<25> ; " fl p-p- pp 'CR 
VOFF>" 

49170 PRINT"C7RIGHT,RVSON,9SPACE,RVOFFJ »»« 
JUtCRVSON, 8SPACE, RVOFFJ" 

49175 PRINT"C3RIGHT,PURPLEJ K*_*_««« CBLACK,RV 
SON,SPACE >";N*(27);"C3SPACE,7RIGHT,S 
PACE JWASPOCSPACE,RVOFFJ" 

491B0 PRINT"C10RIGHT,RVSON,4SPACE,8RIGHT,6 
SPACE,RVOFFJ" 

49190 PRINT"C23RIGHT,RVSON,4SPACE,RVOFF J" 
49220 PRINT"C25RIGHT,PURPLE J2B C4R1GHT,YELL 
OW,RVSON > TASTE CRVOFF >" 

49230 GET Ms IF A$=""THEN 49230 
49250 M=" ": RETURN 
50000 POKE 53280,0:POKE 53281,6 
50005 PRINT"CCLR,DOWN,15RIGHT,WHITE,RVSON, 
SPACE > ZULULAND CSPACE,RVOFF,DOWN J" 
50007 PRINT"C8RIGHT,PURPLE>J CBLACK}" 

50010 PRINT"CBLACK,9RIGHT,PURPLEJflCBLACK,2 
RIGHT,RVSON,8SPACE JAC8SPACE,RVOFF >" 
50020 PRINT"C10RIGHT,PURPLEJflCBLACK,RVSON, 
2SPACE> ZUGA C3SPACE >H ZILUBOC3SPACE,R 
VOFF >" 

50030 PRINT"C10RIGHT,RVSON,9SPACE>MGC11SPA 
CE,RVOFFJ" 

50040 PRINT"C9RIGHT,RVSON JWC3SPACE>";N* < 28 
>;"C3SPACEJAC2SPACEJÜC4SPACEJ";N*(29 
);"C5SPACE,RVOFFJ" 

50050 PRINT"C8 RIGHT,RVS ON, 

50060 PRINT"C6RIGHT,RVSON,3SPACE J":N$(30); 

"C5SPACE>RC1ISPACEJAC6SPACE,RVOFF >" 
50070 PRINT"C4RIGHT,RVSON,13SPACEJfl ZANGUA 
N 14 C7SPACE, RVOFF >" 

50080 PRINT"CPURPLE J XiäiCBLACK,RVSON,2SPAC 
EJZULAMBDGAC3SPACEJflCBSPACEJW ZAGICS 
PACE,RVOFFJ" 

50090 FRINT"C5RIGHT,RVSON,13SPACE}NC8SPACE 
JHC6SPACE,RVOFF>" 

50100 PRINT"C10RIGHT,RVSON,5SFACEJTPT14C2SP 
ACE J";NS(31>;"C3SPACE!NC6SPACE,RVOFF 
} " 

50110 PRINT"C12RIGHT,RVSON>’p?GC3SPACE>GC7S 
PACE,RIGHT,2SPACEJ"; N$(32);"CSPACE,R 
VOFF>“ 

50120 PR I NT " C13RI GHT , RVSON , 6SPACE3fl' p p - p - p - p C2 
RIGHT,5SPACE,RVOFF J" 

50130 PRINT"C13RIGHT,RVSON,12SPACE,3RIGHT, 
3SPACE,RVOFF,PURPLE JflCBLACK >" 

50140 PRINT"C15RIGHT,RVSON,SPACE > ZELAMBIE C 
SPACE,RVOFF,7RIGHT,PURPLE Jfl CBLACK >" 
50150 PRINT"C15RIGHT,RVSON,9SPACE,RVOFF,9R 
IGHT,PURPLE JflCBLACK J" 

50160 PRINT"C16RIGHT,RVSON,7SPACE,RVOFF,11 
RIGHT,PURPLE Jfl CBLACK J" 

50170 PRINT"C16RIGHT,RVSON,2SPACEJ";N*(33) 

;"C2SPACE,RVOFF,13RIGHT,PURPLE JY CBLA 
CKJ" 

50180 PRINT"C15RIGHT,RVSON,6SPACE,RVOFF J" 
50190 PRINT"C13RIGHT,RVSON,6SPACE,RVOFF J" 
50200 PRINT"C12RIGHT,RVSON,4SPACE,17RIGHT, 
YELLOW JTASTE CRVOFF J" 

50230 GET Ms IF M=" "THEN 50230 
50250 M -"":RETURN 

51000 POKE 53281,0:POKE 53281,6:PRINT"CCLR 
,DOWN,WHITE,14RIGHT,RVSON,SPACE JYUNG 
ALAND CSPACE,RVOFF,DOWN J" 

51003 PRINT"C16RIGHT,PURPLE,RIGHTJZflCBLACK 
J" 

51005 PRINT"CBLACK,16RIGHT,RVSON,8SPACEJ WC 
4SPACE,RVOFFJ" 

51010 PRINT"C13RIGHT,RVSON,9SPACEJ?T14C7SPA 
CE,RVOFFJ" 

51020 PRINT"CI1RIGHT,RVSON,3SPACEJYUNKAN 14 
C2SPACE Jfl YEDUIN C2SPACE,RVOFF,PURPLE 
J&&SAB CBLACK J" 

51030 PRINT"C9RIGHT,RVSON,2SPACEJ";N$(34); 

" C7SPACE J14C4SPACE Jflp"p"J?C6SPACE,RVOFF J 


< 213 > 

< 137 > 

< 220 > 

< 190 > 

< 140 > 

< 111 > 

< 039 > 

< 190 > 

< 134 > 

< 171 > 
<1U> 

< 132 > 
< 152 > 

< 161 > 

< 178 > 

< 065 > 

< 247 > 
< 182 > 
< 193 > 

< 004 > 

< 180 > 

< 238 > 

< 050 > 

< 022 > 

< 099 > 

< 1B2> 

< 165 > 
< 045 > 
< 093 > 


< 192> 
<017> 
<239> 

< 200 > 

<084> 

< 155> 


Qf 


51040 PRINT"C7RIGHT,RVSON,! 

WflC9SPACEJfl " ; N* (35); " C3SPACE,RVOFFJ 


<156> 

<245> 

<155> 

<207> 

<019> 

<030> 

<003> 


51050 

51060 

51070 

51080 

51090 

51100 

51110 

51120 

51130 

51140 

51150 

51160 

51170 

51180 

51220 

51230 

51250 

52000 

52010 

52015 

57 ra 20 

52030 

52040 

52050 

52060 

52070 

52080 

52090 

52100 

52110 

52120 

52130 

52140 

52150 

52160 

52170 

52180 

52190 

52220 

52230 

52250 

52400 

52410 


52420 

52430 


PRINT" <<6RIGHT,RVSON,11SPACE JHC2SPACE 

PRINT"C6RIGHT,RVSON,11SPACE JflC16SPAC 
E J14C3SPACE, RVOFF J “ 

PRINT"C8RIGHT,RVSON,3SPACEJYIUNAK jT? 
pPPC3SPACEJ";NS(36 );"C 5SPACEJfl ":N$( 

38);"CSPACE,RVOFFJ" 

PRINT"C9RIGHT JflCRVSON,13SPACEJAC6SPA 
CE J J4YY C4SP ACE, RVOFF J " 

PRINT"C3RIGHT,RVSON,3SPACE,RVOFF,2RI 
GHT JAC3RIGHT,RVSON,5SPACEJ“;N*(37);" 

C5SP ACE J Üp-pp-pM C5SPACE, RVOFF J " 

PRINT"C2RIGHT,RVSON,5SPACE,RVOFF Jfl C6 
RIGHT,RVSON,7SPACE JflYflflCBSPACE,RVOFF 

PRINT"C2RIGHT,RVSON,2SPACEJ";N$(40); 

"C2SPACE,7RIGHT,5SPACEJAC2SPACE JflC2S 
PACE JYETICSPACE,RVOFF J" 

PRINT"C3RIGHT,R VSON,6SP ACE,9RIGHT,2S 

PRINT"C5RIGHT,RVSON,6SPACE,9RIGHT,12 
SPACE,RVOFF J" 

PRINT"C6RIGHT,RVSON,7SPACE,8RIGHT,12 
SPACE,RVOFF J" 

PRINT"C6RIGHT,RVSON,2SPACE JYUNGOCSPA 
CE, RVOFF CRVSON , SPACE J YASAFK 

IJU CSPACE,RVOFF J" 

PRINT"C8RIGHT,RVSON,5SPACE,9RIGHT,10 
SPACE,RVOFFJ" 

PRINT"CRVSON,9RIGHT,3SPACE,11RIGHT,3 
SPACE J"; m (39 >;»C 3SPACE,RVOFF J » 

PRINT"CRVSON,25RIGHT,5SPACE,RVOFF J 
PRINT"C25RIGHT,YELLOW,8RIGHT,RVSON JT 
ASTECRVOFFJ" 

GET A*:IF A$=""THEN 51230 
M=" ": RETURN 

POKE 53280,0:POKE 53281,6 
PRINT”CCLR,DOWN,WHITE,15RIGHT,RVSON, 

SPACE J XYLOLAND CSPACE,RVOFF,DOWN J" 

PRINT"CBLACK,24RIGHT,PURPLE JflJ CBLACK 
I" 

PRINT"CBLACK,18RIGHT,RVSON,4SPACEJWC 
6SPACE,RVOFFJ” 

PRINT"C15RIGHT,RVSON,7SPACEJWC3SPACE 
J";N$(42 );"C 4SPACE,RVOFF J" 

PRINT"C13RIGHT,RVSON,8SPACE JflC12SPAC 
E,RVOFFJ" 

PRINT"C11RIGHT,RVSON,3SPACE J XEKTRA K 
XIPALOINGUC2SPACE,RVOFF J" 

PRINT"C10RIGHT,RVSON,11SPACE JflC11SPA 
CE,RVOFFJ" 

PRIN T-C10R IGHT,RVSON,2SPACEJ";N*(41) 

5" HY Y YYYYfl C8SPACE . RVOFF ■ PURPLE J .»**» 
iSÄZCBLACKJ" 

PRINT"C9RIGHT,RVSON J??TpTflCBSPACE TAT? 
?WC2SPACE, RVOFF J " 

PRINT"C8RIGHT,RVSON,5SPACEJWC2SPACE J 
XENTRIA AC3SPACEJflCRVOFFJ" 

PR I NT " C2RI GHT , PURPLE JB .CCC.C CBLACK , RVS 
ON,7SPACEJAC9SPACE JWC2SPACE,RVOFFJ" 

PRINT"C8RIGHT,RVSON,7SPACEJHC2SPACEJ 
"5 N*(43 );"C 4SPACEJflCSPACE,RVOFF J" 

PRIN T"C10RI GHT,RVSON,2SPACEJ";N*(44 > 

PRINT"C9RIGHT,RVSON’9SPACEJflCBSPACE, 

RVOFFJ" 

PRINT"C8RIGHT,RVSON,1ISPACEJflC3SPACE 
J";N$(45 >;"C 4SPACE,RVOFF J" 

PRINT"C7RIGHT,RVSON,2SPACEJ XAMBESIAN 
WC 10SPACE,RVOFFJ" 

PRINT"C8RIGHT,RVSON,1ISPACEJflXYLAMBO 
AN C2SPACE,RVOFF J" 

PRINT"C11RIGHT,RVSON,7SPACE JflC10SPAC 
E,RVOFFJ" 

PRINT"C14RIGHT,RVSONJpWflC9SPACE,RVO 
FFJ" 

PRINT"C17RIGHT,RVSON,8SPACE,RVOFF J" 

PRINT"CDOWN,32RIGHT,YELLOW,RVSON JTAS 
TECRVOFFJ" 

GET A*:IF A$=""THEN 52230 
A*="RETURN 

POKE 53281,0:POKE 53280,14:Y=0 
PRINT"CCLR,DOWN,5RIGHT,LIG.BLUE JFELD 
HERR ";:PRINT W$ (C);:PRINT" IHRE LAE 
NDER" <235> 

PRINT"C2DOWNJ" <143> 

FOR 1=1 TO 45 <128> 


<065> 

< 150> 

<095> 

<111> 

<091 > 

<098> 

< 171 > 

< 198> 

< 112 > 
<100> 

< 186> 

<079> 

<196> 

<078> 

<045> 

< 132> 

< 139> 
<021 > 

<081 > 

< 121 > 

< 151 > 
<049> 
<205> 
<028 > 
<026> 

< 114> 

< 128> 
<230> 

< 174> 
<253> 
<083> 

< 157> 

< 185> 

. <145 > 

< 181 > 
<019> 

<080> 

< 172> 

<091 > 
<180> 

< 123> 

< 127> 
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Taktikspiele 


C 64 


52440 IF N*CI>=S#(C)THEN PRINT TAB(Y>"tYEL¬ 
LOW >“ ;1 5"."5 TAB <5+Y>“{GREEN}";LS(I); 

:GOTO 52445 <225> 

52443 GOTO 52450 <081> 

52445 PRINT TAB(15+Y)“CRED>";Q(I) ; :Y=Y+20: 

IF Y=40 THEN Y=0:PRINT <255> 

52450 NEXT I:PRINT <165> 

52560 PRINT"{DOWN,YELLOW,RIGHT}NUMMER DES 

LANDES " 5 :INPUT T* <108> 

52565 IF T*="@"THEN GOSUB 53000:GOTO 52400 <180> 

52566 IF T*=CHR*(13)THEN 52400 <196> 

52567 T=0 <219> 

52570 T=VAL(T*> <140> 

52580 IF N*<T>OS*<C>THEN 52400 <007> 

52590 PRINT:PRINT"{D0WN,2RI6HT,PURPLE>WIEV 

IELE ARMEEN{2SPACE}CMAX";AR;"3 "5 sINP 
UT ER <113> 

52600 IF ER>AR THEN 52590 <090> 

52610 AR=AR—ER:ß(T > =Q(T)+ERsIF AR=0 THEN T 

=0sRETURN <230> 

52620 GOTO 52410 <003> 

53000 POKE 53280,0:PGKE 53281,0 <039> 

53010 PRINT"{CLR,DOWN,3RIGHT,LIG.BLUE,RVSO 

N >F1{RVOFF,SPACE >:{BLUE,SPACE >";B* <104 > 

53020 PRINT"{DOWN,LIG.BLUE,3RIGUT,RVSON}F3 

{RVOFF,SPACE}:{BLUE,SPACE}";C$ <247> 

53030 PRINT"{DOWN,LIG.BLUE,3RIGHT,RVS0N>F5 

{RVOFF,SPACE }:{BLUE,SPACE}"; D* < 019 > 

53040 PRINT"{DOWN,LIG.BLUE,3RIGHT,RVSON >F7 

{RVOFF,SPACE >:{BLUE,SPACE>";E* <047 > 

53050 PRINT"{DOWN,LIG.BLUE,3RIGHT,RVSON>F2 

{RVOFF,SPACE >:{BLUE,SPACE>";FS <019> 

53060 PRINT"{DOWN,LIG.BLUE,3RIGHT,RVS0N}F4 

{RVOFF, SPACE >: {BLUE,SPACE}"; G-S <047 > 

53070 PRINT"{DOWN,LIG.BLUE,3RIGHT,RVSON>F 6 

{RVOFF,SPACE >: {BLUE,SPACE}";H* <075 > 

53080 PRINT"{DOWN,LIG.BLUE,3RIGHT,RVSON >F 8 

{RVOFF,SPACE >:{BLUE,SPACE}";1$ <103 > 

53090 PRINT"{DOWN,LIG.BLUE,3RIGHT,RVSON } I { 

RVOFF,2SPACE>: {BLUE,SPACE >INFORMATIO 
N UEBER KONTINENTE” <145> 

53100 PRINT"{DOWN,LIG.BLUE,3RIGHT,RVSON>T{ 

RVOFF,2SPACEJ:{BLUE,SPACE TSPIESTAND/ 

SPIELENDE" <190 > 

53105 PRINT"{DOWN,LIG.BLUE,3RIGHT,RVSON >X{ 

RVOFF,2SPACEJ:{BLUE,SPACEJZURUECK ZU 
M SPIELSCHRITT" <062> 

53110 PRINT"{DOWN,30RIGHT,RED,RVSONJTASTE{ 

RVOFF>" <145> 

53130 GET A$:IF A$=""THEN 53130 <253> 


53140 

IF 

A$=" {Fl}' 

•THEN 

GOSUB 

45000 

<018> 

53150 

IF 

A$="{F3}"THEN 

GOSUB 

46000 

<173> 

53160 

IF 

A*=" {F5}' 

‘THEN 

GOSUB 

47000 

<071 > 

53170 

IF 

A$=" {F7}' 

'THEN 

GOSUB 

48000 

<226> 

53180 

IF 

A*=" {F2}' 

'THEN 

GOSUB 

49000 

<124> 

53190 

IF 

A*="{F4 } 1 

'THEN 

GOSUB 

50000 

< 127> 

53200 

IF 

A*=" {F 6 }‘ 

•THEN 

GOSUB 

51000 

<025> 

53210 

IF 

A*=" {F 8 }' 

•THEN 

GOSUB 

52000 

< 180> 

53220 

IF 

A*="X"THEN RETURN 


< 178> 

53230 

IF 

A*="T"THEN GOSUB 54000 

<209> 

53240 

IF 

A$="I"THEN GOSUB 16000 

<080> 


53250 GOTO 53000 <207> 

54000 POKE 53281,BrPOKE 53280,9 <200> 

54010 PRINT" {CLR>" : GOSUB 20020: PRINT" {HOM 

E,DOWN >" <208> 

54015 FOR X=1 TO S:KL(X)=0:KO<X)=0:NEXT X <155> 
54020 FOR 1=1 TO S <030> 

54030 FOR X=1 TO 45 <070> 

54040 IF N*(X>=S*<I)THEN KL<I>=KL<I>+1 <083> 

54050 NEXT X <149> 

54060 FOR X=1 TO 7 <176> 

54070 FOR Y=1 TO A(X) <067> 

54080 IF N*(B(X)+Y)=S*(I)THEN DF=DF+1 <050> 

54090 NEXT Y:IF DF=A < X)THEN KO(I)=KO <I)+DF <161> 
54100 DF=0:NEXT X <150> 

54110 PRINT"{DOWN,2RIGHT,RED}";W*(I>;TAB(2 
5)"{GREY 1 >"5 KO(I)+KL(I>;TAB(30>"{BL 
ACK JPUNKTE" <007> 

54120 NEXT I <099> 

54130 PRINT"{DOWN>":GOSUB 20020:PRINT"{2D0 

WN,18RIGHT,BLACK,RVSONJTASTE{RVOFF}" <042> 
54140 GET A$:IF A$=""THEN 54140 <057> 

54150 PRINT"{CLR, 6 DOWN,7RIGHT,BLACKJSPIELE 

NDE CJ/N3" <248> 

54160 GET A*:IF A$=""THEN 54160 <079> 

54170 IF A$=”J"THEN SYS 64738 <107> 

54180 RETURN <133> 


55000 POKE 53280,0-.POKE 53281,0: PRINT" {CLR 

,LIG.BLUE}" <006> 

55010 PRINT"{3D0WN,4RIGHT,RVS0N}£{2SPACE}¥ 

{2RIGHT,2SPACE,2RIGHT}£{4SPACE,2RIGH 
T,2SPACE,2RIGHT,SPACE,2RIGHT,SPACE,2 
RIGHT}£{2SPACE}¥" <087> 

55020 PRINT"{4RIGHT,RVSON,SPACE,2RIGHT,SPA 
• CE,2RIGHT,2SPACE,2RIGHT,SPACE,RVOFF} 
£{RVSON,5RIGHT,2SPACE,2RIGHT,SPACE,R 
IGHT}£{RVOFF}£{RVSON,2RIGHT,SPACE,2R 
IGHT,SPACE}" <152> 

55030 PRINT"{4RIGHT,RVSON,SPACE,RIGHT}£{RV 
OFF}£{RVSON,2RIGHT,2SPACE,2RIGHT,SPA 
CE}¥{5RIGHT,2SPACE,2RIGHT,SPACE}£{RV 
OFF}£{RVSON,3RIGHT,SPACE,2RIGHT,SPAC 
EV < 191 > 

55040 PRINT"{4RIGHT,RVSON,SPACE}£{RVOFF}£{ 

RVSON,3RIGHT,2SPACE,2RIGHT,RVOFF} ¥{R 
VSON,3SPACE}¥{2RIGHT,2SPACE,2RIGHT,2 
SPACE,4RIGHT,SPACE,2RIGHT,SPACE}" <178 > 

55050 PRINT"{4RIGHT,RVSON,SPACE,RVOFF}¥{RV 
SON}¥{3RIGHT,2SPACE,5RIGHT,RVOFF}¥{R 
VSON,SPACE,2RIGHT,2SPACE,2RIGHT,SPAC 
E,RVOFF}¥{RVSON}¥{3RIGHT,SPACE,2RIGH 
T, SPACE}" <028>. 

55060 PRINT"{4RIGHT,RVSON,SPACE,RIGHT,RVOF 
F}¥{RVSON}¥{2RIGHT,2SPACE,5RIGHT}£{S 
PACE,2RIGHT,2SPACE,2RIGHT,SPACE,RIGH 
T,RVOFF}¥{RVS0N}¥{2RIGHT,SPACE,2RIGH 
T,SPACE}" <149> 

55070 PRINT"{4RIGHT,RVSON,SPACE,2RIGHT,SPA 
CE,2RIGHT,2SPACE,2RIGHT,4SPACE,RVOFF 
}£{RVSON,2RIGHT,2SPACE,2RIGHT,SPACE, 

2RIGHT,SPACE,2RIGHT,RVOFF}¥{RVSON,2S 
PACE,RVOFF}ü{RVSON}" <0B2> 

55080 PRINT"{4D0WN,3RIGHT,PURPLE}CREATED/W 

RITTEN/IDEA/SOUND/GRAFIK" <112> 

55090 PRINT"{3D0WN,9RIGHT,RVSON,RED,SPACE} 

ALL BY BERND HORN IG {SPACE, RVOFF}'' <043> 
55100 FOR 1=1 TO 3500:NEXT:RETURN <134> 

60000 POKE 53280,1:POKE 53281,12:PRINT"{CL 

RV < 149> 

60C1' • PRINT"{12RIGHT,RED,RVSON,SPACE}SPIEL 

ANLEITUNG{SPACE,RVOFF}" <057> 

60020 PRINT"{DOWN,RIGHT,BLACKTSIE BEFINDEN 

SICH IN EINER FERNEN GA-" <228> 

60030 PRINT"{DOWN,RIGHT}LAXIE AUF DEM PLAN 

ETEN GURUNGO, MIT " <125> 

60040 PRINT"{DOWN,RIGHT}SEINEN 7 KONTINENT 

EN. SIE SIND FEDLHERR" <243> 

60050 PRINT"{RIGHT}AUF DIESEM PLANETEN UND 

BESITZEN EINE" <012> 

60060 PRINT”{DOWN,RIGHTTANZAHL VON LAENDER 

N, DIE SIE VERGROES—" <155> 

60070 PRINT"{DOWN,RIGHT}SERN UND VERTEIDIG 

EN SOLLEN. JEDEN MO-":REM 15 <246> 

60080 PRINT"{DOWN,RIGHTTNAT BEKOMMEN SIE A 

RMEEN DAZU. DIE AN-" <170> 

60090 PRINT"{DOWN,RIGHT}ZAHL RICHTET SICH 

NACH VOLLSTAENDIG BE-" <069> 

60100 PRINT"{RIGHT}SETZTEN KONTINENTEN UND 

NEU EROBERTEN" <012> 

60110 PRINT"{DOWN,RIGHTTLAENDERN.{17SPACE, 

2D0WN,RVSON,RED,SPACE}TASTE{SPACE,RV 
OFF}" <240> 

60120 GET A$:IF A*=""THEN 60120 <224> 

60130 PRINT"{CLR,DOWN,BLACK,RIGHT}BEI ANGR 

IFFEN, ODER BEI VERSCHIEBEN VON" <143> 

60140 PRINT"{RIGHT}ARMEEN, MUSS MINDESTENS 

EINE ARMEE IM" <036> 

60150 PRINT"{DOWN,RIGHT}HEIMATLAND STEHEN 

BLEIBEN." <053> 

60160 PRINT"{DOWN,RIGHT}MIT DER{SPACE,RED, 
RVSON}@{RVOFF,BLACK}—TASTE KOMMEN SI 
E ZUM UNTER-" <152> 

60170 PRINT"{DOWN,RIGHT}MENU, VON DEM SIE 

DIE KARTEN USW. ER-" <105> 

60180 PRINT"{DOWN,RIGHT}REICHEN KOENNEN." <191> 

60190 PRINT"{DOWN,RIGHTTMIT DER{SPACE,RED, 
RVSON}X{RVOFF,BLACKT-TASTE KOENNEN S 
IE DIE RQU-" <070> 

60200 PRINT”{DOWN,RIGHTTTINEN BEENDEN.{5SP 

ACE,2D0WN}VIEL SPASS !!!!!!!" <161> 

Listing 1. Listing zum Programm »Risiko« (Fortsetzung). 
Bitte nur mit dem Checksummer in diesem Heft 
eingeben. 



115 





C 64 


Taktikspiele 


60210 PRINT"{2D0WN,23RIGHT,RED,RVSON,SPACE 
>TASTE {SPACF. RvnFF ^ " 


60220 

> TASTE{SPACE,RVOFF >" 

GET A$:IF AS=""THEN 60220 

<004> 
< 199> 

60230 

RETURN 

<087> 

62000 

RETURN 

<079> 

63001 

DATA 

MOIRA,2,3,0,0,0,0 

<080> 

63002 

DATA 

MUR,1,3,9,0,0,0 

<067> 

63003 

DATA 

MARISUAN,1,2,4,0,0,0 

< 197> 

63004 

DATA 

MESIGO,3,27,0,0,0,0 

< 185> 

63005 

DATA 

JUISU,6,7,0,0,0,0 

<015> 

63006 

DATA 

JUKLIA,5,12,0,0,0,0 

< 175> 

63007 

DATA 

JEDIP,5,8,9,10,0,0 

<001> 

63008 

DATA 

JOSUAH,7,9,0,0,0,0 

< 174> 

63009 

DATA 

JIDU,7,8,10,11,2,0 

<054> 

63010 

DATA 

JUXARIO,7,9,11,12,0,0 

<237> 

63011 

DATA 

JANIAN.9,10,12,2,0,0 

<045> 

63012 

DATA 

JODELIA,6,10,11,42,0,0 

< 120 > 

63013 

DATA 

BOUYA,14,15,0,0,0,0 

<230> 

63014 

DATA 

BUNGA,13,15,16,25,0,0 

< 195> 

63015 

DATA 

BIFIAN,13,15,16,17,0,0 

<240 > 

63016 

DATA 

BALINGO,14,15,17,18,0,0 

< 171 > 

63017 

DATA 

BOAN,15,16,18,35,0,0 

< 122> 

63018 

DATA 

BEYU,16,17,44,0,0,0 

< 155> 

63019 

DATA 

WIUMBO,20,21,22,0,0,0 

<158> 

63020 

DATA 

WAGUR10,19,21,26,0,0,0 

<090> 

63021 

DATA 

WEFIA,19,20,22,23,24,25 

< 194> 

63022 

DATA 

WOKIO,19,21,23,0,0,0 

< 185> 

63023 

DATA 

WIGUA,21,22,24,0,0,0 

<216> 

63024 

DATA 

WUGA,21,23,25,0,0,0 

< 192> 

63025 

DATA 

WASPO,21,24,27,0,0,0 

<229> 

63026 

DATA 

WANZAN,20,27, 0,0,0,0 

<017> 

63027 

DATA 

WEGOS,25,26,4,0,0,0 

<248> 

63028 

DATA 

ZUGA,29,30,31,11,0,0 

< 196> 

63029 

DATA 

ZILUB0,28,31,32,0,0,0 

<002> 

63030 

DATA 

ZULAMBOGA,28,31,33,42,0,0 

< 131 > 

63031 

DATA 

Z ANGUAN,28,29,30,32,33,0 

< 197> 

63032 

DATA 

ZAGI,29,31,34,0,0,0 

<089> 

63033 

DATA 

ZELAMBIE,30,31,0,0,0,0 

<132> 

63034 

DATA 

YUNKAN,35,36,37,32,0,0 

<089> 

63035 

DATA 

YEDUIN,34,36,38,17,0,0 

<217> 

63036 

DATA 

YUPONDE1,34,35,37,38,0,0 

< 177> 

63037 

DATA 

YIUNAK,34,36,38,39,40,0 

<003> 

63038 

DATA 

YETI,35,36,37,39,0,0 

<233> 

63039 

DATA 

YASAFKIJU,37,38,40,0,0,0 

<150> 

63040 

DATA 

YUNGO,37,39,0,0,0,0 

< 108> 

63041 

DATA 

XEKTRA,42,43,44,0,0,0 

<213> 

63042 

DATA 

XIPALOINGO,41,43,45,30,12,0 

<12 0> 

63043 

DATA 

XENTRIA, 41,42,44,45,0,0 

<146> 

63044 

DATA 

XAMBESIAN,41,43,45,18,0,0 

<222> 

63045 

DATA 

XYLAMBOAN,42,43,44,0,0,0 

< 116> 


© G4-ei-Listing 1. Listing zum Programm »Risiko« (Schluß) 


Shugun — Ein 
Brettspiel 

Strategisches Vorgehen ist bei die¬ 
sem Brettspiel Voraussetzung. Verset¬ 
zen Sie sich in die Zeit der Samurais, 
und kämpfen Sie mit Ihrem acht Mann 
starken Heer gegen den Shugun. 

Shugun wird nach den Regeln des bekannten Brettspiels 
Shogun gespielt. Gegner des Spielers ist der Computer. 
Programmablauf zum Spiel Shugun 
Nach einem Titelbild erscheinen neun Schwierigkeitsstu¬ 
fen auf dem Bildschirm. Hat der Spieler sich für einen Schwie¬ 
rigkeitsgrad entschieden, drückt er die entsprechende Zahl. 
Es folgt ein einleitender Text. Am Ende dieses Textes können 
die Spielregeln abgerufen werden. Anschließend wird das 
Spielfeld aufgebaut und die Spielsteine auf ihre Anfangsposi¬ 
tion gesetzt. Auf jedem Spielstein erscheint eine Zufallszahl, 
die angibt, wieviele Felder gezogen werden können. Jetzt ist 


der Computer spielbereit und erwartet vom Spieler die Ein¬ 
gabe eines Zuges (zum Beispiel: Hl -G3). Ist der Zug unzuläs¬ 
sig, wird er vom Computer ignoriert. Ansonsten wird der 
Spielstein, versehen mit einer neuen Zufallszahl, auf die 
gewünschte Position gesetzt. Der nächste Zug wird vom 
Computer ausgeführt. Je nach Schwierigkeitsstufe zieht er 
mehr oder weniger »intelligent«. Ihn in Stufe neun zu schla¬ 
gen, ist nicht leicht. Steht der Sieger fest, erscheint eine 
Schlußgrafik und der Spieler wird gefragt, ob noch einmal 
gespielt werden soll. Wird »n« eingegeben, führt der Compu¬ 
ter einen Kaltstart aus. 

Spielregeln zum Spiel Shugun 

Jeder Spieler zieht mit einem acht Mann starken Samurai- 
Heer in den Kampf (am unteren Spielfeldrand der Spieler mit 
den weißen Spielsteinen, am oberen Spielfeldrand der Com¬ 
puter mit den hellblauen Spielsteinen). Der Shugun hebt sich 
vom Rest seiner Krieger durch besondere Kennzeichnung 
ab. Er ist der Anführer seines Heeres. Wird er geschlagen, hat 
seine Mannschaft verloren. Die zufällige Zahl in der oberen 
Ecke einer jeden Spielfigur gibt die Anzahl der Felder an, die 
gezogen werden können. Zieht man zum Beispiel mit einer 
Spielfigur, auf der die Zahl 4 steht, muß diese um vier Felder 
bewegt werden. Diagonale Züge sind nicht erlaubt. 

Hinweise zum Abtippen 

Bitte beachten Sie beim Abtippen, daß die einzelnen Pro¬ 
gramme unbedingt unter dem im Listing bezeichneten Namen 
abgespeichert werden. Sollten Sie die Programme auf Kas¬ 
sette abspeichern, entfällt der Programmteil »SHUGUN- 
LOAD«. Gestartet wird das Programm bei Kassettenbetrieb 
mit LOAD " MA.-ROUTINE * ,1,1 :NEW:LOAD "SHUGUN " :RUN 

Bei Diskettenbetrieb wird nur das Programm »SHUGUN- 
LOAD« mit LOAD"SHUGUN-LOAD",8 geladen und mit RUN 
gesiedet. Die restlichen Programmteile werden automatisch 
nachgeladen. 

(Andreas Gast / Rainer Wilhelm / ah) 


7 REM ********************************* <138> 

8 REM * SHUGUN-LOAD * <022> 

9 REM ********************************* <140> 

10 <157> 

11 POKE 53281,0:POKE 53280,0:PRINT"{CLR,14 

DOWN>"; <06B> 

12 PRINT"{YELLOW,9SPACEJN0W LOADINGs{SPACE 

,RED3SHUGUN" <094> 

13 PRINT“ {WHITE,9SPACEI tT i' t ' tVi ' i ' t ' t' i ' t ' t ' t ' t ' T ' t ' t ' T 

<027> 

15 PRINT"{DOWN,4SPACEJANDREAS GAST 8, RAINE 

R WILHELM" <142> 

20 A*="{BLACKILOAD"+CHR*(34)+"MA.-ROUTINE" 

+CHR*(34)+",8,1" <187> 

30 B*="{BLACKILOAD"+CHR*(34)+"SHUGUN"+CHR* 

(34)+",8" <019> 

40 PRINT" {HOME > 11 A*; PR I NT: PR I NT: PR I NT: PR INT 

SPRINT"{BLACKINEW"sPRINTsPRINTsPRINT B* <075> 
45 PRINT CHR$<144)iPRINTsPRINT:PRINTsPRINT 

"{BLAOORUN" <046> 

50 POKE 631,19sPOKE 632,13sPOKE 633,13:P0K 

E 634,13sPOKE 635,13sP0KE 198,5 <024> 

60 :s s s ... s s: s s s s s s s s s : s s::s s s s s::s <207> 

© 64 '*-■ 

Listing 1. Ladeprogramm zum Spiel Shugun. Bitte mit 
SAVE "SHUGUN- LOAD",8 auf Diskette abspeichern. 

Bei Kassettenbetrieb entfällt dieses Ladeprogramm. 


10 

REM 

************************** 

<050> 

20 

REM 

* 


* 

<069> 

30 

REM 

* 

SHUGUN 

* 

<124> 

40 

REM 

* 


* 

<089> 

50 

REM 

* 

BY 

* 

< 154> 

60 

REM 

* 

ANDREAS GAST 

* 

<216> 

70 

REM 

* 

& RAINER WILHELM 

* 

< 175> 

80 

REM 

* 


* 

<129> 

90 

REM 

* 

1984/85 ETTENHEIM 

* 

<050> 

91 

REM 

* 


* 

< 140> 

92 

REM 

************************** 

< 132> 
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C 64 


************************** 

* 'REM-ZEILEN AUCH AB- * 

* TIPPEN... * 

************************** 


93 : 

94 REM 

95 REM 

96 REM 

97 REM 
121 : 

125 REM ****************************** 

130 REM * TITELBILD * 

132 REM ****************************** 

133 : 

140 POKE 53281,0:POKE 53280,0:PRINT CHR4C1 
42>CHR*<8> 

150 PRINT"<CLR,WHITE>"; 

160 print" iiaaassasfitu. 

RjULSi" 

170 PRINT" au-c.c.»_c.c.c.c.u öCA'oTK.Q* uaSik = = 
= i*I V” 

180 PRINT" äSIGREEN,SPACE>A 8, R<SPACE,WHIT 
EJÄS JU2SPACEJJL3. .J-*-K.3.*_K.3_»-K_3. £ & £*£ -V" 
190 PRINT" £2<GREEN,SPACE>trtnnro<SPACE,WHIT 
E>£S<3SPACE>" 

200 PRINT" fifi(GREEN,SPACEJSOFT*<WHITE,SPAC 
E>2£{3SPACE>" 

210 PRINT" A3.C.O.C.C.C.C.KJ I75PACE,RED>S<SPACE, 
CYAN >H{SPACE,PURPLE >U{SPACE,GREEN>G{SP 
ACE,BLUE >U{SPACE,YELLOW>N" 

220 PRINT"{WHITE,SPACE>£££££ Ü»££J!.{5SPACE } 

230 PRINT" W.CCC-K. .3C.*C. s{5SPACE,YELLOW>A STR 
ATEGIC GAME" 

240 PRINT" {WHITE,SPACE>äE.{RVSONJT{RVOFF>I,{ 
3SPACE>£{RVSON >T{RVOFF}£Wi" 

250 PRINT" 7C.C.C.C.C.C.*.C.CV -B{7SPACE,YELLOW,SPAC 
EJFOR THE" 

260 PRINT"{WHITE,125PACE> = {13SPACE,LIG.RED 
, SP ACE J @@aW {WH I TE > " 

270 PRINT" WCCCCCCCC«- s-TSSPACE,LIG. RED■ SPA 
CE>COMMODORE LXIV{WHITE>" 

280 PRINT" Ss'BBBE'^BB'b'bÄ {13SPACE,LIG. RED,SP 
ACE J TTTT {WH I TE > " 

290 PRINT" .3_C_C_C_C_C_C_C_C_C_K. {5SPACE>" 

300 PRINT"{17SPACE>" 

310 PRINT"{RED,SPACE>SiLI{2SPACE,WHITE,SPA 
CE3.U.C.I. U-CIU.CI-U-C.KU. w.cK.{2SPACE T LIG■ RED,SP 


<069> 

<134> 

<105> 

< 202 > 

< 137> 
<097> 
<179> 
< 022 > 

< 186> 

< 109> 

< 220 > 

< 011 > 

< 174> 

< 130> 
<077> 
<213> 
<217> 

< 113> 
<055> 
<006> 
<0B6> 
<032> 
<072> 
<246> 

< 102> 

< 190> 

<19 I4f 

< 157> 


320 PRINT"{RED,SPACEJÜLiU{2SPACE,WHITE,SPA 
CEJ'B'ßü HC.tS CT.3J-I. B{4SPACE,LIG. RED,SPAC 
EJMDCCCCLXXXV" 

330 PRINT"{RED,SPACE>££££{2SPACE,WHITE,SPA 
CE>£ Ü.7.3.C.KA .K.U.C.K. ÄI4SPACE,LIG. RED, SPAC 


340 

350 

360 

370 

380 

390 

400 

410 

420 

421 

422 

423 

424 

425 
.438 
439 


440 

450 

460 

470 

480 

490 

500 

510 

520 


PRINT"{RED,6SPACE> — {WHITE,SPACE>ÜQA i 

I ü?» I IUWKI U/r I, " 

PR I NT " {RED, SPACE JüülLLUn{WH I TE, SPACE >5Tf 
£ SSS S S S S SSS " 

PR I NT " {RED, SPACE3 .3.KJLKJ.K {WH I TE , SPACE >£i 
73 WKUWK3C3 £ WK.3C3 £ 

PRINT" {CYAN, 14SPACE} W««.*.*.W " 

PRINT"{CYAN,8SPACE >PRESS = {LIG.RED.SPA 
CE>F1{SPACE,CYANJ = TO START" 

PRINT"{CYAN,14SPACE3Y3ÜÜÜS3T 
FOR T=1 TO 5000:NEXT T 
GET A*:IF A*<>"{Fl>"THEN 410 
GOSUB 20000 
: 

REM ****************************** 

REM * EINLEITUNGSTEXT * 

REM ****************************** 

: 

PRINT"{CLR>"CHR*(142)CHR*(8) 

PRINT"{10SPACE,RED >S{SPACE,CYAN >H{SPAC 
E,PURPLE >U{SPACE,GREEN >G{SPACE,BLUE >U{ 
SPACE,YELLOW3N" 

PRINT 

PRINT" SIE BEFINDEN SICH IM ALTEN CHIN 
A" 

PRINT" 

PRINT" 

ELLEN" 

PRINT" HAT SIE DER GROSSE KHAN" 

PRINT" COMM-O-DOR LXIV. GEFANGENGENOMM 
EN. " 

PRINT" ES BESTEHT NUR NOCH EINE GERING 


VOR RUND 2000 JAHREN.“ 

BEI EINEM FELDZUG GEGEN DIE REB 


E" 

PRINT" CHANCE, IHR LEBEN ZU RETTEN." 
PRINT" SIE MUESSEN IHN IM SHUGUN BES IE 
GEN..." 


<041 > 

< 122 > 

<224> 

<218> 

<0B2> 

<150> 

< 022 > 

< 133> 
<033> 
<201 > 

< 154> 
<143> 
< 222 > 
<161 > 
<224> 

< 147> 

< 126> 


<233> 

<032> 

<252> 

< 146> 

< 115> 
<209> 

< 142> 

< 186> 
<016> 

< 174> 


DHL 


530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

661 

662 

663 

664 
670 
680 
690 

700 

710 


720 

730 


740 

750 


PRINT" DER, DER DIE SHUGUN-SCHLACHT" 
PRINT" VERLIERT, WIRD MIT EINEM<2SPACE 
>'* 

PRINT" 

IANG " 

PRINT“ 


FELSBROCKEN AM FUSS IM JANGTSEK 


780 


VERSENKT. " 

PRINT"{DOWN,SPACEJDIE SPIELREGELN DIES 
ES SPIELES ENT-" 

PRINT" SPRECHEN DENEN DES STRATEGIESPI 
ELS" 

PRINT" -SHOGUN- (TM)." 

PRINT"{DOWN,WHITE,SPACE3KENNEN SIE DIE 
SE REGELN (J/N) ?" 

GET A*:Z=INT(RND(1)>:IF A*=""THEN 610 
IF AS="N"THEN GOTO 2840 
IF A*="J"THEN 650 
GOTO 610 

PRINT"{DOWN,SPACE>VIEL GLUECK, FREMDER 

FOR 1=1 TO 1000:NEXT 
: 

REM ****************************** 

REM * SPIELFELD ZEICHNEN * 

REM ****************************** 

: 

POKE 53275,0:POKE 53281,2:POKE 53280,2 
PRINT"{CLR>":PRINT CHR*(142)CHRS(8)"{H 
OME > " 

FOR 1=1 TO 3:PRINT"{YELLOW,RVSON,39SPA 
CE,RVOFF >":NEXT 

FOR 1=1 TO 16:PRINT"{YELLOW,RVSON,3SPA 
CE,RVOFF >“;TAB <19 >;”{RVSON,20SPACE,RVO 
FF>" :NEXT 

FOR 1=1 TO 3:PRINT"{YELLOW,RVSON,39SPA 
CE,RVOFF >":NEXT 

FOR 1=1103 TO 1943 STEP 40:POKE 1,160: 
NEXT:FOR 1=55335 TO 56215 STEP 40:POKE 
1,7:NEXT 

PRINT"{HOME,BLACK >" 

PRINT"{2D0WN,2RIGHT,SPACE 
'P'P'P'P' " 

FOR 1=1 TO 8 

r ünt 

PRINT"{RIGHT,WHITE >";CHR$(I+64 >;"{BLAC 


<016> 

<043> 

<205> 

<203> 

< 136> 

<029> 

<038> 

< 100 > 

< 110 > 

<044> 

<236> 

< 116> 

< 200 > 

<067> 

<129> 

<208> 

< 143> 
< 210 > 

< 138> 
<035> 

< 153> 

< 166> 


790 NEXT 

800 PRINT “ {BLACK,2RIGHT,SPACE>977777777777 
YYYY " 

810 PRINT“{WHITE,4RIGHT31{RIGHTJ2{RIGHTJ3{ 
RIGHTJ4{RIGHT>5{RIGHT>6{RIGHT>7{RIGHTJ 
8" 

820 PRINT"{HOME,BLACK>" 

830 FOR 1=1 TO 22 

840 PRINT TAB(22)"{YELL0W>7" 

850 NEXT 
860 : 

861 REM ****************************** 

862 REM * SPRITES AKTIVIEREN * 

980 REM ****************************** 

981 : 

990 V=53248 

1000 POKE V+39,1:POKE V+40,5:POKE V+41,6:P 
OKE V+42,5:POKE V+43,5:P0KE V+44,5 
1010 POKE V+45,5:POKE V+46,5 
1020 FOR 1=0 TO 62:READ Sl:POKE 1+832,S1:N 
EXT 

1030 FOR 1=0 TO 62:READ S2:P0KE I+896,S2:N 
EXT 

1040 FOR 1=0 TO 62:READ S3:P0KE 1+960,S3:N 
EXT 

1050 POKE 2040,13:POKE 2041,14:POKE 2042,1 
5 

1060 POKE 2043,14:POKE 2044,14:POKE 2045,1 
4 

1070 POKE 2046,14:POKE 2047,14 
1080 POKE V+21,255:POKE V+23,255:POKE V+29 
,255 

1090 POKE V,255:POKE V+1,62 
1100 POKE V+2,185:POKE V+3,185 
1110 POKE V+4,205:POKE V+5,180 
1120 POKE V+6,235:POKE V+7,170 
1130 POKE V+8,215:POKE V+9,150 


< 152> 

< 186> 


<080> 

<042> 

<135> 
<226> 
< 187> 

<042> 

<038> 

<050> 


< 115> 

< 124> 
<089> 
<03B> 
<098> 
<074> 

< 153> 
<201 > 
<016> 

< 195> 

< 105> 

<092> 

<092> 

< 150> 
<042> 
<074> 
<208> 

<025> 

< 1B9> 

<248> 

<158> 

<078> 

< 126> 
<073> 
<015> 


Listing 2. Hauptprogramm zum Spiel Shugun. Bitte mit 
SAVE "SHUGUN- LOAD",8 (,1) auf Diskette (Kassette) 
abspeichern. Bitte nur mit dem Checksummer in diesem 
Heft eingeben. 
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1140 

1150 

1160 

1161 

1162 

1163 

1164 

1165 
1170 
1180 

1190 

1200 


POKE V+10,235:POKE V+l1,200 
POKE V+12,170:POKE V+13,70 
POKE V+14,180:POKE V+15,130 

REM ***************************** 

REM * ZUBANZEIGE * 

REM ***************************** 

: 

PRINT"{HOME,6D0WN}"; 

PRINT TAB(24)"(RVSON.LIG.RED1 U«»»»*»« 
±*JL**i" 

PRINT TAB (24) " {RVSON.LIB. RED> —U-I.I.UIÜU 
PRINT TAB(24)“{RVSON.LIB.RED> -3 1SP- 


1210 PRINT TAB (24) " {RVSON.LIB. RED> .-J K K J J KJ 
■KJ-K-KJ- ” 

1220 PRINT TAB(24)"{RVSON.LIB.RED> J*«*»**» 
**»»*K " 

1230 PRINT TAB(23)“{YELLOW,RVSON,DOWN,SPAC 
E>IHR ZUB:{3SPACEJ-{RVOFF>" 

124 0 PRINT TAB(23)"{YELLOW,RVSON,SPACE>77V 


1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1321 

1322 

1323 
1330 
1340 
1350 
1360 
1370 
1380 
1390 

1400 

1401 

1402 

1403 

1404 
1410 
1420 
1430 
1440 

1450 

1460 

1470 

1480 

1490 

1500 

1501 

1502 

1503 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 


PRINT TAB(26)"{RVSON,3SPACE>R. WILHEL 
M" 

PRINT:PRINT TAB(34)"{RVSONJ&" 

PRINT:PRINT TAB(32)"{RVSON>A. EAST" 
PRINT:PRINT TAB(31)"{RVSON>A&R SOFT" 
PRINT"{HOME,3D0WN >"TAB(24)"{RVSON>@eS 
@55{4space 

PRINT"{HOME,4DOWN>"TAB(24 >"{RVSON >MDC 
CCC(3SPACE J+LX XXV" 

PRINT"{HOME,5D0WN >"TAB(24)"{RVSON >TTT 
TTT {4SP ACE >TTTTT" 

REM ***************************** 

REM * SPIELSTEINE ZEICHNEN * 

REM ***************************** 

PRINT"{HOME,LIB.BLUE >" 

PRINT"{3D0WN>"; 

PRINT"(3RIBHT,RVSON> WW H H Z W H R ' 

PRINT"{WHITE,12D0WN J"; 

PRINT"{3RIBHT,RVSON>ü ü U U S ü ü ü • 
PRINT"{3RIBHT,RVSON > JKJKJ XJKQBJKJK3K ‘ 


REM ***************************** 
REM * VARIABLENDEFINITION * 

REM ***************************** 

FOR 1=1 TO 8:PA(I>=1185+2*1:NEXT 
FOR 1=1 TO 8:PB(I)=1745+2*1:NEXT 
FOR 1=1 TO 8:Z=INT(RND(1)*4+1>:FA(I)= 
Z:NEXT 

FOR 1=1 TO 8:Z=INT(RND(1)*4+1):FB(I)= 
Z:NEXT 

FOR 1=1 TO 8:POKE PA(I>+1,FA(I)+48+12 

8::POKE 54273+PA(I),14:NEXT 

FOR 1=1 TO 8:POKE PB(I)+1,FB(I)+4B+12 

8::POKE 54273+PB(I), lsNEXT 

BOTO 3360 

REM ***************************** 

REM * EINBABE PRUEFEN * 

REM ***************************** 

ZU$=ZU*(1)+ZU*(2> 

FOR 1=1 TO 4 
Z*(I>=MID*(ZU*,I,1> 

NEXT 

FOR 1=0 TO 7 

IF Z$(1)=CHR*(1+65)THEN Z*(1>=STR*(I) 
NEXT 

FOR 1=0 TO 7 

IF Z$(3)=CHR$(1+65)THEN Z*(3)=STR*(I) 
NEXT 

FX=VAL(Z*(3>)-VAL(Z*(l)> 

FY=VAL(Z*(4))-VAL(Z*(2)) 

PX=1185+(VAL(Z$(1))*80) 
PY=PX+(VAL(Z$(2>)*2) 

P=PY 

FOR 1=1 TO 8 

IF PB(I)=P THEN 1730 


<021 > 

< 165> 
<055> 

< 121 > 
<158> 
<233> 
<160> 
<125> 
<107> 

<031 > 

<0B5> 

<165> 

< 125> 
<028> 

< 192> 

< 210 > 

<024> 

<038> 

<065> 

<014> 

<154> 

<230> 

< 188> 

<026> 
<063> 
<152> 
<065> 
<036> 
<201 > 

< 138> 
<0B6> 

< 114> 
<098> 

< 144> 
<062> 
<107> 
<144> 

< 170> 

< 146> 

< 116> 
< 012 > 
<024> 

< 100 > 

< 111 > 

< 166> 

<238> 

<044> 
< 160> 
<206> 
<243> 
<082> 
<245> 
<216> 
<242> 
<232> 

< 199> 
<036> 
<105> 

< 161 > 
<066> 

< 135> 
<095> 
<096> 
<072> 
<246> 
< 020 > 
< 102 > 
<229> 
<092> 

< 162> 
<140> 
<205> 


1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1971 

1972 

1973 

1974 
1980 
1990 
2000 
2010 
2020 
' 2 " .0 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2191 

2192 

2193 

2194 
2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 


NEXT 

BOTO 3360 
F=FB(I> 

IF F< >(ABS(FX)+ABS(FY)> THEN' 3360 
S=I 

FX=FX*B0 

FY=FY*2 

ZP=P+FX+FY 

FOR 1=1 TO 8 

IF ZP=PB(I)THEN 3360 

NEXT I 

FOR 1=1 TO 8 

IF ZP=PA(I)THEN BOSUB 3550:BOTO 1870 
NEXT I 

IF S= 5 THEN S(1)=209:S(2)=160:S(3)=2 
09:S(4)=209:BOTO 1890 

IF S< >5 THEN S(1)=213:S(2)=160:S(3)=2 
02:S(4)=203 

POKE PB(S),79:POKE 54272+PB(S),0 
POKE PB(S)+1,80:POKE 54272+PB(S)+1,0 
POKE PB(S)+40,76:POKE 54272+PB(S)+40, 
0 

POKE PB(S)+41,122:POKE 54272+PB(S)+41 

,0 

POKE ZP,S(1):POKE ZP+1,S(2):POKE ZP+4 
0,S(3):POKE ZP+41,S(4) 

POKE 54272+ZP,1:POKE 54272+ZP+l,1:POK 
E 54272+ZP+40,1:POKE 54272+ZP+41,1 
Z=INT(RND(1)*4+1) 

FB(S)=Z 

PB(S)=ZP:POKE ZP+1,128+Z+48 

REM ***************************** 

REM * COMPUTER—STRATEBIE * 

REM ***************************** 

FOR 1=1 TO 8:IF PA(I>=200 THEN 2030 
XA(I)=PA(I)-1187:YA(I)=INT(XA(I)/80> 
XA(I)=XA(I)-80*YA(I>:YA(I)=16*YA(I) 

ZA(I)=XA(I)72:XA(I)=YA(I)+ZA(I) 

NEXT:FOR 1=1 TO 8:IF PB(I)=200 THEN 2 
060 

XB(I)=PB(I)-1187:YB(I> =INT(XB(I)/80): 
XB(I)=XB(I> —80*YB(I):YB(I)=16*YB(I> 

ZB(I)=XB(I)/2:XB(I)=YB(I)+ZB(I) 

NEXT:FOR 1=1 TO 8:IF NOT PB(I>=200 TH 
EN POKE 53212+1,XB(I) 

IF PB(I)=200 THEN POKE 53212+1,PB(I) 
NEXT:FOR 1=1 TO 8:IF NOT PA(I)=200 TH 
EN POKE 53112+1,XA(I) 

IF PA(I)=200 THEN POKE 53112+1,PA(I) 
NEXT:FOR 1=1 TO 8:POKE 53202+1,FB(I): 
NEXT 

FOR 1=1 TO 8:POKE 53102+1,FA(I):NEXT 
SYS 49152:CI=PEEK(52970):ES=PEEK(5324 
4):C2=PEEK(52969) 

IF ES=200 AND C2=200 THEN 2200 
IF(ES>0 AND ES<9)AND C2=200 THEN BOSU 
B 2790:BOTO 2230 

IF ES=200 AND(C2>0 AND C2<9)THEN 2390 
IF(ES>0 AND ES<9)AND CI=5 THEN 2390 
IF ES=5 THEN BOSUB 2790:BOTO 2230 
IF(ES>0 AND ES<9> AND(C2>0 AND C2<9)TH 
EN 2390 

REM ***************************** 

REM * COMPUTER ZIEHT * 

REM ***************************** 

: 

P=0:FOR 1=53100 TO 52972 STEP—2:IF PE 
EK( 1)0200 THEN P=P+1:NEXT I 
Z=INT <(RND(1> > *P)*2:Z=53101—Z 
ZP=PEEK(Z):S=PEEK(Z-1) 

X=INT(ZP/16):ZP=ZP-16*X:X=X*80:Y=ZP*2 
:ZP=1187+X+Y 
P=PA(S) 

POKE P,79:POKE P+1,80:POKE P+40,76:PO 
KE P+41,122 

POKE 54272+P,0:POKE 54272+P+l,0:POKE 

54272+P+40,0:POKE 54272+P+41,0 

IF S=5 THEN S(1> =218:S(2)=160:S(3)=21 

8:S(4)=218:BOTO 2290 

IF S< >5 THEN S(1> =240:S(2)=160:S(3)=2 

37:S(4)=253 

POKE ZP,S(1) 


< 196> 

< 136> 
<255> 
<227> 
< 202 > 
<098> 
< 200 > 

< 180> 

< 135> 
<252> 

< 137> 
<126> 
<028> 
<036> 
<223> 

< 166> 

<235> 

< 147> 
<089> 
<046> 

< 184> 
<015> 

< 118> 

< 180> 
<252> 
< 202 > 
<057> 

< 169> 
<206> 
<006> 
<208> 
<17B> 
<064> 
<057> 
<179> 
<096 > 

< 183> 

<104> 

<045> 

<227> 

<235> 

< 195> 
<109> 

<199> 

<092> 

< 185> 
<002 > 

<068> 

<004> 

<046> 

<064> 

<244> 

< 134> 

< 171 > 
<086> 

< 173> 

< 13S> 

<22B> 

< 148> 
<255> 

<096> 

< 175> 

< 18B> 
<209> 
<042> 

< 124> 
<039> 
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2300 POKE ZP+1,5(2) <172> 

2310 POKE ZP+40,S(3> <100> 

2320 POKE ZP+41,S(4) <246> 

2330 POKE 54272+ZP,14 <059> 

2340 POKE 54272+ZP+l,14 <158> 

2350 POKE 54272+ZP+40.14 <202> 

2360 POKE 54272+ZP+41,14 <244> 

2370 PA(S)=ZP:Z=INT(RND(1)*4+1):POKE ZP+1, 

Z+4B+128:FA(S)=Z <092> 

2380 GOTO 1490 <131> 

2381 : <071> 

2382 REM ***************************** <10B> 

2383 REM * COMPUTER KANN SCHLAGEN * <18B> 

2384 REM ***************************** <110> 

2390 : <080> 

2391 Z=INT(RND(1)*(LEV+l)+1)sIF Z=1 AND NO 

T LEV=9 THEN 2190 <022> 

2400 PRINT" {HOME,23D0WNV; <140> 

2410 PRINT"<YELLOW>UND NOCH EIN SETZER VON 

DIR DRAUSSEN." <21B> 

2420 POKE 1983,46:POKE 56255,7 <213> 

2430 C1=PEEK(52970):C2=PEEK<52969):IF(C1<1 

OR CI>8)OR(C2<1 OR C2>8)THEN 2130 <111> 

2440 P=PB <C1):FOR A=0 TO 10 STEP 2:POKE 54 
272+P,A:POKE 54272+P+l,A:POKE 54272+P 
+40,A <184> 

2450 POKE 54272+P+41,A <151> 

2460 FOR FA=1 TO 150:NEXT FA,A <177> 

2470 IF C2= 5 THEN S(1>=218:S(2)=160:S(3)= 

21B:S(4)=218 <019> 

2480 IF C2< >5 THEN S(1)=240:S<2)=160:S(3) = 

237:S(4)=253 <177> 

2490 POKE PA(C2) ,79:POKE 54272+PA(C2>,0 <026> 

2500 POKE PA(C2)+1,80:POKE 54272+PA<C2)+1, 

0 <057> 

2510 POKE PA(C2)+40,76:POKE 54272+PA(C2>+4 

0,0 <151> 

2520 POKE PA(C2)+41,122:POKE 54272+PA<C2>+ 

41,0 <217> 

2530 POKE PB(C1),S(1):POKE PB(CI)+1,S(2):P 
OKE PB<C1> +40,S(3):POKE PB(CI)+41,S(4 
) <116> 


2540 POKE 54272+PB(CI),14:POKE 54272+PB(Cl 

)+1,14:POKE 54272+PB(CI)+40,14 <012> 

2550 POKE 54272+PB(CI)+41,14:Z=INT(RND(1)* 

4+1) <180> 

2560 FA(C2)=Z <167> 

2570 PA(C2)=PB(CI) <179> 

2580 POKE PA(C2)+1,128+Z+48 <169> 

2590 PB(CI)=200:FB(CI)=0:XB(CI)=200 <100> 

2600 IF PB(5)=200 THEN 3650 <132> 

2605 PRINT"<H0ME,23D0WN>"; <091> 

2607 PRINT"<39SPACE>" <220> 

2610 GOTO 1490 <107> 

2611 : <047> 


2740 REM ***************************** <212> 

2750 REM * UNTERPROGRAMME * <030> 

2760 REM ***************************** <232> 

2761 : <197> 

2790 REM ***************************** <006> 

2791 REM * COMPUTER WIRD BEDROHT * <176> 

2792 REM ***************************** <008> 

2793 : <229> 

2800 FOR 1=53100 TO 52972 STEP-2 <076> 

2810 IF PEEK(IX>ES THEN NEXT I <054> 

2820 ZP=PEEK (I + l): S=ES: IF ZPO200 THEN RET 

URN:REM"ZUG MOEGLICH" <0B7> 

2821 FOR 1=1 TO 8:P0KE 53112+1,XA(ES):NEXT <206> 

2822 FOR 1=1 TO 8:P0KE 53102+1,FA(ES):NEXT <103> 

2823 POKE 53101,200:SYS 49152 <116> 

2824 T=53101:ZP=PEEK(T):IF ZP<>200 THEN 28 

29 <219> 

2825 FOR 1=1 TO 8:POKE 53112+1,XA(I):NEXT <149> 

2826 FOR 1=1 TO 8:POKE 53102+1,FA(I):NEXT <046> 

2827 SYS 49152 <091> 

2828 GOTO 2190 <031> 

2829 FOR 1=52961 TO 52969 STEP 2:IF PEEK(I 
)=ES THEN C1=PEEK'I+l):C2=PEEK(I):GOT 

0 2440 <199> 

2830 NEXT:FOR 1=1 TO 8:IF NOT ZP=XA(I)THEN 

NEXT:S=ES:RETURN <000> 

2831 T=T—2:ZP(1)=PEEK(T):IF ZP(1)=ZP OR ZP 

(1)=200 THEN 2825 <200> 

2832 FOR 1=1 TO 8:IF NOT ZP(1)=XA(I)THEN N 

EXT:ZP=ZP(1):S=ES:RETURN <109> 

2833 IF T>=52973 THEN 2831 <012> 

2839 GOTO 2825 <250> 


2840 REM ***************************** 

2841 REM * SPIELREGELN * 

2842 REM ***************************** 

2859 : 

2860 PRINT"<CLR,RVSON,WHITE,SPACE >SPIELREG 
ELN DES SPIELS 'SHUGUN' :<6SPACE,RV0F 
F>" 

2870 PRINT" ’SHUGUN' WIRD AUF EINEM 8 MAL 
8 FELDER" 

2880 PRINT" GROSSEN SPIELBRETT GESPIELT." 

2890 PRINT" DIE GEGNER (SIE UND DER C-64) 

2900 PRINT" ZIEHEN MIT EINEM 8 MANN STARKE 
N “ 

2910 PRINT" SAMURAI-HEER IN DEN KAMPF." 

2920 PRINT" DABEI UEBERNEHMEN SIE DAS UNTE 
RE HEER," 

2930 PRINT" DER C-64 DAS OBERE HEER." 

2940 PRINT" AUF JEDEM SPIELSTEIN ERSCHEINT 
DURCH" 

2950 PRINT" ZUFALL EINE ZAHL ZWISCHEN 1 UN 
D 4." 

2960 PRINT" DIESE ZAHL SAGT IHNEN, WIE VIE 
LE" 

2970 PRINT" FELDER SIE MIT DIESER FIGUR FA 
HREN ” 

2980 PRINT" KOENNEN." 

2990 PRINT"C21SPACEJCRETURNI" 

3000 GET A$:IF A*<>CHR*(13)THEN 3000 

3010 PRINT"<CLR>" 

3020 PRINT" STEHT AUF EINEM STEIN NUN ZUM 
BEISPIEL" 

3030 PRINT" EINE - 4 - , SO KOENNEN SIE MIT D 
IESEM" 

3040 PRINT" STEIN 4 FELDER FAHREN. " 

3050 PRINT“ ( Z.B. 4 GERADEAUS , 2 GERADEA 
US " 

3060 PRINT" UND 2 NACH LINKS ODER RECHTS ) 


3070 

PRINT 

EINE 

3080 

PRINT 


EN! " 

3090 

PRINT 

L" 

3100 

PRINT 

3110 

PRINT 

SO" 

3120 

PRINT 


ES KANN JEDOCH NUR EINE X- UND 
Y-BEWEGUNG PRO ZUG GEMACHT WER 
SIE KOENNEN AUCH NICHT DIAGONA 
FAHREN ." 

HABEN SIE EINEN STEIN BEWEGT, 
AENDERT SICH SEINE ZAHL WIEDER 


3130 PRINT“ DURCH ZUFALL." 

3140 PRINT" FAHREN SIE NUN MIT EINEM STEIN 
AUF" 

3150 PRINT" EIN VOM GEGNER BESETZTES FELD, 
SO" 

3160 PRINT" WIRD DER GEGNERISCHE STEIN VON 
IHNEN •’ 

3170 PRINT" GESCHLAGEN." 

3180 PRINT"<21SPACE> CRETURNI" 

3190 GET A*:IF A*<>CHR$(13)THEN 3190 
3200 PRINT"<CLR>" 

3210 PRINT" EIN KRIEGER JEDER MANNSCHAFT I 
ST" 

3220 PRINT" BESONDERS GEKENNZEICHNET." 

3230 PRINT" ES IST DER 'SHUGUN'." 

3240 PRINT" WIRD DER 'SHUGUN' SO BEDROHT, 
DASS" 

3250 PRINT“ ER NICHT MEHR AUSWEICHEN KANN, 
SO IST" 

3260 PRINT" DAS SPIEL ZU ENDE." 

3270 PRINT" AUCH WENN ALLE KRIEGER EINES H 
EERES" 

3280 PRINT" GESCHLAGEN SIND, IST DER KAMPF 
VORBEI." 

3290 PRINT"CDOWN,SPACE>DOCH NUN GENUG DER 
WORTE," 

3300 PRINT" DIE SCHLACHT BEGINNT !" 

3310 PRINT"<DOWN,SPACE>VIEL SPASS WUENSCHE 
N DIE AUTOREN" 

3320 PRINT" DES SPIELES !" 

3330 GET A*:IF A$=""THEN 3330 
3340 GOTO 650 

3351 : ' 

3352 REM ***************************** 

3353 REM * EINGABE DES ZUGES * 

3354 REM ***************************** 


Listing 2. Hauptprogramm »Shugun« (Fortsetzung) 




<05B> 
< 181 > 
< 060 > 
<041 > 


< 149> 

< 183> 
< 011 > 

<079> 

<074> 

<085> 

< 010 > 

<038> 

<098> 

< 142> 
<230> 

< 010 > 

<234> 
<243> 
<081 > 
<204> 

< 167> 

<083> 

< 020 > 

<026> 

<066> 

< 100 > 

< 156> 

<236> 

<028> 

<054> 

<064> 

<088> 

<089> 

<069> 

<137> , 
<090> 

< 179> 
<093> 

< 140> 

<005> ; 
<019> 

< 138> 

< 116> 

<247> 

<235> 

<034> 

<161> ! 

<049> 

< 140> 

<072> 

<096> 

<078> 

<086> 

<025> 

<062> 

< 222 > 

<064> 
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3355 : <029> 

3360 GOSUB 3500 <166> 

3370 GET Z*(1):IF Z*(1)=""THEN 3370 <171> 

3380 IF ASC(Z*(1> X65 GR ASC(Z*(1))>72 THE 

N 3370 <246> 

3390 PRINT"CHOME.RVSON,YELLOW,12D0WN}"TAB( 

33) T $< 1) "{RVSON}?" <221> 

3400 GET Z*(2):IF Z*(2)=""THEN 3400 <0B9> 

3410 IF ASC <ZS(2))<49 OR ASC<Z*(2)>>56 THE 

N 3400 <1B8> 

3420 PRINT"{HOME,RVSON,YELLOW,12D0WN >"TAB( 

34) Z*(2)"-{RVSON}?":ZU* <1)=Z*(1)+Z*(2 

> <207> 

3430 GET Z*(3)sIF Z*(3)=""THEN 3430 <055> 

3440 IF ASC(Z*(3))<65 OR ASC(Z*(3)>>72 THE 

N 3430 <22B> 

3450 PRINT"{HOME,RVSON,YELLOW,12D0WN >“TAB( 

36)Z*<3)"{RVSON}?" <234> 

3460 GET Z*(4):IF ZS(4)=""THEN 3460 <022> 

3470 IF ASC(ZS(4))<49 OR ASC(ZS(4)>>56 THE 

N 3460 <21B> 

3480 PR I NT " {.HOME, RVSON, YELLOW, 12D0WN > " TAB < 

37>ZS(4):ZUS(2)=ZS(3)+ZS(4> <079> 

3490 GOTO 1500 <208> 

3500 PRINT" {HOME, YELLOW, 12DQWNVTAB (33) " {R 

VSON,YELLOW}?*—**" <037> 

3510 PRINT"{HOME,23D0WN}"; <234> 

3520 PRINT”{39SPACE>":P0KE 1983,32 <134> 

3530 RETURN <030> 

3540 : <214> 

3550 REM ***************************** <004> 

3551 REM * SPIELER SCHLAEGT * <217> 

3552 REM ***************************** <006> 

3553 : <227> 

3560 PRINT"{HOME,23D0WN>"; <028> 

3570 PRINT"{YELLOW}AUSNAHMSWEISE MAL EIN G 

UTER ZUG VON DIR":POKE 1983,33:POKE 5 
6255,7 <180> 

3580 FOR A=0 TO 10 STEP 2:P0KE 54272+ZP.A: 

POKE 54272+ZP+l,A:PDKE 54272+ZP+40,A <206> 
3590 POKE 54272+ZP+41,A <160> 

3600 FOR FA=1 TO 150:NEXT FA <216> 

3610 NEXT A G<0,74>Of1' 

3620 PA(I)=200:FA(I)=0:XA(I)=200 <13B> 

3630 IF PA(5)=200 THEN 3650 <130> 

3640 RETURN <142> 

3641 : <061> 


3642 REM ***************************** 

3643 REM * SPIELENDE (GRAPHIK & TEXT)* 

3644 REM ***************************** 

3650 : 

3651 FOR A=0 TO 10 STEP 2:POKE 53281,A:POK 
E 53280,A:FOR FQ=0 TO 150:NEXT FQ,A 

3653 IF PA(5)=200 THEN GEWS="B" 

3654 IF PB(5)=200 THEN GEWS="A" 

3660 V=53248:POKE V+21,0:FOR 1=0 TO 62:REA 
D Q:POKE 832+1,Q:NEXT 
3740 POKE 2042,13:POKE V+41,1 
3750 PRINT"<CLR>";:POKE 53281,0:POKE 53280 
,0 

3760 PRINT"{DOWN,WHITE}"; 

3770 PRINT" {4SPACE}b'PWoTl'l'0'p'{6SPACE}gpoTl 
TS" 

3780 PRINT" {4SPACE}TYü{RVSON}T3WT{RVOFF}V 
{7SPACE }T7Ü {RVSON >T£{RVOFF}Wr" 

TTYY{RVOFF JTiToW 

3800 PRINT" {8SPACEITYiKRVSON}T5"?{9SPACE }WT 
{RVOFFIUWrTrT"' 

3810 PRINT" {13SPACE}TmrütnjTO " 

3820 PRINT"{BROWN,2D0WN}"; 

3830 PR I NT " ro'Ö'pWd'pWÖTo" 1 

3840 PRINT"{RVSON,12SPACE,RVOFF}£" 

3850 PRINT"{RVSON,11SPACE,RVOFF}£" 

3860 PRINT"{RVSON,10SPACE,RVOFF>7" 

3870 PRINT“{RVSON,10SPACE,RVOFF}H" 

3880 PRINT"{RVSON,10SPACE,RVOFF}" 

3890 PRINT"{RVSON,9SPACE,RVOFF}£" 

3900 PRINT"{RVSON,9SPACE,RVOFF}" 

3910 PRINT"{RVSON,BSPACE,RVOFF}£" 

3920 PRINT"{RVSON,8SPACE,RVOFF}" 

3930 PRINT"{RVSON,8SPACE,RVOFF}" 

3940 PRINT"{BROWN,RVSON,8SPACE,RVOFF,ORANG 
E>S " 

3950 PRINT"{BROWN,RVSON,7SPACE,RVOFF}£{ORA 
NGEiinrö" 


<098> 

<013> 

< 100 > 

<070> 

<054> 

<005> 

<014> 

< 191 > 
<250> 

<029> 

<025> 

<127> 


< 210 > 


<0B7> 

< 159> 

< 141 > 

< 138> 
<047> 

< 131 > 
<141 > 

< 149> 
< 100 > 

< 184> 

< 181 > 
<204> 
<201 > 
<224> 
<234> 


<251 > 
< 155> 


3960 PRINT"{BROWN,RVSON,7SPACE,RVOFF}H{ORA 


3970 

3980 

3990 

3991 


3992 

3993 

3994 

3995 

4004 

4005 

4006 

4008 

4009 

4010 

4020 

4030 

4040 

4050 

4060 


4070 

4160 


4170 

4180 

4190 

9000 


9001 

9002 




<3003 


.34 


10000 

10010 


10020 

10030 


10040 

10050 

10060 

10070 

10080 

10090 


10100 


10110 

10120 

10130 

10140 

10150 

10160 

10170 

101S0 

10190 

10200 

10201 

10202 

10203 

20000 

20010 

20020 

20030 

20040 

20050 


NGE} EP POPQI OÖ P'oT i PGt?POT'POg PQQ - p - g - cj { 
BROWN}"; 

PRINT"{BROWN,RVSON,7SPACE,RVOFF,ORANG 
E,RVSON,33SPACE}"; 

PRINT”{BROWN.RVSON,7SPACE.RVOFF,ORANG 
E,RVSON,32SPACE,HOME,RVOFF}“; 

POKE 2023,160:POKE 56295,8 
PRINT"{HOME,8D0WN}"TAB <17 >"{RED}G{SPA 
CE,CYAN}A{SPACE,PURPLE}M{SPACE,GREEN} 
E{2SPACE,BLUE}0{SPACE,YELLOW}V{SPACE, 
ORANGE}E{SPACE,BROWN}R" 

IF GEWS=”B"THEN 4004 

PRINT:PRINT"{RED,HOME,11DOWN}"TAB <17) 
"DER KHAN HAT DICH BE-" 

PRINT TAB(17)"SIEGT.QUALVOLL STIRBST" 
PRINT TAB(17)"DU IM JANGTSEKIANG...": 
GOTO 4008 

PRINT:PRINT"{RED,HOME,11DOWN}"TAB(17) 
"DU HAST DEN KHAN BE—" 

PRINT TAB(17)"SIEGT.QUALVOLL STIRBT" 
PRINT TAB(17)"ER IM JANGTSEKIANG..." 
FOR 1=1 TO 4000:NEXT 

POKE V+4,130.-POKE V+5,100:POKE V+21,4 
POKE 53275,255:POKE V+23,0:POKE V+29, 
0 

FOR 1=100 TO 255 

POKE V+5,I:FOR T=1 TO 15:NEXT T 

NEXT 

PRINT"{RVOFF,HOME,18D0WN}"; 

PRINT TAB(11)"{YELLOW}U{DOWN,RISHT}A{ 
DOWN,RIGHT}R{DOWN,RIGHT}G{DOWN.RIGHT} 
H" 

FOR Y=1 TO 2000:NEXT Y 

PRINT TAB(17)"{6UP,SPACE}NOCH EIN SPI 

EL(J/N)?" 

GET AS:IF ASO"J"AND AS< >"N"THEN 4170 
IF AS="J"THEN RUN 
IF AS="N"THEN SYS 64738 

REM ***************************** 

REM * DATEN FUER SPRITES * 

REM ***************************** 

REM -SPRITE 1—SAEBEL- 

DATA 192,0,3,224,0,7,112,0,14,56,0,2 
8,28,0,56,14,0,112,7,0 
DATA 224,3,129,192,1,195,128,0,231,0 
,0,110,0,0,28,0,0,56,0,0,118 
DATA 0,24,231,24,13,195,176,7,129,22 
4,7,0,224,13,129,176,24,195,24,48,0, 
12 

REM -SPRITE 2—BAUM - 

DATA 0,0,0,0,0,0,0,0,0,0,8,0,0,24,0, 
0,24,0,0,60,0,0,60,0,0,126,0,0,126,0 
DATA 0,255,0,0,255,0,1,255,128,3,255 
,192,3,255,192,7,255,224,15,255 
DATA 240,28,60,56,0,60,0,0,126,0,0,2 
55,0 

REM -SPRITE 3—ZELT - 

DATA 0,0,0,0,65,8,0,33,16,0,125,32,0 
,125,64,0,61,128,0,59,0,0,125,0,0,25 
3,0 

DATA 1,251,0,3,247,128,7,247,192,15, 
227,224,15,193,240,31,128,240,63,128 
,248 

DATA 63,128,248,127,128,252,127,128, 
252,127,128,252,255,255,254 

REM -SPRITE 4-MANN - 

DATA 0,192,0,17,226,0,9,228,0,4 
DATA 200,0,3,240,0,1,224,0,1,224 
DATA 0,1,224,0,1,224,0,1,224,0 
DATA 1,32,0,1,32,0,1,32,0,3 
DATA 48,0,2,0,0,4,0,0,8,0 
DATA 0,112,0,0,248,0,0,248,0,0 
DATA 240,0,0 
: 

REM **************************** 

REM * LEVELEINGABE (1-9) * 

REM **************************** 

PRINT"{CLR,2D0WN}" 

PRINT" WAEHLEN SIE DEN SCHWIERIGKEIT 
SGRAD:" 

PRINT:PRINT 

PRINT TAB(10)"{RED}(1) -{SPACE,YELLO 
W}VOLLIDIOT" 

PRINT TAB(10)"{RED}(2) -{SPACE,YELLO 


<055> 

<088> 

< 102 > 
<213> 


< 145> 

< 152> 

< 186> 
<219> 

<0B6> 

< 115> 

< 135> 

< 195> 
<243> 

< 127> 

<088> 

<02B> 

<043> 

<240> 

<082> 


< 125> 
<219> 

<015> 

< 198> 

< 140> 

< 170> 
<086> 

< 123> 

< 137> 

< 125> 
<090> 
<1B2> 

< 059 > 
< 100 > 


<245> 

<255> 

<223> 

< 138> 

<055> 

<068> 


<066> 


<035> 

<182> 
<045> 
< 128> 
<007> 
<008> 

< 124> 
<244> 

< 135> 

< 179> 
<014> 

<: 030 > 

< 115> 
<032> 

< 194> 
<237> 

<231 > 

< 170> 

<003> 
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20060 

WiLEICHT BESCHRAENKT" 
PRINT TAB(10)"{RED>(3) 

-{SPACE,YELLO 

20070 

W >HOBBYSPAST IKER " 

PRINT TAB<10)"{RED>(4> 

-{SPACE,YELLO 

20080 

WJANFAENGER" 

PRINT TAB(10)"{RED>(5) 

-{SPACE,YELLO 

20090 

WJAMATEUR" 

PRINT TAB(10)"{RED>(6> 

-{SPACE,YELLO 

20100 

W JFORTGESCHRITTENER" 
PRINT TAB(10)"{RED>(7) 

-{SPACE,YELLO 

20110 

WJPROFI" 

PRINT TAB(10)"CREDJ(8) 

-{SPACE,YELLO 

20120 

W>SELBSTMOERDER" 

PRINT TAB (10> 11 {RED} <9> 

-{SPACE,YELLO 


<029> 
< 102 > 
<170> 
<056> 
<045> 
<155> 
<239> 


W>ANGEBER" <077> 

20130 PRINT:PRINT TAB(8)"{2SPACE,WHITE>NUM 

MER X3SPACEX" <104> 

20140 GET AS:IF VALtASXl DR VAL<AS>>9 THE 

N 20140 <193> 

20150 PRINT"{UP>"TAB(19)AS:LEV=VAL(AS) <077> 

20160 FOR 1=1 TO 1000:NEXT <007> 

20170 RETURN <160> 

30000 : <002> 


30010 REM **************************** <027> 
30020 REM * ENDE DES PROGRAMMS * <126> 
30030 REM **************************** <047> 

e GA'er Listing 2. Hauptprogramm »Shugun« (Schluß) 


Programm : ma.-routine C000 c6ee 


C000 : 20 12 c2 a9 40 8d ef cf df 

C00B : a9 30 8d ee cf a9 20 Sd f0 

c010 : ed cf a9 10 8d ec cf a9 24 

c01B : 00 8d eb cf a9 04 8d ea 9a 

C020 : cf a9 03 8d e9 cf a9 02 fe 

C 028 : 8d e8 cf a9 01 8d e7 cf 0e 

C030 : a9 00 8d e6 cf a9 40 8d 80 

c038 : fl cf 8d f0 cf a9 09 8d lc 

c040 : fa cf a2 96 a9 c8 9d d6 a2 

C048 : ce ca 8a d0 f7 a2 4f a9 5d 

C050 : c8 9d 81 cf ca 8a d0 f7 75 

C05B : a9 09 Bd ff cf a9 cB 8d 72 

C060 : fc cf ce ff cf ad ff cf 01 f 

c068 : dB 03 4c dB c2 aa bd de 19 

c070 : cf c9 c8 f0 ed 8d fe cf 5b 

C078 : bd d2 cf 8d fd cf 8d f9 cc 

C080 : cf a9 00 Bd f7 cf ad fe 88 

C08B : cf ae f9 cf ac f7 cf 18 21 

C090 : 7d e6 cf 18 79 eb cf c9 41 « 

C098 : 77 f0 04 90 02 a9 cB 8d 46 

c0a0 : f5 cf ad fe cf 18 7d e6 49 * 

C0a8 : cf 38 f9 eb cf 30 06 c9 b9 

c0b0 : 77 f0 04 90 02 a9 c8 8d 5e 

C0b8 : f4 cf ad fe cf 38 fd e6 63 * 

c0c0 : cf 30 0a 18 79 eb cf c9 f7 ( 

C0c8 : 77 f0 04 90 02 a9 cB 8d 76 

c0d0 : f3 cf ad fe cf 38 fd e6 7a 

C0d8 : cf 30 0c 38 f9 eb cf 30 68 , 

C0e0 : 06 c9 77 f0 04 90 02 a9 e7 

C0e8 : c8 8d f2 cf ad f5 cf c9 8b 

C0f0 : c8 f0 0b 29 0f c9 08 30 d8 

C0f8 : 05 a9 c8 Bd f5 cf ad f4 34 

cl00 : cf c9 c8 f0 0b 29 0f c9 ce 

cl08 : 08 30 05 a9 c8 8d f4 cf 0b 

cll0 : ad f3 cf c9 c8 f0 0b 29 76 

cl18 : 0f c9 08 30 05 a9 c8 8d f0 

c 120 : f3 cf ad f2 cf c9 c8 f0 15 

cl28 : 0b 29 0f c9 08 30 05 a9 2e 

c130 : c8 8d f2 cf a9 40 Bd fl 2c 

cl3B : cf ad f5 cf c9 c8 f0 16 28 

cl40 : ce fl cf ad fl cf 30 0e 2b 

cl48 : a8 b9 90 cf cd f5 cf d0 58 

cl50 : ef a9 c8 8d f5 cf a9 40 fd 

cl58 : 8d fl cf ad f4 cf c9 cB 0e 

c160 : f0 16 ce fl cf ad fl cf lf 

c168 : 30 Be a8 b9 90 cf cd f4 a9 

cl70 : cf dB ef a9 c8 Bd f4 cf 45 

cl78 : a9 40 8d fl cf ad f3 cf bd 

cl80 : c9 cB f0 16 ce fl cf ad c3 

clBB : fl cf 30 0e a8 b9 90 cf 69 

c 190 : cd f 3 cf dB ef a9 c8 Bd ef 

cl98 : f3 cf a9 40 8d fl cf ad e8 

claB : f2 cf c9 c8 f0 16 ce fl e4 

claB : cf ad fl cf 30 0e a8 b9 4e 

clbB : 90 cf cd f2 cf d0 ef a9 90 

clbB : c8 Bd f2 cf 20 83 cS ad 8e 

c1c0 : f5 cf c9 c8 f0 09 ce f0 9d 

clcS : cf ae f0 cf 9d 90 cf ad ld 

cld0 : f4 cf c9 c8 f0 09 ce f0 ac 

cld8 : cf ae f0 cf 9d 90 cf ad 2d 

cleB : f3 cf c9 c8 f0 09 ce f0 bb 

cleB : cf ae f0 cf 9d 90 cf ad 3d 

c lf0 : f2 cf c9 cB f0 09 ce f0 ca 

cif8 : cf ae f0 cf 9d 90 cf ce 90 

c200 : f9 cf ad f9 cf fS 05 10 44 

c208 : 03 4c 62 c0 ee f7 cf 4c 68 

C210 : 86 c0 a9 13 8d 00 04 a9 ff 

c218 : 08 8d 01 04 a9 15 Bd 02 25 

c220 : 04 a9 07 Bd 03 04 a9 15 8d 

c22B : Bd 04 04 a9 0e Bd 05 04 57 

c230 : a9 2d Bd 06 04 a9 03 8d 49 

c23B : 07 04 a9 12 Bd 0B 04 a9 6a 


c240 : 

05 8d 09 04 

a9 

01 

Bd 0a 

bc 

c248 : 

04 a9 14 8d 

0b 

04 

a9 05 

59 

c250 : 

8d 0c 04 a9 

04 

Bd 

0d 04 

03 

c258 : 

a9 27 8d 0f 

04 

a9 

3B Bd 

64 

c260 : 

10 04 a9 35 

Bd 

11 

04 a9 

48 

c268 : 

02 Bd 13 04 

a9 

19 

Bd 14 

38 

c270 : 

04 a9 01 Bd 

16 

04 

a9 2e 

bf 

c27B : 

Bd 17 04 a9 

07 

8d 

18 04 

0c 

c280 : 

a9 01 Bd 19 

04 

a9 

13 8d 

25 

c288 : 

la 04 a9 14 

Sd 

lb 

04 a9 

a6 

c290 : 

26 8d ld 04 

a9 

12 

Bd lf 

e4 

c29B : 

04 a9 2e Bd 

20 

04 

a9 17 

a5 

c2a0 : 

8d 21 04 a9 

09 

Bd 

22 04 

82 

,c2a8 : 

a9 0c 8d 23 

04 

a9 

08 8d 

e8 

|c2b0 : 

24 04 a9 05 

Bd 

25 

04 a9 

47 

c2bB : 

0c Bd 26 04 

a9 

0d 

Bd 27 

lc 

c2c0 : 

04 a2 29 ca 

8a 

f0 

08 a9 

5d 

c2c8 : 

02 9d ff d7 

4c 

c3 

c2 60 

42 

c2d0 : 

a9 40 8d fl 

cf 

a9 

82 8d 

aa 

c2dB : 

f0 cf a9 09 

Bd 

ff 

cf ce 

fl 

c2e0 : 

ff cf ad ff 

cf 

d0 

03 4c 

5a 

c2e8 : 

05 c5 aa bd 

78 

cf 

c9 c8 

fl 

c2f 0 : 

f0 ed 8d fe 

cf 

bd 

6e cf 

5e 

c2f8 : 

Bd fd cf Bd 

f 9 

cf 

a9 00 

ee 

c300 : 

Bd f7 cf ad 

fe 

cf 

ae f 9 

4f 

c308 : 

cf ac f7 cf 

18 

7d 

e6 cf 

ce 

C310 : 

18 79 eb cf 

c9 

77 

f0 04 

fe 

c318 : 

90 02 a9 c8 

Bd 

f 5 

cf ad 

50 

c320 : 

fe cf 18 7d e6 cf 

7d 

c32B : 

eb cf 30 06 

c9 

77 

f0 tu4 

ec 

c330 : 

90 02 a9 cB 

8d 

f 4 

cf ad 

60 

c338 : 

fe cf 38 fd 

e6 

cf 

30 0a 

ad 

c340 : 

18 79 eb cf 

c9 

77 

f0 04 

2e 

c34S : 

90 02 a9 c8 

Bd 

f 3 

cf ad 

70 

c350 : 

fe cf 38 fd 

e6 

cf 

30 0c 

c9 

c358 : 

3B f9 eb cf 

30 

06 

c9 77 

cb 

c360 : 

f0 04 90 02 

a9 

cB 

8d f 2 

b4 

c368 : 

cf ad f5 cf 

cd 

el 

cf f0 

92 

c370 : 

lb ad f4 cf 

cd 

el 

cf f0 

a6 

c37B : 

13 ad f3 cf 

cd 

el 

cf f0 

66 

c380 : 

0b ad f 2 cf 

cd 

el 

cf f0 

25 

c38B : 

03 4c 9a c3 

a9 

05 

8d ea 

9f 

c390 : 

ce ad ff cf 

Bd 

e9 

ce 4c 

2b 

c39B : 

de c6 20 c3 

c5 

ad 

f 5 cf 

99 

c3a0 : 

c9 c8 f0 0b 

29 

0f 

c9 08 

ad 

c3a8 : 

30 05 a9 cB 

8d 

f 5 

cf ad 

01 

c3b0 : 

f4 cf c9 c8 

f0 

0b 

29 0f 

41 

c3bB : 

c9 08 30 05 

a9 

cS 

Bd f 4 

33 

c3c0 : 

cf ad f3 cf 

c9 

c8 

f0 0b 

19 

c3c8 : 

29 0f c9 08 

30 

05 

a9 cB 

50 

c3d0 : 

8d f3 cf ad 

f 2 

cf 

c9 cB 

67 

c3dB : 

f0 0b 29 0f 

c9 

0B 

30 05 

22 

c3e0 : 

a9 c8 8d f2 

cf 

a9 

B3 Bd 

22 

c3e8 : 

fl cf ad f5 

cf 

f0 

lb ce 

79 

c3f 0 : 

fl cf f0 16 

ce 

fl 

cf f0 

65 

c3f8 : 

11 ad fl cf 

a8 

b9 

ec ce 

00 

C400 : 

cd f5 cf d0 

ea 

a9 

c8 Bd 

10 

c408 : 

f5 cf a9 83 

Bd 

fl 

cf ad 

c3 

c410 : 

f4 cf f0 lb 

ce 

fl 

cf f0 

29 

c418 : 

16 ce fl cf 

f0 

11 

ad fl 

3e 

c420 : 

cf a8 b9 ec 

ce 

cd 

f 4 cf 

le 

c428 : 

d0 ea a9 c8 

Bd 

f 4 

cf a9 

04 

c430 : 

83 Bd fl cf 

ad 

f 3 

cf f0 

Bc 

c438 : 

lb ce fl cf 

f0 

16 

ce fl 

0f 

c440 : 

cf f0 11 ad 

fl 

cf 

aS d9 

35 

c448 : 

ec ce cd f3 

cf 

d0 

ea a9 

10 

c450 : 

c8 8d f3 cf 

a9 

83 

8d fl 

a6 

c458 : 

cf ad f 2 cf 

f0 

le 

ce fl 

d3 

c460 : 

cf f0 19 ce 

fl 

cf 

f0 14 

51 

c468 : 

ad fl cf aB 

b9 

ec 

ce cd 

fl 

c470 : 

f2 cf ce fl 

cf 

d0 

e7 a9 

b2 

c478 : 

c8 Bd f2 cf 

20 

83 

c5 20 

33 

c480 

45 c6 ad f5 

cf 

c9 

c8 f0 

a3 

c488 : 

15 ce f0 cf 

ae 

f0 

cf 9d 

27 


c498 : 

ae 

f0 

cf 

9d 

ec 

ce 

ad 

f 4 

4c 

c4a0 : 

cf 

c9 

cB 

f0 

15 

ce 

f0 

cf 

cf 

c4aB : 

ae 

f0 

cf 

9d 

ec 

ce 

ad 

ff 

72 

c4b0 : 

cf 

ce 

f0 

cf 

ae 

f0 

cf 

9d 

09 

c4b8 : 

ec 

ce 

ad 

f 3 

cf 

c9 

c8 

f0 

45 

c4c0 : 

15 

ce 

f0 

cf 

ae 

f0 

cf 

9d 

5f 

c4c8 : 

ec 

ce 

ad 

ff 

cf 

ce 

f0 

cf 

5d 

c4d0 : 

ae 

f0 

cf 

9d 

ec 

ce 

ad 

f 2 

80 

c4d8 : 

cf 

c9 

c8 

f0 

15 

ce 

f0 

cf 

07 

c4e0 : 

ae 

f0 

cf 

9d 

ec 

ce 

ad 

ff 

aa 

c4eB : 

cf 

ce 

f 0 

cf 

ae 

f0 

cf 

9d 

41 

c4f 0 : 

ec 

ce 

ce 

f 9 

cf 

ad 

f 9 

cf 

28 

c4f B : 

f0 

05 

10 

03 

4c 

df 

c2 

ee 

7c 

c500 : 

f 7 

cf 

4c 

03 

c3 

a9 

81 

8d 

fd 

c508 : 

fl 

cf 

a9 

0b 

8d 

fa 

cf 

a9 

f 0 

c510 : 

09 

8d 

f0 

cf 

ce 

fl 

cf 

ce 

6f 

c518 : 

fl 

cf 

10 

03 

4c 

97 

c6 

ce 

90 

c520 : 

f0 

cf 

ad 

f0 

cf 

d0 

03 

4c 

a9 

c52B : 

0f 

c5 

ae 

fl 

cf 

bd 

ec 

ce 

40 

c530 : 

c 9 

cB 

f0 

db 

ac 

f0 

cf 

d9 

5a 

c53B : 

de 

cf 

f0 

03 

4c 

lf 

c5 

ad 

c9 

c540 : 

f0 

cf 

c9 

05 

f 0 

29 

ce 

f a 

b4 

c548 : 

cf 

ad 

fa 

cf 

30 

dl 

ad 

f0 

d0 

c550 : 

cf 

ae 

fa 

cf 

9d 

e0 

ce 

ce 

e9 

c558 : 

fl 

cf 

ae 

fl 

cf 

bd 

ec 

ce 

57 

c560 : 

ce 

fa 

cf 

ae 

fa 

cf 

9d 

e0 

db 

c568 : 

ce 

ee 

fl 

cf 

4c 

lf 

c5 

a9 

4c 

c570 : 

05 

8d 

ea 

ce 

ce 

fl 

cf 

ae 

e9 

c57S : 

fl 

cf 

bd 

ec 

ce 

8d 

e9 

ce 

fc 

c5B0 : 

4c 

97 

c6 

ad 

f 5 

cf 

cd 

f 4 

f e 

c5S8 : 

cf 

f0 

0d 

cd 

f 3 

cf 

f0 

0B 

5e 

c590 : 

cd 

f 2 

cf 

f0 

03 

4c 

9d 

c5 

7d 

c598 : 

a9 

c8 

8d 

f 5 

cf 

ad 

f 4 

cf 

a5 

c5ä0 : 

cd 

f 3 

cf 

f 0 

08 

cd 

f 2 

cf 

d3 

c5aB : 

f0 

03 

4c 

b2 

c5 

a9 

c8 

Bd 

6b 

c5b0 : 

f 4 

cf 

ad 

f 3 

cf 

cd 

f 2 

cf 

4c 

c5b8 : 

f0 

03 

4c 

c2 

c5 

a9 

c8 

Bd 

7d 

c5c0 : 

f 3 

cf 

60 

a9 

40 

Bd 

fl 

cf 

C0 

cScS : 

ad 

f 5 

cf 

c9 

cB 

f0 

1B 

ce 

af 

c5d0 : 

fl 

cf 

ad 

fl 

cf 

f0 

10 

ac 

70 

c5dB : 

fl 

cf 

b9 

90 

cf 

cd 

f 5 

cf 

14 

c5e0 : 

d0 

ed 

a9 

cB 

8d 

f 5 

cf 

a9 

45 

c5eB : 

40 

8d 

fl 

cf 

ad 

f 4 

cf 

f0 

09 

c5f 0 : 

15 

ce 

fl 

cf 

f0 

10 

ac 

fl 

09 

c5f8 : 

cf 

b9 

90 

cf 

cd 

f 4 

cf 

d0 

27 

c600 : 

f0 

a9 

c8 

Bd 

f 4 

cf 

a9 

40 

9d 

c60B : 

Bd 

fl 

cf 

ad 

f 3 

cf 

f0 

15 

e3 

c610 : 

ce 

fl 

cf 

f0 

10 

ac 

fl 

cf 

b7 

C61B : 

b9 

90 

cf 

cd 

f 3 

cf 

d0 

f0 

aa 

c620 : 

a9 

c8 

Bd 

f 3 

cf 

a9 

40 

Bd 

75 

c62B : 

fl 

cf 

ad 

f 2 

cf 

f0 

15 

ce 

41 

c630 : 

fl 

cf 

f0 

10 

ac 

fl 

cf 

b9 

54 

C638 : 

90 

cf 

cd 

f 2 

cf 

d0 

f 0 

a9 

lc 

c640 : 

cB 

8d 

f 2 

cf 

60 

a2 

09 

ca 

5a 

c64B : 

f0 

0d 

bd 

78 

cf 

cd 

f 5 

cf 

20 

c650 : 

d0 

f 5 

a9 

c8 

8d 

f 5 

cf 

a2 

ab 

c658 : 

09 

ac 

f 4 

cf 

ca 

f0 

0d 

bd 

d2 

c660 : 

78 

cf 

cd 

f 4 

cf 

d0 

f 5 

a9 

80 

c668 : 

c8 

Bd 

f 4 

cf 

a2 

09 

ac 

f 3 

3b 

c670 : 

cf 

ca 

f0 

0d 

bd 

7B 

cf 

cd 

fd 

c67B : 

f 3 

cf 

d0 

f 5 

a 9 

cS 

8d 

f 3 

45 

c6B0 : 

cf 

a2 

09 

ac 

f 2 

cf 

ca 

f0 

33 

c6SB : 

0d 

bd 

78 

cf 

cd 

f 2 

cf 

d0 

el 

c690 : 

f 5 

a9 

c8 

8d 

f 2 

cf 

60 

a9 

C0 

c698 : 

40 

8d 

fl 

cf 

ce 

fl 

cf 

d0 

72 

c6a0 : 

03 

4c 

de 

c6 

ae 

fl 

cf 

bd 

0e 

c6a8 : 

90 

cf 

c9 

cB 

f0 

ee 

a9 

09 

ea 

c6b0 : 

8d 

f0 

cf 

ce 

f0 

cf 

d0 

03 

5a 

c6b8 : 

4c 

9c 

c6 

ae 

fl 

cf 

bd 

90 

Bf 

c6c0 : 

cf 

ae 

f0 

cf 

dd 

78 

cf 

d0 

9f 

c6cB : 

ea 

ad 

fc 

cf 

c9 

05 

d0 

03 

d0 


c6d0 : 4c de c6 ad f0 cf 8d fc af 
c6dB : cf 4c b3 c6 a2 29 ca 8a 47 
c6e0 : f0 08 a9 07 9d ff d7 4c fl 
c6eB : de c6 60 60 00 8c 00 20 f2 


c490 : ec ce ad ff cf ce f0 cf 25 

Listing 3. Maschinen-Routinen zum Spiel Shugun. Bitte mit dem MSE auf Seite 8 eingeben. 
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C 64 


Geschicklichkeitsspiele 


Tödliches 

Dioxin 

Bergen Sie mit Ihrem Hubschrauber 
aus einem Höhlensystem hochgiftige 
Dioxinfässer. Doch Vorsicht, jeden 
Augenblick kann ein Erdbeben Ihrer 
lebensgefährlichen Aufgabe ein Ende 
setzen. 

Eine rücksichtslose Chemiefirma hat ihre hochgiftigen 
Dioxinabfälle über viele Jahre hinweg in einem Höhlensystem 
gelagert. Niemand kümmerte sich darum, doch jetzt ist das 
Gelände von Erdbeben bedroht, die die Fässer zerstören und 
die ganze Gegend unbewohnbar machen können. Durch 
scharfe Proteste der Öffentlichkeit wurde die Firma dazu 
gezwungen, die Dioxinfässer aus den Höhlen zu entfernen, 
um ein tödliches Inferno zu verhindern. 

Sie haben sich als freiwilliger Hubschrauberpilot für diesen 
lebensgefährlichen Job gemeldet. Für die Aufgabe stehen 
Ihnen vier gut ausgerüstete Hubschrauber zur Verfügung, mit 
denen Sie das gefährliche Gift bergen sollen. Es bleibt Ihnen 
aber nur wenig Zeit, denn die Erdbeben haben schon einge¬ 
setzt. Alle Hubschrauber sind mit einem Seismographen aus¬ 
gestattet, der vor nahenden Erdstößen warnt. Ist die Kontroll¬ 
lampe rechts unten auf dem Bildschirm grün, besteht keine 
Gefahr, wird sie dagegen rot, droht ein Erdbeben, und Sie 
sollten sich schnellstens in Sicherheit bringen, um nicht mit 
der Felswand zu kollidieren. Jede Kollision kostet Sie einen 
Hubschrauber. 

Der Hubschrauber wird mit dem Joystick in Controll-Port 2 
durch die Höhlengänge gelenkt. Ein Druck auf den Feuer¬ 
knopf läßt den Hubschrauber wenden. 

Sollten Sie es geschafft haben, alle Dioxinfässer aus dem 
Gefahrengebiet zu bergen, wartet eine große Belohnung auf 
Sie. 

Programmablaufbeschreibung zum Spiel 
»Tödliches Dioxin« 

Da das Programm in reinem Basic geschrieben ist, kann es 
auf Diskette und Kassette abgespeichert werden. 

Nach dem Start des Programms erscheint das Titelbild, und 
Sie müssen sich für eine von zwei Schwierigkeitsstufen ent¬ 
scheiden. Im oberen Teil des Bildschirms erscheint nun die 
erste Höhle mit dem Hubschrauber und den Dioxinfässern. Im 
unteren Teil werden die verbleibende Zeit, der Lohn, die 
Anzahl der Hubschrauber und der Seismograph angezeigt. 
Für jedes eingesammelte Dioxinfaß erhalten Sie als Pilot 
1000 Dollar. Sollten Sie durch ungeschicktes Fliegen mit der 
Felswand Zusammenstößen, explodiert der Hubschrauber. 
Ein neuer Hubschrauber ist für 1000 Dollar zu haben. Sind 
alle vier Hubschrauber verbraucht, wird das Spiel beendet. 
Die Reihenfolge der sechs Höhlen ändert sich bei jedem 
Spielstart. Jede Höhle hat einen Eingang und einen Ausgang. 
Verlassen Sie die Höhle jedoch erst dann, wenn alle Fässer 
eingesammelt sind, denn es gibt kein Zurück mehr. Wer zum 
Schluß Fässer vergessen hat, kann nicht gewinnen. Ist die 
Zeit abgelaufen und das Ziel ist noch nicht erreicht, wird das 
Spiel ebenfalls beendet. Wenn Sie alle Fässer ins Ziel ge¬ 
bracht haben, werden Sie gefeiert und erhalten die Gelegen¬ 
heit zu einem neuen Spiel mit höherem Schwierigkeitsgrad. 

(Mario Brunow / Markus Bode / ah) 
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REM 

** 


** 

<240> 

250 

REM 

******************************* 

< 132> 

260 

REM 

******************************* 

< 144> 


270 POKE 646,14:P0KE 53200,6:POKE 53281,6: 
POKE 53273,113: IF PEEK( 172)00 THEN 39 


0 <064> 

280 PRINT"{CLR,7D0WN,14RIBHT>MOMENT BITTE" <154> 

290 V=53248:S=54272:POKE 53275,0:POKE 1,55 <059> 

300 POKE 5016B,18:POKE 50169,19:POKE 50170 

,20:POKE 53281,6 <144> 

310 FOR A=S TO S+24:POKE A,0:NEXT A <102> 

320 FOR 1=50304 TO 50304+62:READ B:POKE I, 

0:NEXT <243> 

330 FOR J=50368 TO 5036B+62:READ P:POKE J, 

P:NEXT <115> 

340 FOR L=50432 TO 50432+62:READ M:POKE L, 

M:NEXT L <121> 

350 FOR W=50496 TO 50496+62:READ M:POKE W, 

M:NEXT W <217> 

360 FOR 1=57344 TO 57344+1039:READ F:POKE 

I,F:NEXT <069> 

370 FOR P=25001 TO 25001+70:READ Y:POKE P, 

Y:NEXT <047> 

380 FOR 1=28672 TO 29230:READ Y:POKE I,Y:N 

EXT: <226> 

390 SYS 28672 <194> 

400 POKE 247,115:POKE 248,115:P0KE 250,118 

:POKE V+21,0:A=2:H=255:POKE 171,0:VC=0 <105> 
410 V=53248:S=54272:POKE 53275,0:POKE 172, 

>■ 3 OKE 171,0:POKE 180,0:SYS 28672 <002> 

420 FOR 1=2 TO 6 <171> 

430 Al(I)=INT <RND(0)*5)+1 <239> 

440 FOR J=1 TO I—1:IF Al<I)=A1(J)THEN 430 <199> 

450 NEXT J,I:POKE 181,34:U=0:A=2:H=255:N2= 


0:VC=0:JK=0 <145> 

460 POKE V+21,0 <096> 

470 V=53248:S=54272:POKE 53275,0:POKE 172, 

1:POKE 171,0:POKE 180,0:SYS 28672 <062> 

480 SYS 28949 <064> 

490 FOR K=0 TO 4:P0KE 50171+K,21:POKE V+42 

+K,1 :NEXT <222> 

500 POKE V+39,1:POKE V+29,7:P0KE V+28,7:P0 

KE V+37,14:POKE V+38,0 <107> 

510 POKE V+40,14:POKE 170,0:PRINT CHR*C8> <213> 
520 POKE S+7,12:POKE S+B,2:P0KE S+9,0:POKE 

S+10,4:POKE S+l1,0:POKE S+12,0 <109> 

530 POKE S+13,192 <043> 

540 POKE S+21,0:POKE S+22,5:P0KE S+23,10:P 

OKE S+24,31 <198> 

550 POKE S+l1,65:POKE S+18,65 <246> 

560 POKE S+5,9:POKE S+6,2 <162> 

570 IF AL=0 THEN AL=2:G0SUB 4570 <053> 

580 POKE V,39:POKE V+1,193:POKE V+2,39:P0I< 

E V+3,193:POKE V+16,0 <104> 

590 N1=1NT(RND(0)*3)+2 <136> 

600 IF A<3 THEN A=A-1:B0SUB 1460:GOTO 630 <130> 

610 POKE 56576,PEEK(56576»AND 252:POKE 532 

72,8:POKE 648,192:A=A-1 <046> 

620 POKE V+31,0:POKE 171,0:GOTO 690 <042> 

630 POKE V+31,0:POKE V+21,249 AND H OR 1:P 

OKE 171,0:H=255 <107> 

640 SYS 29033:SYS 29102:POKE 56294,5 <127> 

650 TI*="000000":POKE 171,0 <153> 

660 X1=PEEK(170) <226> 

670 IF X1=0 THEN 700 <049> 

680 IF A=7 THEN 1070 <212> 

690 POKE 170,0:ON AltAlGOTO 1730,2060,2370 

,2680,3000 <161> 

700 M1 =PEEK(171) : IF M1O0 THEN 820 <20B> 

710 M2=PEEK(180) <241> 

720 IF «200 THEN POKE S+18,17:F0R J=1 TO 
120:NEXT:POKE S+18,0:POKE 180,0:VC=VC+ 


Listing 1. Tödliches Dioxin. Bitte verwenden Sie zur 
Eingabe nur den Checksummer in diesem Heft. 
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Geschicklichkeitsspiele 


C 64 


<007> 


730 IF TI >AB THEN U=U+1:P0KE 181,34-U:POKE 
50112-U,32:TI*="000000" s N2=N2+.5 
740 POKE 247,PEEK(50119):POKE 24S,PEEKC501 
20 ) 

750 IF U=34 THEN 820 
760 IF N2>=N1—1 THEN POKE 56294,10 
770 IF N2>=N1—.5 THEN POKE S+l1,129 
780 IF N2=N1 THEN 1030 

790 POKE S+l,6:POKE S+5,0:POKE S,177:P0KE 
S+4,65:P0KE S+4,32 

800 SYS 28975:FOR B=1 TO 20:NEXT B:SYS 290 
0<S 

810 GOTO 660 

820 POKE V+37,0:POKE V+38,2:P0KE V+41,7:H= 

PEEK(V+21)AND 248 

830 POKE V+4,PEEK(V):POKE V+5,PEEK(V+l> 

840 POKE V+21,PEEK(V+21)AND 252:POKE V+21, 

PEEK(V+21)OR 4 

850 FOR P=S TO S+24:POKE P,0:NEXT P:SYS 28 
913 

860 FOR C=1 TO 1000:NEXT:POKE V+21,0:POKE 
S+24,0 

870 IF U=34 THEN 1250 
880 IF PEEK(250)<116 THEN 1250 
890 GOTO 920 

900 POKE 53272,21:PRINT"<CLR>":POKE V+21,0 
:POKE S+24,0:POKE 646,14:P0KE 56576,15 
1 

910 POKE 648,4:PRINT"{CLR >":END 
920 PRINT"{GREY 3,CLR,2D0WN}-jf5TJ 
Tod +7WZ* " 

930 PRINT" {DOWN -R-flj-rf +K^NS{RVSON> 

A{RVOFF} 

940 PRINT" {D0WN}-?=1J Wu X-THGG-V gj^: =f 

T=2=T{RVS0N}A {RVOFF} <009> 

950 PRINT" T2D0WN> "TAB 114> "^^7 -Vl ' +>l ~ fc " <243> 

960 WAIT 56320,16,16:POKE 250,PEEK(250)-1 <236> 

970 D1=PEEK(247):D2=PEEK(248) <109> 

980 IF D2=l15 AND Dl>115 THEN POKE 247,PEE 
K(247)—1:POKE 248,PEEK(248)+9:GOTO 100 


<014> 

<159> 

< 151 > 
<243> 

< 104> 

< 187> 

<203> 

<067> 

< 112 > 

<085> 
<221 > 

<034> 

<093> 

< 129> 

< 159> 
<021 > 

< 152> 


< 154> 

<044> 

< 182> 
<130> 


0 

990 POKE 248,PEEK(248)-1 
1000 IF PEEK(247)<115 THEN POKE 247,115 
1010 IF PEEK(248)<115 THEN POKE 248,115 
1020 N2=0:GOTO 460 

1030 POKE V+22,207:FOR L=1 TO 101:NEXT:POK 
E V+17,31:FOR L=1 TO 101:NEXT:POKE V+ 
17,28 

1040 FOR L=1 TO 101:NEXT:POKE V+22,204:FOR 
L=1 TO 101:NEXT:POKE V+17,25 
1050 FOR L=1 TO 101:NEXT:POKE V+22,200:FOR 
L=1 TO 101:NEXT:POKE V+17,27 
1060 N2=0:N1=INT(RND(0)*3)+2:POKE 56294,5: 

POKE S+l1,65:GOTO 660 
1070 POKE V+21,0:IF VC<30 THEN 1250 
1080 FOR L=1 TO 500:NEXT 

1090 PRINT"{GREY 3,CLR,D0WN}-fTjni X=±5 Y=ZTpY 
‘STi Tr ±XW?{RVSON>@{RVOFF>±XTO ^ 
T— 

1100 PRINT"±V—’o—+' ^X^nXYq a- X +p -V-V ff-W* 
XIRVSON > 0 CRVOFF }X@5=7 
iii0 print" ozy p ' K ' -vi'X ' T- ' K ' if-v kt 
^ mfflW<RVSON>@{RVOFF> 

1120 PRINT"TO±+T+iSi^GX='QQ' ^Hd^+’k m 5fAX=T{ 
RVSON >A{RVOFF } 

1130 PRINT" {DOWN>?^i=T ÜW-o ' G ?ll- ' Q Tf± THW 
■=V W-V+’-Vq' 

1140 PRINT-TXTT EX? '5Tr r TO 'WTO ITp^Tr—^ 
±-+ 

1150 PRINT" {GREEN,2D0WN,2RIGHT) dWptV-V+ ' q - D 
=T{SH IFT-SPACE > f'k’dKD-V X^B^KKSHIFT-SP 
A C E > R^-'k'if-V 

1160 PRINT"{GREY 3,2D0WN>T=TT=?{RVS0N>A{RV 
OFF} 

1170 PRINT” {DOWN>'P=TT{SHIFT-SPACE>BT(^{SHIF 
T-SPACE >ÄÖ^{SH IFT-SPACE > i-^* n^F{SH I 
FT-SPACE}TffX¥ ^TTFgXJ? ITT 
1180 PRINT" {SHIFT-SPACE> t ' z ' -W-U-V 'iFTC 

5 XY= oTZ* +-+G-+ 

1190 PRINT’"pn55^T{RVS0N>@{RV0FF>±XT ; F{SHIFT 
-SPACE ^WY^ZT^SH I FT-SPACE >57T={SH I FT 
-SPACE>- H1RVSONJA{RVOFF> 

1200 PR I NT " {DOWN > - p-rföy-V{SH I FT-SPACE >^TO{SH 

IFT—S PACE?5TTXg{SHIFT—SPACEIZX^ ATzz TT 
*N-"+' 5RHX--V-+' 

1210 PRINT" {UP}X’ZQ'N'zV—+ {RVSON> @ {RVOFF}±XT+ 


<070> 
(<249 > 
<088> 
<229> 
< 175> 


< 156> 

< 190> 

<076> 

<242> 

<039> 

<072> 


< 020 > 
< 120 > 
<057> 
< 101 > 
<047> 


<027> 


<205> 
< 103> 


<254> 
<051 > 


<025> 


<060> 


{ SHIF T-SPACE>±W^ZT=T ^{SHIFT-SPACE 
) - K +- {SH I FT-SPACE >XT+=1J={RVSON >A {RVOF 

1220 GET NS: IF NS=“"THEN 1220 
1230 IF N$="{F1>“THEN AB=AB—10:U=0:VC=0:PO 
KE 181,34:POKE 250,118:G=G-7:GOTO 420 
1240 GOTO 900 
1250 POKE V+21,0 
1260 FOR L=1 TO 500:NEXT 

1270 PRINT"{GREY 3,CLR,D0WN>ST(^{SHIFT-SPAC 
E >¥XX=F{SH I FT-SPACE >^{SHIFT-SPACE >5^ 
K'±^N{SHIFT-SPACE> + K'Z*D .ttZVX—Tt 
1280 PRi NT"xg g^{SHiFT-sPACE?i-iT-nii-x=T +Tfnmr 
+-^-Q'Q-V *T3 ±=R 

1290 PRINT"X- ^X*N -+RH+-{SHIFT-SPACE> - r 7{SHI 
FT-SPACE >=Tn = TTTT=T{RVSON >A{RVOFF > 

1300 PRINT" {DOWN>WffOT+=^ ±Xff= 

^mr^x-VK'a'zif^ 

1310 PRINT"ö—KODT+X KKZK3 'S^UXZIP^B {SH I FT- 
SPACE > {RVSON> @{RVOFF}±=TT 

1320 PRINT"k'g'g-NW+ISHIFT-SPACEI^XIHSHIFT- 
SPACE >±^{SH I FT—SPACE }SnST r ZT = {SH IFT-S 
PACE}Srf^{SHIFT-SPACE}SBT 
1330 PRI NT"i=^ KFT{SHIFT-SPACE>TT± JITplp 

otxt-w-v{rvson> e{ rvoff> tk± •^{shift 

-SPACE> 

1340 PR I NT "¥XX=T{SHI FT-SPACE >THnj 'B^FS'Zin^ 
H^XB1fZ5^{SHIFT-SPACE>i^XT{RVSON>A{R 
VOFFJ 

1350 PRINT" {2DOWN> >'-++■ {SHIFT-SPACE {SHI 

FT-SPACE >X55={SH I FT-SPACE Ji-^XIfJTO {SH 
IFT-SPACE>TffX¥{SHIFT-SPACE}=TTTG'X5 KT~ 
1360 PRINT "5TTZy{S HIFT-SPACE>T^rg^F{SHIFT-S 
PAC E>'p'nog -+ {SH I FT-SPACE >7F±{SH IFT-SPA 
CE > - K +-+ <SH I FT-SPACE > T=Y-+'{SH IFT-SPAC 
E> 

1370 PRINT"~NG2Z¥CSHIFT-SPACE>pXi~{SHIFT 
—SPACE J'pTiüF^RVSON }@{RVOFF}±XF?{SHIF 
T-SPACE }±EY=XT=T {SH I FT-SPACE >aK'= 

1380 PRINT'^liW^ ^{SHIFT-SPACE>h{RVSONJA{R 
VOFF> 

1390 PRINT" {D0WN>mrX5^F{SHIFT-SPACE}mi^{SH 
I FT-SPACE >nrZ5f {SH I FT-SPACE > ±K^9^{SH IF 

T-spficE)-ffwxfXR^ xx=nj 
1400 PRI NT"TiTZ¥5 {SHIFT-SPACE>^iiT{SHIFT-SPA 
E E > P — kTI—'K—Q' {SH I FT—SPACE I'gXg* {SH I FT—SPA 
CE > 1? {RVSON }@{RVOFF }±XTT{SH I FT-SPACE > 
iNZ^Zt^T 

1410 PRINT" BT^SHIFT-SPACE>TTKrX=T±^TO={SHIF 
T-SPACE >X+±^ij-=‘{SH I FT-SPACE >nX'5^{RVSO 
N>A{RVOFF} 

1420 GET NS:IF NS=""THEN 1420 
1430 IF NS="{F1}"THEN U=0:POKE 181,34:POKE 
250,118:POKE 247,115:P0KE 248,115:G0 
TO 420 

1440 GOTO 900 
1450 END 

1460 POKE 56576,PEEK(56576)AND 252:POKE 53 
272,8:POKE 648,192 
1470 REM BILD NR.1 

1480 POKE 167,12:P0KE 168,40:POKE 169,0:A= 
A+l 

1490 POKE 646,G:PRINT"{CLR > OGADEGDAGSDEAAG 
GAG@@GADEGDAGAA@@A@@@GDEB" 

1500 PRINT"{UP,39SPACEJ0" 

1510 PRINT"{UP,39SPACEI0" 

1520 PRINT"{UP,34SPACE}1{4SPACE}/" 

1530 PRINT"{UP,33SPACE> 2S3{3SPACE > 0" 

1540 PRINT"{UP>*{32SPACE}4S5{3SPACE>/" 

1550 PRINT“(UP >S Z C £Z&{8SPACE >6 CZ£]TTIT+!ZY 
C fZ C 3#SSSSZ[#" 

1560 PRINT"{UP}SSSSSS{8SPACEJSSSSSSSSSSSSS 
SSSSSSSSSSSSS" 

1570 PRINT"{UP}JABCDE{8SPACE}@AGAHIEAG@7AD 
E7 @BIGAGDE8AB" 

1580 PRINT"{UP>, LM{14SPACEJOP{10SPACEJLP{ 
5SPACEI9 /" 

1590 PRINT"IUP}. {17SPACE>QR{19SPACE}/" 

1600 PRINT"{UP}. C38SPACE}/" 

1610 PRINT"{UP},{8SPACE}:;{28SPACEJ0" 

1620 PRINT" {UP}SYC£3T+! Z#SC£1T++! YZC8<{1 ISP 
ACE>!ZYC£]#" 

1630 PRINT"{UP}SSSSSSSSSSSSSSSSSSSSSST{9SP 
ACE}USSSSSSS 

1640 PRINT"{UPTFABCADEABFGDAGDHIEAGBJK{9SP 

Listing 1. Tödliches Dioxin (Fortsetzung). 


<197> 

<237> 

<073> 
<216> 
< 124> 
<252> 


<058> 
< 161 > 
<084> 

< 092 > 
<023> 

<035> 

< 193> 

<049> 

<0B0> 

<215> 

< 127> 
<226> 

<027> 

<250> 


<225> 

<056> 


< 117> 

< 162> 
< 182> 

<07B> 

<223> 

<0B9> 

<017> 

<004> 

<014> 

< 140> 

< 187> 

< 182> 

<203> 

<232> 

< 141 > 

< 168> 

< 135> 

< 125> 
< 010 > 

<053> 

<221 > 


124 
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Geschicklichkeitsspiele 


ACE30BIGADEB <239> 

1650 PRINT"<UP}, LMC4SPACE}LNC5SPACE}0PC3S 

PACE}LM <11SPACE}QR C4SPACE >/" <080 > 

1660 PRINT"<UP>,<14SPACE}QRC22SPACE}0" <142> 

1670 PRINT"<UP>.<30SPACE>)*<6SPACE}/" <185> 

1680 PRINT" <UP>, <24SPACE}7,&C4SPACE} ' ( < 6 SPA 

CE>0" <085> 

1690 PRINT"<UP}+VSSSSSSWYZC£3t++++!ZCY£3#S 

*CYf#SC3+t<-!# <086> 

1700 POKE V+31,0sPOKE 171,0:POKE V+6,180:P 

GKE V+7,84:POKE V+8,68:P0KE V+9,139 <175> 


1710 POKE V+10,250:POKE V+l1,193:POKE V+12 


,130:POKE V+13,139:P0KE V+14,45 <070> 

1720 POKE V+l5,81:RETURN <253> 

1730 REM BILD NR.2 <233> 

1740 POKE V+21,0 <106> 

1750 POKE 646,G:PRINT"<CLR>SSSSSSSSSSSSSSS 

SSSSS<K@ADEGAGKADGAG@AGBS" <172> 

1760 PRINT"<UP}S<K@AGADEG@AK=SSSSS>" <099> 

1770 PRINT"? C13SPACE>äSSS?" <07B> 

1780 PRINT".<13SPACE>/SS?" <062> 

1790 PRINT"-<13SPACEJUSXI0SPACE}!YZt£3f«-+ 

:Z#S" <088> 

1B00 PRINT" <UP>, <7SPACE>7.[ZY£#S?< 10SPACE>ß 

SSSSSSSSSSSSS" <234> 

1810 PRINT"<UP>.C7SPACE 3QADEGB> <10SPACE }.gS 

SSSSSSSSSSSSS" <028> 

1820 PRINT"<UP>-<23SPACE>£AGA@DEGA@AGBSSS" <032> 
1830 PRINT"<UP>,<22SPACE>S-<11SPACE>/SSS" <045> 
1840 PRINT"<UP>.<21SPACE}£S.<11SPACE>0SSS" <218> 
1850 PRINT" <UPJ£CZY£3t + ! C£C8SPACE}7.£#SS, <1 

1SPACE JQAGH“ <204> 

1860 PRINT"CUP 3SSSSSSSSSS— C8SPACE}0SSSS£YZ 

EJiCl 0SPACE >0" <11B> 

1870 PRINT"<UP}SSSSSSSSSS£CBSPACE}/SSSSSSS 

S.C10SPACE}/" <221> 

1880 PRINT"<UP}SSSSSSSSS> C9SPACE 30SSSSSSSS 

— < 10SPACE >0 11 <020> 

1890 PRINT"CUPJSSSSSSSS?C10SPACE>£SSSSSSSS 

2YZ£C7SPACE}/" <176> 

1900 PRINT“CUP>SSSSSSS>C10SPACE>£E@BCAGAAB 

SSS— C7SPACE } 0 " <233> 

1910 PRINT"CUP}DE@AGGE <14SPACE}LMC5SPACE}@ 

DE C8SPACE } / “ <237> 

1920 PRINT"CUP,39SPACEJ0" <172> 

1930 PRINT"CUP,39SPACEJ/" <149> 

1940 PRINT" CUP,29SPACE)7.S<C8SPACE>0" <153> 

1950 PRINT"CUP>YZ C£YZ C£Z C£3ZCYYZ Cf31++++! C 

Y 3#S&ZY [f 3Z C#" <0B8> 

1960 POKE 167,12:POKE 168,170:POKE 169,128 

:A=A+1:POKE 170,0 <024> 

1970 POKE V+16,135:POKE V,25:P0KE V+1,60:P 

OKE V+2,25:POKE V+3,60 <124> 

1980 POKE V+6,103:POKE V+7,72:P0KE V+8,223 
:POKE V+9,120:POKE V+10,253:POKE V+ll 
,144 <222> 

1990 POKE V+12,29:POKE V+13,112:POKE V+14, 

45:POKE V+15,193 <122> 

2000 POKE V+21,250 AND H OR 2:H=255 <205> 

2010 FOR T=1 TO 80:NEXT:POKE 49231,72:POKE 

55375,l:FOR T=1 TO 80:NEXT <066> 

2020 POKE 49271,72:POKE 55415,1:FOR T=1 TO 

80:NEXT:POKE 49311,72:POKE 55455,1 <000> 

2030 POKE V+31,0:POKE 171,0 <197> 

2040 GOTO 640 <038> 

2050 REM BILD NR.3 <049> 

2060 POKE V+21,0 <174> 

2070 POKE 646,G:PRINT"<CLR>GADEAG@BCDEG@KG 

A@K@AGADEA@GAGDEAAG@G@=SS” <105> 


2080 PRINT"CUP,7SPACE>LMC29SPACE>iS" <249> 

2090 PRINT" CUP, 39SPACE><106> 
2100 PRINT"CUP,39SPACE>/" <065> 

2110 PRINT”CUP>SiC14SPACE>7.S<C8SPACE>: 5 C11S 

PACE}/" <173> 

2120 PRINT"<UP>SS$CYZ C £ 3T+++!Zt#S$CY£[3 +!# 

$[£Z&C7SPACE > 0" <174> 

2130 PRINT"CUP>SS<AG@GADEGAKGA@DEGAGDAGADE 

AGAG1LC7SP ACE } / " <214> 

2140 PRINT“<UP3S>C29SPACE37C7SPACE30" <004> 

2150 PRINT"CUP},C38SPACE}/" <103> 

2160 PRINT"CUP}-C38SPACE}0" <210> 

2170 PRINT" CUP}. C8SPACE}7.CZY£3T++-! CZYfCfCl 

4SPACE}/" <229> 

2180 PRINT"CUP}-C 8 SPACE}/SSSSSSSSSSSSSSSiC 

13SPACE}0" <164> 

2190 PRINT"CUP}+ C 8 SPACE}QAGAG=SSSSSSSSSSSi 

C5SPACE})* C5SPACE}/" <116> 


2200 PRINT"CUP}S£C13SPACE}@AGADEAG=SSSiC4S 

PACE}'(C2SPACE36ZY#" <073> 

2210 PRINT"CUP}SSiC21SPACE}iSSS*YZC»*Z#SSS 

S" <022> 

2220 PRINT"CUP}SSSiC21SPACE}iSSSSSSS5SSSSS 

S" <177> 

2230 PR I NT " CUP }SSSS$YZZ t £ 3 T++!Z& <10SPACE } @ 

AGADE@AGA@BS" <098> 

2240 PRINT”CUP}SSSSSSSSSSSSSSSSSiC22SPACE} 

" <133> 


2250 PRINT"CUP}SSSSSSSSSSSSSSSSSSiC21SPACE 

>" <039> 

2260 PRINT"CUP}SSSSSSSSSSSSSSSSSSSiC20SPAC 

E}" <097> 

2270 PRINT"CUP}SSSSSSSSSSSSSSSSSSSS*YZ C £31 

+++++!ZCY£C#S" <245> 


2280 POKE V+l6,7:POKE V,25:P0KE V+1,190:PO 
KE V+2,25:POKE V+3,190 
2290 POKE 167,12:POKE 168,40:POKE 169,0:A= 
A+l:POKE 170,0 

2300 POKE V+6,255:POKE V+7,146:POKE V+8,67 
:POKE V+9,161:POKE V+10,147:P0KE V+ll 
,115 

2310 POKE V+12,46:POKE V+13,73:P0KE V+14,2 
46:POKE V+15,73 

2320 POKE V+21,250 AND H OR 2:H=255 
2330 FOR T=1 TO 80:NEXT:FOKE 49871,72:POKE 
56015,l:FOR T=1 TO 80:NEXT 
2340 POKE 49911,72:POKE 56055,1:FOR T=1 TO 
80:NEXT:POKE 49951,72:POKE 56095,1 
2350 POKE V+31,0:POKE 171,0 
2360 GOTO 640 
2370 REM BILD NR.4 
2380 POKE V+21,0 

2390 POKE 646, G: PR I NT 11 CCLR }SSSSSSSSSSSSS< A 
DEGA@AG@<@GABCAG<äGbEAG<3BS" 

2400 PRINT"CUP}SSSSSSSSSSSS?C14SPACE3LNCI1 
SPACE}" 

2410 PRINT"CUP 3SSSSSSSSSSSS.C27SPACE}" 

2420 PRINT"CUP}SSSSSSSSSSSS-C27SPACE}" 

2430 PR I NT " CUP3SSSSSSSSSSSS, C7SPACE >7. C £YZ C 
YYZZ£C 3YZZ £Y#S" 

2443 °RINT“ CUP}JGAG@GAABCGAL.C7SPACE>/SSSSS 
SSSSSSSSSSSSSS" 

2450 PRINT“CUP},C7SPACE}LNC10SPACE}0SSSSSS 
SSSSSSSSSSSSS" 

2460 PRINT"CUP}— C19SPACE}QAGA@AGA@ABC@AGKG 
AGB" 

2470 PRINT"CUP}.C29SPACE3LNC7SPACE}/" 

2480 PRINT"CUP3SYZ C£YZYZ[3Y£C26SPACE>0" 
2490 PRINT" CUP}@GAGKG@GAGKGA.<9SPACE}7.8<<15S 
PACE}/" 

2500 PR I NT " CUP, 20SPACE }7.Y#SSYZY Z l 3 £YY Z Z l £ 3 
#" 

2510 PRINT"CUP,20SPACE}QAGA@AGABC@GDEA@GAG 
B" 

2520 PRINT" CUP,28SPACE}LNC9SPACE}/ 11 
2530 PRINT" CUP}YZ C&C7SPACE37.&C26SPACE}0" 
2540 PRINT"CUP3SSS,C7SPACE}/+C26SPACE>/" 
2550 PRINT"CUPJSSS— C7SPACE}0SiC 10SPACE}%YZ 
YZYYC£YZZ3£Y4t" 

2560 PRINT"CUP3SSS.C7SPACE}/SSiC9SPACE}DK@ 
K@GAGA@GAKG@B“ 

2570 PRINT"CUP3SSS*Cf CYZ C£[SSS£<23SPACE}/" 
2580 PRINT"CUP}SSSSSSSSSSSSSSSSiC22SPACE}0 


< 056 > 
<165> 


<041 > 

< 002 > 

<017> 

< 112 > 

<103> 
<009> 
< 106> 

< 119> 
<240> 

<089> 

< 123> 
<038> 
<046> 

<053> 

<240> 

< 202 > 

<107> 

< 186> 
< 188> 

< 190> 

<168> 

<044> 

<079> 

<187> 

<070> 

<033> 

< 101 > 

< 159> 


<038> 


2590 PRINT"CUP}SSSSSSSSSSSSSSSSS*YZC£3YYZZ 

ZYYZC3£ZYZYC#" <112> 

2600 POKE 167,12:POKE 168,105:POKE 169,96: 

A=A+1:POKE 170,0 <202> 

2610 POKE V+16,103:POKE V,25:P0KE V+1,60:P 

OKE V+2,25:POKE V+3,60 <244> 

2620 POKE V+6,30:POKE V+7,105:POKE V+8,54: 

POKE V+9,177:POKE V+10,2B:POKE V+11,1 
93 <252> 

2630 POKE V+12,55:POKE V+13,122:POKE V+14, 

255:POKE V+15,161 <117> 

2640 POKE V+21,250 AND H OR 2:H=255 <083> 

2650 FOR T=1 TO 80:NEXT:POKE 49231,72:POKE 

55375,1:FOR T=1 TO 80:NEXT <200> 

2660 POKE 49271,72:POKE 55415,1:FOR T=1 TO 

80:NEXT:POKE 49311,72:POKE 55455,1 <134> 

2670 POKE V+31,0:POKE 171,0:GOTO 640 <020> 

2680 REM BILD NR.5 <179> 

2690 POKE V+21,0 <040> 


Listing 1. Tödliches Dioxin (Fortsetzung). 
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C 64 


2700 POKE 646,E:PRINT"CCLR}CGAG@KGDEGAAG@A 
G@KDEGAG@KGDEGAGAABSSSSSS" 

2710 PRINT"IUP>,C32SPACE}/SSSSSS" 

2720 PRINT"CUP>NC32SPACE}/SSSSSS" 

2730 PRINT" CUP,8SPACEiy. ltN.MOMQOMONONanMMP f-7 
SPACE}0SSSSSS" 

2740 PRINT"CUP,8SPACE}/,C23SPACE}/SSSSSS" 

2750 PRINT"CUP}3 C7SPACE}/ — C23SPACEJQAGAAGB 

2760 PRINT"CUP}, C7SPACE}/*YYZZt£,E.C7SPACE}> 
* C13SPACE}/" 

2770 PRINT"CUP}-C7SPACE}0CGAG@KG±.C7SPACE}/ 
.C13SPACEI0" 

2780 PRINT"CUP},C7SPACE>0,C14SPACEJ0-C7SPA 
CE37.YYZZY#" 

2790 PRINT"CUP >.C7SPACE}/-C14SPACE>/.C7SPA 
CE>/SSSSSS" 

2800 PRINT"CUPJ.C7SPACE30. C7SPACE} XY Z C £ Y Z# 
-C7SPACE}0SSSSSS" 

2810 PRINT"CUP}-C7SPACE>/,C7SPACE}QGAG@KGB 
,C7SPACEJ/SSSSSS" 

2820 PRINT"CUP}— C7SPACE}0— C14SPACE} /.C7SPA 
CE}0SSSSSS" 

2830 PRINT"CUP},C7SPACE}/.C14SPACE}0-C7SPA 
CE}/SSSSSS" 

2840 PRINT“CUP}.C7SPACE30,C14SPACEI0—C7SPA 
CE}QGAGA=S" 

2850 PRINT"CUP}— C7SPACE}/$YZZYYCYZYZYYtY#, 
C14SPACE}“ 

2860 PRINT"CUP>,C7SPACE}QGAG@KGA@A@KKAG@B— 
C14SPACE}" 

2870 PRINT" CUP}— C23SPACE}0 .• C14SPACE}" 

2880 PRINT"CUP},C23SPACE}/,C7SPACE}XZYYZ#S 

2890 PRINT"CUP},C23SPACE}/,C7SPACE}/SSSSSS 


< 111 > 

<140> 

<218> 

<09B> 

<230> 

<192> 

<105> 

<044> 

<152> 

<068> 

<031 > 

<080> 

< 137> 
<174> 
<047> 
<041 > 

<149> 

< 198> 

<066> 

< 150> 


2900 PRINT"<UP}*YYZYZYZZYCYYZZZYCfYYZZY#*Y 
CYYZZY#SSSSSS" 

2910 POKE 167,12:POKE 168,40:POKE 169,128: 

A=A+1:POKE 170,0:X1=0:POKE V+16,135 
2920 POKE V,23:POKE V+l,172:POKE V+2,23:P0 
KE V+3,172 

2930 POKE V+6,103:POKE V+7,82:P0KE V+8,103 
:POKE V+9,154 

2940 POKE V+10,194:POKE V+l1,114:POKE V+12 
,160:POKE V+13,193 
2950 POKE V+l4,50:POKE V+15,98 
2960 POKE V+21,250 AND H OR 2:H=255 
2970 FOR T=1 TO 80:NEXT:POKE 49791,72:POKE 
55935,l:FOR T=1 TO 80:NEXT 
2980 POKE 49831,72:POKE 55975,1:FOR T=1 TO 
80:NEXT:POKE 49871,72:POKE 56015,1 
2990 POKE V+31,0:POKE 171,0:GOTO 640 
3000 REM BILD NR.6 
3010 POKE V+21,0 

3020 POKE 646,G:PRINT"CCLR}SSSSSSSSSSSSSS< 
GAGAGGAA@KGDEAGAGGDEAGGAB" 

3030 PRINT"CUP}SSSSSSSSSSSSS>C25SPACE}0" 

3040 PRINT" CUP}SSSSSSSSSSSS>C26SPACE}/" 

3050 PRINT"CUP}SSSSSSSSSSS?C23SPACE}XY ZY#" <180> 
3060 PRINT"CUP}JGAG@K.GAGB>C10SPACE}’(C12SP 
ACEIQAGBS" 

3070 PRINT"CUP}.C18SPACE}!Y#*YS<C15SPACE}" 

3080 PRINT"CUP}.C17SPACEIfiSSSSSSiC14SPACE} 

" <132> 

3090 PRINT" CUP}-C7SPACE} .9-0.00X0}lR0.UR AG(aKRAA 

XC13SPACE}" <015> 

3100 PRINT"CUP}-C25SPACE}0SYYZZC£tYYY#S" <226> 

3110 PRINT"CUP}— C25SPACE}0SS< AGGAA0KGAB" <080> 

3120 PRINT"CUP}.C7SPACEI QXOXWOXOOVY ZC£CYYY 

#S? C10SPACE}/" <126> 

3130 PRINT"CUP}.C16SPACE}.ISSSSSSSSS?C11SPA 

CE}/" <227> 

3140 PRINT"CUP}NC17SPACEIISSSSSSS?C12SPACE 

>0" <088> 

3150 PRINT"CUP,19SPACEIDGGGAGEC13SPACE}/" <056> 

3160 PRINT"CUP,39SPACE}0" <142> 

3170 PRINT"CUP}3 C7SPACE}XYZ Z& C26SPACE}0" <174> 

31B0 PRINT"CUP}.C7SPACE}/SSSS*YZYZCYf[YZZZ 

ZYYZY&C7SPACE}/" <126> 

3190 PRINT"CUP}.C7SPACE}QGAGADEGDEDGA@KG@A 

GGAAGi.C7SP ACE } / “ <177> 

3200 PRINT"CUP},C38SPACE}0" <202> 

3210 PRINT"CUP}.C38SPACE}/" <211> 

3220 PRINT"CUP}»YZYYZC£3T+++++!CYYYZYZZZZY 

CfCYZZYZCfYZ#" <077> 

3230 POKE 167,12:POKE 168,85:POKE 169,64:A 


< 158> 
<014> 

< 143> 
S4ER I 

<090> 

<077> 

<246> 

<,149> 

< 142> 


< 156> 
<086> 
<249> 

< 106> 

< 139> 
<243> 
<005> 


< 148> 

< 128> 


onu 


=A+1:POKE 170,0:POKE V+16,71 <134> 

3240 POKE V,25:POKE V+l,95:POKE V+2,25:P0K 

E V+3,95 <183> 

3250 POKE V+6,200:POKE V+7,114:POKE V+8,25 
0:POKE V+9,193:POKE V+10,95 :POKE V+l 
1 : 153 <013> 

3260 POKE V+12,60:POKE V+13,57 <1 61 > 

3270 POKE V+14,115:POKE V+15,87 <196> 

3280 POKE V+21,250 AND H OR 2:H=2S5 <215> 

3290 POKE 49391,72:POKE 55535,1:FOR T=1 TO 

80:NEXT:POKE 49431,72:POKE 55575,1 <135> 

3300 FOR T=1 TO 80:NEXT:POKE 49471,72:POKE 

55615,1 <001> 

3310 POKE V+31,0:POKE 171,0 <207> 

3320 GOTO 640 <048> 

3330 REM SPRITE NR.1 <109> 

3340 DATA 0,0,0,0,0,0,21,85,85,0,4,0,0,12, 

0,64,63,0,64,255,0,255,250,0,255,242 <000> 

3350 DATA 12B,64,242,192,64,240,192,0,63,1 

92,0,63,0,0,12,0,0,4,16,1,85,64,0 <254> 

3360 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0 <049> 

3370 REM SPRITE NR.2 <165> 

3380 DATA 0,0,0,0,0,0,170,170-, 168,0,32,0,0 

,48,0,0 <031> 

3390 DATA 252,2,0,255,2,0,95,255,1,79,255, 

3,79,2,3,15 <117> 

3400 DATA 2,3,252,0,0,252,0,0,48,0,8,32,0, 

2,170,128 <009> 

3410 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 <222> 

3420 REM SPRITE NR.3 <231> 

3430 DATA 0,0,0,0,0,0,0,0,0,8,8,0,6,54,0,3 <027> 
3440 DATA 107,64,10,237,176,26,170,152,13, 

154,96,58,235,128,170,166 <045> 

3450 DATA 144,118,110,180,43,170,104,6,150 

,174,3,174,153,9,169,184 <249> 

3460 DATA 3,74,164,0,1,144,0,0,144,0,0,0 

> 0 ,0,0 <237> 

3470 REM SPRITE NR.4 <041> 

3480 DATA 0,0,0,0,0,0,0,0,0,0,0,0 <008> 

3490 DATA 0,0,0,0,0,0,0,0,0,0,0,0 <018> 

3500 DATA 0,0,0,0,0,0,15,129,240,16,66,8 <104> 

3510 DATA 24,195,24,39,36,228,32,36,4,39,3 

6,228 <000> 

3520 DATA 34,36,68,45,165,180,37,36,164,32 

,36,4,63,231,252 <035> 

3530 REM DATAS ZEICHENSATZ <184> 

3540 DATA 255,127,31,0,0,0,0,0,255,255,252 

,60,0,0,0,0,255,255,63,7,7,7,3,3 <015> 

3550 DATA 255,255,251,240,240,240,224,224, 

255,255,127,31,15,7,0,0 <223> 

3560 DATA 255,255,254,252,248,224,128,0,25 

5,255,255,252,248,248,240,240 <218> 

3570 DATA 255,255,227,128,0,0,0,0,255,255, 

255,255,255,255,63,63 <212> 

3580 DATA 255,255,255,255,255,254,252,248, 

255,255,255,254,252,240,224,224 < 061> 

3590 DATA 255,254,248,0,0,0,0,0,3,3,3,1,1, 

1,0,0 <041> 

3600 DATA 224,224,192,128,128,128,0,0,240, 

224,192,192,192,128,128,0 <055> 

3610 DATA 63,31,31,15,15,7,7,7,248,240,224 

,224,192,192,192,192 <252> 

3620 DATA 7,7,3,1,0,0,0,0,192,192,128,128, 

0,0,0,0 <043> 

3630 DATA 255,255,255,255,255,255,255,255, 

224.240.248.252.252.254.254.255 < 254> 
3640 DATA 3,3,7,15,31,127,255,255,1,3,7,15 

,31,63,127,255 <161> 

3650 DATA 128,192,224,240,248,252,254,255, 

0,0,0,0,0,46,127,255 <210> 

3660 DATA 0,0,0,0,97,255,255,255,0,0,0,1,1 

43.255.255.255 <086> 
3670 DATA 0,0,0,192,252,255,255,255,0,0,0, 

0,112,252,255,255 <076> 

3680 DATA 0,0,0,0,0,96,255,255,0,0,0,0,0,0 

,194,255,0,0,0,0,0,0,131,255,,,,,,,,, <072> 
3690 DATA 0,0,0,0,7,63,255,'255,,,,,,,,7,7, 

7.15.31.63.255.255 <081> 
3700 DATA 224,224,248,254,255,255,255,255, 

0,0,0,1,3,3,7,7 <055> 

3710 DATA 0,0,224,248,252,254,254,255,3,3, 

3,3,3,7,7,7 <002> 

3720 DATA 192,192,192,192,224,224,224,224, 
0,0,0,0,1,1,3,3,0,0,0,0,128,192,192,1 
92 <146> 

Listing 1. Tödliches Dioxin (Fortsetzung). 


126 












C 64 


Geschicklichkeitsspiele 


3730 DATA 240,240,248,248,252,254,254,255, 

240.240.248.240.240.224.224.240 < 136 > 
3740 DATA 240,248,240,240,224,240,224,224, 

224.224.248.248.252.248.240.240 < 211> 
3750 DATA 3,7,15,15,15,7,15,15,15,15,31,63 

,31,15,7,7 <078> 

3760 DATA 24,60,60,62,126,126,126,255,1,3, 

7,7,15,15,31,63 <033> 

3770 DATA 128,192,192,224,224,240,248,252 <145> 

3780 DATA 63,63,127,127,127,127,255,255,25 

1.251.251.254.254.255.255.255 < 219 > 
3790 DATA 0,0,7,15,63,127,127,255,127,255, 

126.126.126.62.62.24 <115> 
3800 DATA 255,255,127,124,124,252,254,255, 

255.255.255.126.126.124.124.24 <091> 
3810 DATA 1,1,3,3,3,7,7,7,128,128,192,192, 

192,192,224,224 <216> 

3820 DATA 255,255,255,248,240,224,192,128 <004> 

3830 DATA 255,255,255,255,31,7,3,1,255,254 

,252,252,252,248,224,128 <078> 

3840 DATA 255,254,252,240,224,192,128,128 <219> 

3850 DATA 255,127,31,15,15,15,7,7,1,3,15,3 

1.63.127.127.255 <084> 
3860 DATA 1,3,3,7,15,31,63,255,1,7,15,15,6 

2,120,248,248 <139> 

3870 DATA 240,240,240,252,255,255,255,255 <029> 

3880 DATA 0,0,0,12B,240,240,240,240,240,24 

0,240,248,240,224,192,128 <219> 

3890 DATA 1,31,63,127,127,31,1,0,56,56,56, 

56,56,56,56,56 <250> 

3900 DATA 255,127,63,63,31,15,7,1,12B,192, 

240.240.248.254.254.255 <038> 
3910 DATA 254,254,254,126,126,126,126,255, 

248,248,240,224,0,0,0,0 <131> 

3920 DATA 0,0,16,255,255,255,240,240,0,0,0 

,255,255,255,32,0 <022> 

3930 DATA 0,0,48,249,255,255,48,0,0,0,224, 

248,252,252,8,0 <066> 

3940 DATA 0,0,31,63,63,63,0,0,1,7,143,255, 

255,255,0,0 <078> 

3950 DATA 126,126,126,126,126,126,126,0,12 

8,224,240,248,124,30,31,31 <097> 

3960 DATA 1,3,7,255,255,255,30,0,0,0,252,2 

55.255.127.63.255 <171> 

3970 DATA 60,66,153,161,161,153,66,60 <142> 

3980 DATA 60,60,102,102,126,126,102,0,120, 

124,102,124,126,103,126,0 <068> 

3990 DATA 60,126,102,96,102,126,60,0,124,1 

26,99,99,99,126,124,0 <238> 

4000 DATA 127,126,96,124,96,126,127,0,127, 

126,124,96,124,120,112,0 <235> 

4010 DATA 62,121,112,115,115,63,31,0,115,1 

15,115,127,127,115,115,0 <171> 

4020 DATA 0,0,0,0,0,0,0,0,28,28,28,28,28,2 

8,28,0 <005> 

4030 DATA 127,127,7,7,103,63,31,0,115,119, 

126,126,126,119,115,0 <042> 

4040 DATA 112,112,112,112,112,126,127,0,11 

9,127,107,107,107,99,119,0 <255> 

4050 DATA 103,115,123,127,127,119,115,0,62 

,127,119,119,119,127,62,0 <033> 

4060 DATA 126,127,115,127,126,112,112,0,62 

,127,99,111,111,127,62,0 <003> 

4070 DATA 126,127,115,127,124,126,119,0,63 

,126,96,62,3,63,126,0 <231> 

4080 DATA 127,127,93,28,28,28,28,0,119,119 

,119,119,127,127,28,0 <223> 

4090 DATA 119,119,50,58,58,28,8,0,119,99,1 

07,107,107,127,54,0 <118> 

4100 DATA 99,119,54,62,62,119,99,0,119,59, 

31,14,14,14,14,0 <095> 

4110 DATA 127,63,7,28,112,126,127,0 <180> 

4120 DATA 0,24,60,102,102,60,24,0 <092> 

4130 DATA 0,12,28,60,12,12,12,0 <126> 

4140 DATA 0,12,18,4,8,16,30,0,0,30,2,4,2,1 

8,30,0 <144> 

4150 DATA 0,16,16,16,20,30,4,0,0,30,16,28, 

2,2,28,0 <046> 

4160 DATA 0,12,18,16,28,18,12,0,0,30,1B,4, 

8,16,16,0 <081> 

4170 DATA 0,12,18,12,18,18,12,0,0,24,36,28 

,4,36,24,0 <120> 

4180 DATA 0,0,0,126,0,0,0,0,0,0,24,0,0,24, 

0,0,24,62,96,60,6,124,24,0 <116> 

4190 DATA 0,0,0,0,0,24,24,48,0,0,0,0,0.24, 

24,0 <247> 

4200 REM DATAS TEXT . <096> 

4210 DATA 110,103,102,101,88,106,97,103,32 


,89,106,109,102,103,111,32,109,102,91 <150> 
4220 DATA 32,101,88,106,99,109,107,32,89,1 

03,91,92 <048> 

4230 DATA 87,32,88,104,106,97,100,32,116,1 

24,123,120 <169> 

4240 DATA 107,90,95,111,97,92,106,97,94,99 

,92,97,108,107 <094> 

4250 DATA 94,106,88,91,126,32,116,32,103,9 

1,92,106,32,117 <027> 

4260 REM DATAS MASCHINENROUTINE <079> 

4270 DATA 120,169,22,141,20,3,169,112,141, 

21,3,169,8,133,2,169,240,141,26,208 <082> 

4280 DATA 88,96,169,240,141,26,208,198,2,2 

08,23,169,8,133,2,170,173,0,220,41 <094> 

4290 DATA 16,208,11,173,21,208,73,3,141,21 

,208,76,49,234,173,0,220,41,1,208 <143> 

4300 DATA 6,206,3,208,206,1,208,173,0,220, 

41,2,208,6,238,3,208,238,1,208,173 <043> 

4310 DATA 0,220,41,4,208,6,206,2,208,206,0 

,208,173,0,220,41,8,208,6,238,2,208 <249> 

4320 DATA 238,0,208,173,0,208,201,255,208, 

19,173,16,208,9,7,141,16,208,169 <119> 

4330 DATA 1,141,0,208,141,2,208,76,49,234, 

173,0,208,201,0,208,19,173,16,208 <085> 

4340 DATA 41,248,141,16,208,169,254,141,0, 

208,141,2,208,76,49,234,173,0,208 <10B> 

4350 DATA 197,167,176,16,173,1,208,197,168 

,144,9,173,16,208,197,169,208,2,230 <177> 

4360 DATA 170,173,31,208,41,3,240,2,133,17 

1,169,0,141,31,208,173,30,208,168 <028> 

4370 DATA 41,252,240,30,152,73,248,45,21,2 

08,141,21,208,173,200,195,201,124 <156> 

4380 DATA 208,9,169,114,141,200,195,238,19 

9,195,234,238,200,195,230,1B0,169 <220> 

4390 DATA 0,141,30,208,76,49,234,169,0,141 

,11,212,169,10,141,12,212,169,0,141 <244> 

4400 DATA 13,212,169,3,141,8,212,169,128,1 

41,7,212,169,129,141,11,212,169,15 <103> 

4410 DATA 141,24,212,96,169,255,141,20,212 

,169,127,141,24,212,169,9,141,19 <091> 

4420 DATA 212,169,55,141,15,212,169,33,141 

,14,212,96,169,5,141,134,196,169 <155> 

447™ DATA 81,141,135,196,169,84,141,136,19 

6,169,42,141,198,196,169,138,141 <101> 

4440 DATA 199,196,169,160,141,200,196,96,1 

69,21,141,134,196,169,85,141,135 <253> 

4450 DATA 196,141,136,196,169,170,141,198, 

196,141,199,196,169,168,141,200,196 <012> 

4460 DATA 96,169,83,162,0,157,158,195,232, 

228,181,208,248,169,10,162,0,157 <030> 

4470 DATA 158,219,232,224,10,208,248,169,7 

,162,0,157,168,219,232,224,11,208 <240> 

4480 DATA 248,169,5,162,0,157,179,219,232, 

224,13,208,248,234,162,0,160,1,189 <179> 

4490 DATA 1,114,157,153,195,152,157,153,21 

9,232,224,5,208,241,96,162,0,189 <15B> 

4500 DATA 8,114,157,193,195,232,224,6,208, 

245,162,0,165,247,141,199,195,165 <113> 

4510 DATA 248,141,200,195,169,115,162,0,15 

7,201,195,232,224,3,208,248,234,162 <088> 

4520 DATA 0,169,1,157,193,219,232,224,37,2 

08,248,162,0,189,16,114,157,205,195 <098> 

4530 DATA 232,224,11,208,245,165,250,141,2 

16,195,162,0,189,32,114,157,218,195 <253> 

4540 DATA 232,224,13,208,245,96,96,114,92, 

97,108,126,0,0,100,103,95,102,126 <252> 

4550 DATA 127,0,0,95,92,100,97,90,103,104, 

108,92,106,126,0,0,0,0,0,107,92,97 <141> 

4560 DATA 107,101,103,94,106,88,104,95,126 

,83,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 <136> 
4570 M="YSfT±mZ*^3 ±'kWkV" : POKE V+21,2:0 

=224:POKE V+16,0 <227> 

4580 POKE 56576,PEEK(56576)AND 252:POKE 53 

272,8:POKE 648,192 <150> 

4590 PRINT"<CLR>":FOR J=1 TO 6:PRINT:NEXT: 

POKE V+3,101 <09B> 

4600 FOR K=0 TO 18 <164> 

4610 POKE V+2,0 <216> 

4620 BS=LEFT*(A*,K> <058> 

4630 PRINT TAB(31—K);B$"{UP}" <074> 

4640 FOR L=1 TO 50:NEXT <038> 

4650 0=0-8:NEXT <054> 

4660 FOR T=1 TO 3 <019> 


Listing 1. Tödliches Dioxin (Fortsetzung). 

Bitte verwenden Sie zur Eingabe nur den Check¬ 
summer in diesem Heft. 
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VC 20 


4670 POKE 49570+T,PEEK(25000+T):PQKE 55714 
+T,14:FQR 1 = 1 TD 25.-NEXT 
4680 NEXT T 
4690 FOR E=1 TO 28 

4700 POKE 49638+E,PEEK<25003+E):POKE 55782 
+E,14sFOR 1=1 TO 25:NEXT 
4710 NEXT E 
4720 FOR Y=1 TO 12 

4730 POKE 49726+Y,PEEK(25031+Y):POKE 55870 
+Y,14:F0R 1=1 TO 25:NEXT 
4740 NEXT Y 
4750 FOR Y=1 TO 28 

4760 POKE 49838+Y,PEEK(25043+Y):POKE 55982 
+Y,14:FOR 1=1 TO 25:NEXT 
4770 NEXT Y 

4780 GET N*:IF N*=""THEN 4780 
4790 IF N*="1"THEN AB=230:G=15:RETURN 
4800 IF N*="2"THEN AB=220:G=8:RETURN 
4810 GOTO 4780 


<021 > 
<024> 

< 113> 

<240> 

< 190> 

< 168 > 

< 037> 
<124> 
<077> 

< 192> 

< 154> 

< 149> 

< 103 > 
<033> 
<059> 
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Listing 1. Tödliches Dioxin (Schluß). Bitte verwenden Sie 
zur Eingabe nur den Checksummer in diesem Heft. 


chend denJoystick nach links oder rechts bewegen. Um in 
den Fahrstuhl zu gelangen, muß man den roten Knopf betäti¬ 
gen, sobald der Spion vor demselben steht. Daraufhin ertönt 
ein Gong und die Figur ist im Lift verschwunden. Drücken Sie 
jetzt den Joystick nach Wunsch hoch oder runter. Jedesmal 
hört man ein Zischen, welches zur Orientierung dient. Jedes 
Zischen entspricht einem Stockwerk auf- oder abwärts. Damit 
das Männchen wieder aussteigt, ist nochmals der Feuer¬ 
knopf zu drücken. 

Möchte man in ein Zimmer gehen, muß vor der gewünsch¬ 
ten Tür ebenfalls wieder der rote Knopf betätigt werden. 


Zimmer 1,1. Etage: 

Dieser Raum ist am leichtesten »auszuräumen«. Daher kann 
er nur einmal in jedem Spiel betreten werden und ist nach dem 
Verlassen nicht mehr zugänglich. Es ist ratsam, möglichst 
viele »Einerpunkte« aufzusammeln. 

Punkte können nur mit dem Mittelteil des Männchens auf¬ 
genommen werden, sie müssen also auf Armhöhe liegen! 
Ansonsten bringen sie keinen Gewinn. 


Der Spion, 
der aus dem 
VC 20 kam .#« 


Zimmer 2,1. Etage: 

In diesem Raum läuft die Figur von selbst, wie im Treppen¬ 
haus. Man kann sie lediglich hoch oder runter bewegen. Im 
oberen Teil des Zimmers ist ein kleiner, querverlaufender 
Paternoster zu sehen. Dessen Richtung im oberen Teil kann 
durch Drücken des Feuerknopfes verändert werden. 

In diesen Paternoster muß man eventuell einsteigen, um die 
anderen Partien des Raumes zu erreichen und um dort dann 
die Punkte aufzulesen. Schließlich muß man auch versuchen, 
durch geschicktes Manipulieren den Raum wieder über die¬ 
sen Paternoster zu verlassen. 


In diesem spannenden Spiel für den 
VC 20 mit 16-KByte-Erweiterung haben 
Sie, der Spion im grünen Mantel, den 
geheimen Auftrag, gemäß Opera¬ 
tionsplan Alpha den Tresor der kyber¬ 
netischen Botschaft zu knacken und 
wichtige, sogar äußerst wichtige 
Unterlagen in Ihren Besitz zu bringen! 

Der Haken an der Sache ist, daß Sie bestimmte Vorbedin¬ 
gungen zu erfüllen haben, um zum Ziel zu gelangen. 

Aber selbst die Erfüllung dieser Bedingungen wird Ihnen 
durch bösartig gesonnene Botschaftsangehörige beträcht¬ 
lich erschwert, da diese nämlich darauf aus sind, Sie an Ihrem 
Vorhaben zu hindern. 

Und sollten Sie glauben, diesen Kleinigkeiten mühelos trot¬ 
zen zu können, so müssen Sie bedenken, daß Sie von Runde 
zu Runde immer schläfriger werden und damit zunehmend an 
Geschwindigkeit verlieren! 


Die Programmteile im einzelnen 


Treppenhaus (Spielbeginn): 

Ihre Figur (grün) bewegt sich im ganzen Treppenhaus allein 
hin und her. Um die Richtung zu ändern, muß man entspre- 
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Wichtiger Hinweis 

In Raum 1,1. Etage sowie in einigen anderen Räumen sieht 
man beim Betreten noch nicht sein grünes Männchen. Dieses 
wird erst erkennbar, sobald man den Joystick in eine mögli¬ 
che Richtung bewegt. 

In den »Paternosterräumen« kann es Vorkommen, daß 
einige Punkte für das Männchen nicht erreichbar sind, da sie 
nicht mit dem Mittelteil aufgenommen werden können. Um 
sich unnötige Mühen zu ersparen, kann man den entspre¬ 
chenden Raum noch einmal verlassen und sofort wieder 
betreten. Vielleicht ergibt sich dann eine günstigere Anord¬ 
nung der Punkte. 


Zimmer 3,2. Etage: 

Bevor Sie den Raum betreten können, müssen Sie eine 
Paternosterkaskade überwinden. Sie befinden sich in der 
unteren rechten Ecke, sind aber noch nicht sichtbar. Sie müs¬ 
sen zunächst in den ersten Fahrstuhl durch Hochdrücken des 
Joysticks einsteigen. Wenn jedoch der Fahrstuhl noch nicht 
ganz da war, haben Sie eine Figur verloren. 

Das Männchen bewegt sich mit dem jeweiligen Fahrstuhl 
selber fort. Man kann nach Belieben hoch und runter steigen, 
vorausgesetzt, man springt in ein leeres Feld. 

Falls man an einem der beiden Querenden angelangt sein 
sollte, wird man wieder in die untere rechte Ecke versetzt. 

Ziel ist es, am oberen rechten Rand auszusteigen. 

Hat man das geschafft, gelangt man in einen Raum, in dem 
man sich wie in Raum 1 auf der ersten Etage zu verhalten hat. 

Allerdings kann der Spieler diesen Raum beliebig oft be¬ 
treten. 









VC 20 


Geschicklichkeitsspiele 


Variable 

Bedeutung 

A$(T) 

Print-Höhe des Männchens 

A(T) 

Gegenstände 

B(O), A(O) 

Aufbewahrung der X- und Y-Position des Männchens im 
Fahrstuhl? 

D, G, H, T, U 

Zählvariablen 

DX(T), DY(T) 

Hoch und/oder seitwärts? 

E 

Schnelligkeit des Männchens , 

F 

Y-Wert in den Etagen 

1 

Schnelligkeit der Aufzüge 

K 

Schon in Ftaum 1 gewesen? 

M 

Tresor geknackt? 

N 

Fahrstuhl besetzt? 

0 

Anzahl der Männchen 

P.S 

Bildschirmanfang 

R+P 

Anfang des Farb-RAM 

V 

PEEK-Position des Männchens 

w 

Tür oder Stein? 

X(T). Y(T) 

X und Y positionieren 

Z 

Zufallszahlen 


Variablenliste zu »Spion« 


Vorprogramm 

Zeichenumdefinierung 

Verlegung der umdefinierten Zeichen in einen 
anderen Speicherbereich 

Verschiebung von Basic-Beginn und Bild 

Hauptprogramm 


140 - 

270 

Maschinenspracheroutinen Joystick; Paternoster 

280 - 

350 

Variablendefinierung 

360 - 

480 

Bewegungen im Treppenhaus 

490 - 

610 

Wiederherstellung der Etagen 

620 - 

750 

Figur malen 

760 - 

800 

Aufzug hoch und runter 

810 - 
910 - 

900 

Aufzug fährt (Zischen und Gong) 

980 

Welcher Raum? 

990 - 

1960 

Malen der Ftäume 

1970 - 

2240 

Bewegungen in Raum 1, 3 und 5 

2250 - 

2420 

Auf einen Stein gestoßen? 

2430 - 

2460 

Malen der Figur 

2490 - 

2510 

Einen Punkt erwischt? 

2520 - 

2550 

Lift außer Betrieb ? (Ton) 

2560 - 

2580 

Bereit zum Tresorknacken? 

2590 - 

2660 

Tresor geknackt? (Anzeige) 

2670 - 

2700 

Männchen tot 

2710 - 

2980 

Im Paternoster 

2990 - 

Ende 

In den Räumen 2 und 4 





Programmabschnitte von »Spion« 


Zimmer 4,2. Etage: 

In diesem Zimmer hat man sich genauso wie in Raum 2 auf 
der 1. Etage zu verhalten. 


Zimmer 5,3. Etage: 

Um in diesen Raum, den Tresorraum, zu gelangen, braucht 
man den Schlüssel. Wenn man diesen besitzt, muß man 
zunächst nochmals eine Paternosterkaskade, wie bei Raum 
3, 2. Etage, überwinden. Hat man dies geschafft, betritt man 
den Tresorraum. Nun muß der Spieler zum grünen Tresor lau¬ 
fen. Steht er unmittelbar unter diesem, öffnet er sich, falls man 
im Besitz der Identitycard und der Codenummer ist. Anson¬ 
sten wird entweder der elektrische Fußboden eingeschaltet 
oder der Tresor bleibt verschlossen. 

Hat man den Tresor jedoch geknackt, so soll man die Bot¬ 
schaft, wie angezeigt, verlassen. Dazu ist es nötig, mit dem 
Fahrstuhl wieder ganz unten im Treppenhaus zu sein. 

Hat man diese Aufgabe noch nicht erledigt, so muß man 
noch die entsprechend benötigten Gegenstände aufsam¬ 
meln. 

Nachdem man es einmal geschafft hat, den Tresor zu leeren 
und unversehrt die Botschaft zu verlassen, steigert sich der 
Schwierigkeitsgrad. Nun tauchen zwei Verfolger auf, wäh¬ 
rend die Eigengeschwindigkeit um zwei E(inheiten) sinkt. 

Bei jedem weiteren Erfolg setzt die Reduzierung fort. 

Die Gegenstände, die man durch das Aufsammeln ange¬ 
häuft hat, werden am unteren Bildrand des Treppenhauses 
angezeigt. 


Mögliche Gegenstände sind: 

1. Der Turnschuh — mit diesem wird man um eine Einheit (E) 
schneller (nur in den Räumen)! 

2. Der Schlüssel — dieser ist notwendig, um in den Tresor¬ 
raum zu gelangen. 

3. Die Identitycard — diese braucht man, um den elektri¬ 
schen Fußboden im Tresorraum auszuschalten. 

4. Die Brille — wenn man diese besitzt, wird man von den Ver¬ 
folgern im Treppenhaus nicht mehr bemerkt. 

5. Der Schraubenschlüssel — sobald man diesen besitzt, 
kann man im Treppenhaus den Fahrstuhl für die Verfolger 
außer Betrieb setzen. Man muß dazu in den 3. Stock fah¬ 
ren und dort vor das rote E-Kästchen (Elevator) laufen, um 
dann den Feuerknopf zu drücken. Daraufhin hört man ein 
Knacksen und der Fahrstuhl ist für die Verfolger nicht mehr 
in Betrieb. Man kann ihn aber durch Wiederholung der glei¬ 
chen Prozedur wieder in Betrieb setzen. 

6. Die Codenummer — diese braucht der Spieler, damit sich 
der Tresor auch öffnen läßt. 

Nicht bei jedem Aufsammeln eines Punktes erhält man 

auch einen Gegenstand. 


Laden und starten des Spiels 


Wenn man den ersten Programmteil (Listing 1) abgetippt 
hat, so sollte man ihn vor dem Überprüfen erst abspeichern! 
Das Programm löscht sich nämlich nach Ablauf von selbst! 
Bevor man jedoch den zweiten Teil eintippt, muß der erste 
Programmteil abgelaufen sein, da er die Basic-Grenze sowie 
den Bildschirm im Speicher verlegt. Daher höchste Vorsicht, 
sonst war der viele Mühe Last umsonst. 

Wenn man das Programm lädt, dann zuerst den Vorspann 
laden (Listing 1) und nach dessen Ablauf (READY-Meldung) 
das Hauptprogramm (Listing 2). 

aas? 


100 REM*SPI0N*AXEL*8LAU* <144> 

110 REM*HEMMERDENERW.14* <194> 

120 REM* GV 2 * <230> 

130 PRINT CHRS(147)"CDOWN,SPACE,BLACK>N<WH 
ITE >U{RED JR{SPACE,CYAN >G{PURPLE JE{GREE 
NJD{BLUEJU{YELLOW>L{WHITEJD":PQKE 3687 
9,238 <004> 

140 POKE 3687B,13:FOR T=0 TO 767:Z=PEEK(32 

768+T):POKE 716B+T,Z:NEXT <080> 

150 FOR T=0 TO 615:READ Z7.:P0KE 7168+T,Z7.: 

A=A+Z%:POKE 36875,Z7.:NEXT:POKE 36878,0 <046> 
160 IF A<>70723 THEN PRINT"{CLRJDATA FEHLE 

R!“:END <220> 

170 DATA 3,7,15,24,9,15,6,3,192,224,240,24 
,144,240,96,192,7,25,61,55,118,111,126 
,63 <109> 

180 DATA 224,152,188,236,238,246,254,252,2 

6,27,22,31,30,31,30,15 <156> 

190 DATA 216,216,232,248,248,248,248,240,3 
,7,15,31,8,12,6,3,192,224,240,248,16,4 
8,96,192 <115> 

200 DATA 15,31,63,63,127,123,127,63,240,24 

Listing 1. Zeichendefinition zu »Spion«. Bitte verwenden 
Sie zur Eingabe nur den Checksummer VC 20 in diesem 
Heft. 
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Geschicklichkeitsspiele 


VC 20 






8,252,252,254,222,254,252 <235> 

210 DATA 47,31,31,31,31,30,29,15,244,248,2 
4®,248,248,120,184,240,1,7,15,24,9,15, 

6,1 <044> 

220 DATA 224,240,24B,192,224,240,224,192,7 

,2,3,3,6,7,15,14 <184> 

230 DATA 224,224,192,224,224,112,112,240,1 

3,13,14,15,15,15,11,7 <148> 

240 DATA 240,160,96,224,224,240,240,224,7, 

15.31.3.7.15.7.3.128.224.240.24.144.24 

0,96,128 <177> 

250 DATA 7,7,3,7,7,14,14,15,224,64,192,192 

240, U2, 15,5,6,7,7,15,15,7 <231> 

260 DATA 176,176,112,240,240,240,208,224,3 

,7,7,15,13,15,7,3 <036> 

270 DATA 192,224,224,240,176,240,224,192,3 

,7,7,15,15,15,7,3 <231> 

280 DATA 192,224,224,240,240,240,224,192,3 

»7,7,7,11,31,31,11 <172> 

290 DATA 128,192,192,224,224,224,192,128,1 

^» 3 »7,7,7,3,1,9,9,8,12,15, , , <02B> 

300 DATA,,,,,,,,248,24,8,200,8,8,136,8,192 
,224,224,224,208,24B,248,208,B,200,8,2 
4,248,,, <155> 

310 DATA 255,255,240,192,192,192,192,192,2 

55,255,15,3,3,3,3,3 < 045 > 

320 DATA 128,128,128,128,128,128,128,128,3 

,3,0,3,3,3,3,3,51,51,51,3,3,3,3,3 <164 > 

330 DATA 255,255,192,192,192,192,192,192,2 

55,255,128,128,128,128,128,128 <146> 

340 DATA 191,179,179,179,191,191,191,191,1 

92,192,192,192,192,192,192,192 <185> 

350 DATA 179,179,179,191,179,179,179,191,1 

92,192,192,192,192,192,255,255 <017> 

360 DATA 128,128,128,128,128,128,255,255,1 

91,191,191,191,191,191,191,191 <125> 

370 DATA 127,254,194,254,130,255,195,254,2 

52,14,78,234,170,26,90,174 <069> 

380 DATA 166,182,174,167,254,255,127,,174, 

74,10,250,14,254,252, <040> 

390 DATA,,,,28,62,119,99,96,96,96,96,96,96 

,96,96,56,124,238,206,238,198,124,56 <024> 

400 DATA 15,12,8,9,9,9,9,9,24,36,4,3,4,4,2 

,1,48,72,4,156,98,98,100,152 <253> 

410 DATA,36,66,66,66,102,60,24,24,24,60,36 

,102,102,36,24,,15,28,24,16,24,31,15 <108> 

420 DATA,192,176,46,11,7,255,254,1,3,7,15, 
31,63,127,255,255,255,255,255,255,126, 

126,60 <194> 

430 DATA 128,192,224,240,248,252,254,255,, 

24.60.102.102.126.60.24 <253> 
440 DATA 40,24,56,40,56,40,48,24,255,224,1 

92,159,176,160,160,160,255,7,3,249,13, 

5,5,5 < 184 > 

450 DATA 160,160,160,162,161,161,161,162,5 

,5,5,69,133,133,133,69 <061> 

460 DATA 160,160,160,160,176,159,192,255,5 

,5,5,5,13,249,3,255 <218> 

470 DATA 248,248,248,248,248,248,248,248,, 

255,255,255,255,255,255, <138> 

480 DATA 247,247,247,,223,223,223, <204> 

490 POKE 36869,208:POKE 648,20:PRINT CHRS< 

147) <053> 

500 FOR T=0 TO 615:Z=PEEK(7168+T):POKE 409 

6 +T,Z:NEXT <249> 

510 FOR T=4712 TO 5119:POKE T,234:NEXT <096> 

520 POKE 44,22:POKE 5632,0:NEW <129> 

Listing 1. Zeichendefinition zu »Spion« (Schluß). 

Bitte verwenden Sie zur Eingabe nur den Checksummer 
VC 20 in diesem Heft. 


100 REM*SPION*AXEL*BLAU* 

110 REM*HEMMERDENERWEG 14* 

120 REM* GV2 * 

130 DATA 169,127,141,34,145,173,32,145,41, 
128,133,251,169,255,141,34 
140 DATA 145,173,31,145,41,28,24,101,251,1 
33,251,173,31,145,41,32 
150 DATA 133,252,96 

160 FOR T=828 TO 862:READ A:POKE T,A:NEXT: 
E=5 

170 DIM AS(20):Ai(0)="(HOMEJ":FOR T=1 TO 2 
0: AS <T> =AS (T-l > +•' (DOWN>": NEXT: 0=4: D=1 
180 POKE 36869,220:POKE 36879,8:X(0)=18:Y( 
0)=18:DX<0)=1:X<1) =4:X(2)=12:Y<1)=8:C= 
0: N=0 


< 144> 
<235> 
<230> 

<253> 

< 100 > 

<095> 

<215> 

< 196> 

<019> 


190 Y(2)=13:SN=36B77:P=5120:R=32768:SL=368 

78:DX(1)=1:DX(2)=-l:DX <3> =-l:DY(0> = 1 <239> 

200 Y(3) =3: X (3) =9: S=5120 
210 SM=36875:POKE SL,11:G0SUB 860:FOR T=1 

X <T)<4 OR X(T> >18 THEN X(T)=15 <076> 


220 NEXT 
230 SYS 828 

240 IF PEEK <252)=0 THEN GOTO 590 
250 IF C=1 THEN 630 

260 IF PEEK(251)=28 THEN DX(0)=1:GOTO 280 
270 IF PEEK <251) = 140 THEN DX<0>=-l:GOTO 28 

0 

280 IF X <0> >17 THEN DX<0)=-l:GOTO 300 
290 IF X <0X4 THEN DX<0)=1 
300 X<0)=X<0)+DX <0):F=Y <0>:GOSUB 490 
310 FOR T=1 TO D:IF X<T><4 OR X<T)>17 THEN 
DX <T)=—DX <T) 

320 IF X <1)=14 AND Y<1)<>Y<0)THEN GOSUB 72 
0 

330 X <T)=X <T)+DX <T):F=Y <T):GOSUB 530 
340 IF X <T> =X <0)AND Y<T)=Y<0)AND A<4>=0 TH 
EN 2320 

350 NEXT:GOTO 230 

360 PRINT AS<3>"(RED,5SPACE,CYAN>,*(3SPACE 
,RED>8!(2SPACE,BLUE>,&-(3SPACE,WHITE J±. 


<230> 

<075> 

< 145> 
<042> 

< 187> 

<125> 

<253> 

< 113> 
<056> 

< 180> 

<003> 

<207> 

<093> 

<253> 


<054> 

370 PRINT"(RED,5SPACE,CYAN},<(3SPACE,RED>+- 

#(2SPACE,BLUE J,(3SPACE, WH I TE J A." <127> 

380 PRINT"(YELLOW,SPACE T5(3SPACE,CYAN J,'(7 
SPACE , BLUE >. /0 (3SPACE, WH ITE >A.(2DOWN > " : 

RETURN <038> 

390 PRINT AS<8>"(YELLOW,SPACEJ6(WHITEJA. (2S 
PACE,CYAN>,•(3SPACEJ,*(2SPACE,BLUE>,&— 
(3SPACE, WHITE JA." <196> 

400 PRINT" (YELLOW,SPACE>6(WHITE JA.(2SPACE,C 
YAN>, < (3SPACE>, <(2SPACE,BLUE>,8<-(3SPAC 
E.WHITEJA." <085> 

410 PRINT" (YELLOW,SPACE>6(WHITE J A.T2SPACE,C 
YAN>, '(3SPACEJ, ’(2SPACE,BLUE >./0(3SPAC 
E, WHITEJ A.12D0WN J": RETURN <243> 

420 PRINT AS<13) "(YELLOW,SPACEJ6(WHITEJA.(2 
SPACE , CYAN J , • (3SPACE > , ' (2SPACE , BLUE J , S< 

* - (3SPACE, WH I TE > L." <054> 

430 PRINT"(YELLOW,SPACE>6(WHITE JA.(2SPACE,C 
YANJ, <(3SPACE>,< C2SPACE,BLUEJ , (3SPAC 
E.WHITEJA." <115> 

440 PRINT"(YELLOW,SPACE>6(WHITE J A.T2SPACE,C 
YANJ,-(3SPACE}, •(2SPACE,BLUE >./0(3SPAC 
E,WHITEJA. (2D0WNJ":RETURN <017> 

450 PRINT AS <1B)"(YELLOW.SPACE>6(GREENJLLL 

- l . L . L . L - L .l.l. L . l -.(CYftN J . (GREEN > L L L t " <145> 

460 PRINT"(YELLOW.SPACE>6(GREENJ LLLLLLLLLL 

Ü(CYAN >,&-(GREEN JJJOi" <113> 

470 PRINT"(YELLOW,SPACE>6(GREEN1 LLLILLLLLL 

AXICYANJ. /0(GREENJ .L-L.L.L " <125> 

480 RETURN <028> 

490 GOSUB 580:ON F+l GOSUB 360,390,420,450 <095> 

500 IF DX <0)=—1 THEN 520 <031> 

510 PRINT AS <Y <0))TAB <X <0>)"(WHITEJRS12LEF 
T,DOWN,GREEN JTU(2LEFT,DOWN JVW":POKE SN 
,254:POKE SN,0:RETURN <151> 

520 PRINT AS < Y <0>)TAB < X <0>)"(WHITE JLM(2LEF 
T,DOWN,GREEN JNO(2LEFT,DOWN JPQ":POKE SN 
,254:POKE SN,0:RETURN <106> 

530 GOSUB 580:IF Y<T)=Y<0)AND C=0 THEN 550 <196> 
540 ON F+l GOSUB 360,390,420,450 <061> 

550 IF DX <T)=—1 THEN 570 <252> 

560 PRINT AS <Y <T))TAB <X <T))"(WHITEJ t"CHRS < 

34):PRINT TAB<X <T))"(REDJTU(2LEFT,DOWN 
JVW":RETURN <120> 

570 PRINT AS <Y <T)> TAB <X <T))"(WHITEJ£I(2LEF 

T,DOWN,RED JNO(2LEFT,DOWN JPQ":RETURN < 059> 
580 F=<F-3)/5:RETURN <212> 

590 IF X <0> =5 AND Y<0)<17 THEN 780 <121> 

600 IF X <0)=14 AND N=0 THEN 680 <013> 

610 IF X<0)=10 AND Y <0> <17 THEN 820 <10B> 

620 GOTO 250 <128> 

630 POKE SL,5 <008> 

640 IF Y <0)=18 AND M=1 THEN 2300 <022> 

650 IF PEEK<251)=152 AND Y<0)>7 THEN Y<0)= 

Y <0)—5:POKE SN,253:FOR T=0 TO 90:NEXT: 

POKE SN,0 <222> 

660 IF PEEK<251)=148 AND Y<0)<14 THEN Y<0> 

=Y <0)+5:POKE SN,253:F0R T=0 TO 90:NEXT 
. :POKE_SN,0 <197> 

Listing 2. »Spion« Hauptprogramm. Bitte verwenden Sie 
zur Eingabe nur den Checksummer VC 20 in diesem Heft. 
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VC 20 


Geschicklichkeitsspiele 


GOTO 310 <122> 

GOSÜB 770 <020> 

XF C=1 THEN 710 <100> 

GOSUB 750:GOTO 250 <182> 

C=0:POKE SN,11:GOTO 250 <097> 

IF N=1 THEN RETURN <245> 

GOSUB 770:GOSUB 750:C=0:POKE SN,253:Y( 

T > =Y <0):DX(1)=DX(0) <152> 

FOR G=0 TO 90:NEXT:POKE SN,0:GOSUB 770 
:RETURN <010> 

PRINT A$ (3) TAB (14) " tBLUE>,StC2LEFT,DOWN 
J,& C2LEFT,DOWN>./C2LEFT,3D0WN>,& C2LEFT 
, DOWN } , 8< C2LEFT, DOWN }. / C2LEFT, 3D0WN }, S< C 
2LEFT,DOWN >,& C2LEFT,DOWN >./C2LEFT,3D0W 
N, CY AN >, Sc C2LEFT , DOWN }, 8< C2LEFT, DOWN }"; 

PRINT"./":C=1:RETURN 

770 POKE SM,190:FOR G=U TO 0 STEP-1:POKE 
SL,G:FOR H=0 TO 20:NEXT:NEXT:POKE SM,0 
:POKE SL,11:RETURN 

F=Y(0):GOSUB 580:F=F+1:IF F=1 AND A(2) 

=1 THEN GOSUB 1490:GOTO 1620 
IF F=2 THEN GOSUB 1380:GOTO 1620 
IF F=3 THEN GOSUB 1150:GOTO 1620 
GOTO 250 

F=Y<0>:GOSUB 580:F=F+1:IF F=1 AND A(5) 

=1 THEN GOSUB 2170:GOTO 250 
IF F=2 THEN GOSUB 1260:GOTO 1620 
IF F=3 THEN GOSUB 1380:GOTO 1620 
GOTO 250 

IF A(l)=1 AND E<6 THEN E=E+1 
PR I NT " <CLR, RED, 2SPACE >7 WHHHWWWWWa 

PRINT" 

PR I NT " CUP, WH ITE, 5SPACE, CYAN >S7. C7SPACE, 

BLUE})*+ C3SPACE, WH ITE>i." 

PRINT"CRED,5SPACE,CYAN >, 1 C3SPACE,RED >8 
! I2SPACE, BLUE >, 8c- C3SPACE, WH I TE }J," 

PRINT" CRED,5SPACE,CYAN>, ( C3SPACE,RED>«- 
# C2SPACE, BLUE > , 8<- C3SPACE, WH I TE >i." 

PRINT"CYELLOW,SPACE >5 C3SPACE,CYAN },*C7 
SPACE,BLUE>./0 C3SPACE, WH I TE } .L" 

PRINT" CYELLOW,SPACE>6CWHITET.i.l.L.L.L.L.L .L .LL 

LLLLILLH. " 

PRINT“ CYELLOW ,SPACE>6CWHITE> L.C2SPACE,C 
YAN }S7. C3SPACEIS7. C2SPACE,BLUE}> *+ C3SPAC 
E,WHITE>i." 

PRINT" CYELLOW , SPACE>6 CWHITE> L.C2SPACE , C 
YAN>,•C3SPACE}, 'C2SPACE,BLUE>, Sc-C3SPAC 
E,WHITEIL" 

PR I NT " CYELLOW, SPACE >6 CWHI TE >i.C2SPACE, C 


670 

680 

690 

700 

710 

720 

730 

740 

750 


760 


780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 


950 


960 


<074> 

<004> 


<213> 

< 155> 
<097> 

< 170> 
<064 > 

< 125> 

< 127> 

< 179> 

< 104> 
<134> 

<207> 

< 137> 

< 151 > 

< 190> 

< 159 > 
<030> 
<090> 


<040> 


< 107> 


YAN > , ( C3SPACE > , ( C2SPACE , BLUE > , Sc- C3SPAC 
E,WHITE>i.“ 

970 PRINT"CYELLOW,SPACE>6CWHITE>i.C2SPACE,C 
YAN>,'C3SPACEJ,'C2SPACE,BLUE>./0C3SPAC 
E,WHITE>i." 

980 PRINT"CYELLOW,SPACE>6CWHITE>UJJJOJJOO 

L.L.L.L.L.L.L.L.L" 

990 PRINT" CYELLOW, SPACE J6 CWHI TE IA.C2SPACE, C 
YAN }*X C3SPACE > SV. C2SPACE , BLUE > > *+ C3SPAC 
E,WHITE>i." 

1000 PRINT“CYELLOW,SPACE >6 CWHITE JLC2SPACE, 
CYAN} , ' C3SPACEJ, ' C2SPACE, BLUE},Sc— C3SP 
ACE , WH I TE }i." 

1010 PRINT"CYELLOW,SPACE}6CWHITE}i.C2SPACE, 
CY AN } , ( C3SPACE }, ( C2SPACE, BLUE }, Sc- C3SP 
ACE, WHITE }i." 

1020 PR I NT “ CYELLOW, SPACE }6 CWH I TE } A.C2SPACE, 
CYAN},'C3SPACE},’C2SPACE,BLUE}./0 C3SP 
ACE, WHITE }0" 

1030 PRINT"CYELLOW, 

LLLLLLLL L.L " 

1040 PRINT" CYELLOW,SPACE}6CGREEN}UJJJJJJO. 

JOOCCYAN }) *+ CGREEN }ÜO-k" 

1050 PR I NT " CYELLOW , SP ACE } 6 CGREEN } JJJJJJJJO, 
iJO.CC YAN }, Sc- CGREEN } L.L.L.L" 

1060 PRINT" CYELLOW,SPACE}6CGREEN}.L.UO.L.UOO- 
LLLCCYAN} , Sc- CGREENT.l.l.l.l." 

1070 PRINT" CYELLOW,SPACE}6CGREEN}.C.L.L.L.l.L.L.l.L. 

LLLCCYAN}. /0 CGREEN TÜLL" 

1080 IF A d)=1 THEN PRINT A*(20)"CRIGHT.2D 
OWN,WHITE}=>"; 

1090 IF A(2)=1 THEN PRINT A*(20)SPC(5)"CDO 
WN,CYAN T2CD0WN,LEFT}£"; 

1100 IF A(3)=1 THEN PRINT A$(20)SPC(8)"CDO 
WN,BLUE}12 C2LEFT,DOWN}34"; 

1110 IF A(4)=1 THEN PRINT A*(20)SPC(12)"C2 
DOWN,GREEN}9:"; 

1120 IF A(5)=1 THEN PRINT A* (20) SPC (16) " CD 


< 137> 


< 134> 


< 140> 


<090> 


< 157> 


<187> 


< 184> 


< 192> 


< 139> 


< 197> 


<207> 


<219> 


<190> 


<006> 


< 125> 


< 197> 


OWN,YELLOW};CLEFT,DOWN}<"; <190> 

1130 IF A(6)=1 THEN PRINT A*(20)SPC(19)"C2 
DOWN,RED}7"; 

1140 RETURN 

1150 PR I NT “ CCLR , WH I TE } .t.L.LUL.L.L.L.L.L.L.L.L.L.L.L.L.L.L.L. 

L L L C9SPACE}.LC10SPACE}.LLC9SPACE}.LC18SP 

ACEIi." ; 

1160 PRINT"i.C9SPACE}i.C 10SPACEIÜC6SPACE}i.C 
2SPACE }±.C7SPACE }i.C2SPACE }JL"; 

1170 PRINT"0C2SPACE,GREEN}7 CWHITE,3SPACE}£ 
C2SPACE TOCSPACE, RED }7 CWH ITE, 5SPACE }£C 
2SPACE }JO.C6SPACE }0C2SPACE }i.C7SPACE }£C 
2SPACEIA."; 

1180 PRINT" UJJO.CCYAN }JU!.CWHITE}i.C2SPACE }JO. 
A.C2SPACE } C2SPACE }JO.C 14SPACE, CYAN } 

£ CWH I TE, 5SP ACE }i." ; 

1190 PRINT" A.C9SPACE,YELLOW}7CWHITE,4SPACE, 

CYAN}£CWHITE,5SPACE}JO.C14SPACE,CYAN}£ 
CWHITE,5SPACE}i."5 

1200 PR I NT " OC2SPACE }UOJO.CC YAN }j!JLCWHI TE }JO. 
i-lJ.-l-L C4SPACEIJQ.Cl 5SPACE }£C4SPACE }£"; 

1210 PR I NT " i.C 15SPACE}£C4SPACE}JO.C15SPACE}£ 
C4SPACEIA."; 

1220 PRINT"UJO.C2SPACE}UJJJJO.CCYAN}JLÜ.CWHI 
TF} L L C2SPACE} .l-LL-L C5SPACE ,CYAN}£CWHITE 
,5SPACE}i.C8SPACE}U'; 

1230 PRINT"£C5SPACE,CYAN)£CWHITE,5SPACEIOC 
8SPACE TÜC5SPACE , CYAN }£CWH I TE , 2SPACE , 
PURPLE }7 CWH ITE, 2SPACE} L.C8SPACE} L." ; 

1240 PRINT"0C5SPACE}OC8SPACEIOC5SPACEIU.C5 
SPACE}OC8SPACE}i.C5SPACE}L"; 

1250 PRINT"0C5SPACE}i.C8SPACEU.C5SPACEIUO.C 
7RPA1-.F} l i L L L i L L.L.LL-L-L-LLLL": : POKE 5625, 

76:RETURN 

1260 PRINT" CCLR,WHITEIUJJJJJJJJJJJJJJJJJO. 
-Li-LC8SPACE}.LC11SPACEIU 1 ; 

1270 PR I NT "OCSPACE, RED }7 CWH I TE, 6SPACE }i.C6S 
PACE, BLUE }7 CWH I TE , 4SP ACE IU.CBSP ACE }£C 
11SPACEIO"; 

1280 PR I NT " OC3SPACE TUO.C2SPACE IUO.CCYAN }J!A 
CWH I TE } JOJOOC2SP ACE } JO.C3SPACE } i.C 16SPA 
CE}£"; 

1290 r-. UNT " i.CCYAN}JSJLCWH I TE TÜCSPACE, YELLOW 
}7 CWH ITE, 14SPACE }JO.C20SPACE }L."; 

1300 PRINT"OCBSPACE}i.CCYAN}JULCWHITE}UO.C2S 

1310 PRI NT " OC2SP ACE TUJO.CC Y AN } JUS.CWH I TE } OC1 
1 SPACE }U.C20SPACE}O"; 

1320 PRI NT "OCH SPACE }L. CBSPACE }U.C 11 SPACE iL 
CCYANTJÜCWHITEIUJJJJO."; 

1330 PRINT" 1-L.LL C2SPACE} .IL.LL. C11SPACETU.C5SP 
ACE, CY AN }£CWH I TE , 2SPACE }i.C9SP ACE , PURP 
LE}7 CWHITE, SPACE }i." j 

1340 PRINT“0C5SPACE,CYAN}£CWHITE,2SPACE}OC 
11SPACETU.C5SPACE,CYAN)£CWHITE,2SPACE 
TOC5SPACEIOC2SPACEIUJO."; 

1350 PRINT"OC2SPACE} .LLLL C2SPACE}QC2SPACE}Q 
Li.i C5SPACE }.LLC5SPACE }QC14SPACE }Q" ; 

1360 PR I NT " OC5SPACE }i.C 10SPACE , CYAN }7 CWH I TE 
, 3SPACE IÜ.C5SPACE } A.C 14SPACE )i." 5 

1370 PR T NT " L L C7RPACF > UOUUOJOUOOUOO. " S : P 
OKE 5625,76:RETURN 
PRINT" CCLR,WHITE}UJJJJJJOOU 


< 000 > 
< 182> 


<041 > 


<140> 


< 134> 


<099> 


< 176> 


<091 > 


<253> 


< 104> 


< 119> 


< 220 > 


<086> 


< 1B3> 


< 1B3> 


< 131 > 


< 142> 


<014> 


<179> 


<072> 


<055> 


< 176> 


< 135> 


<205> 




<061 > 


. L L L l L L L 


1380 

UOC5SPACEI0C6SPACEI0C7SPACE } 0"; 

1390 PRINT"0C5SPACE}A.C6SPACE}i.C7SPACE}U.C3 
SPACE,RED}7 CWHITE,SPACE TOCSPACE,CYAN} 
7 CWHITE,9SPACE,PURPLE}7 CWHITE,2SPACE} 
L"; 

1400 PR I NT "OC5SPACEIOC14SPACE }JO.C5SPACE}i.C 
14SPACEIA."; 

1410 PRINT"0C2SPACEIUJJJJJO.CCYAN}JUS.CWHITE 
} UJJJO.C2SPACE } JO.C 12SPACE }i.C7SPACE }0" 

1420 PRINT"oc12SPACE}0C2SPACE,BLUE}7CWHITE 
,4SPACE}JO.C 12SPACE)0C7SPACE}O”; 

1430 PRINT"OC2SPACE}0C2SPACE}JJJJJJJO.<2SPA 
CE } JJOJJJO.C2SPACE }J.C 17SPACE }J=." 5 
1440 PRINT"0C2SPACE}J=.C6SPACE,GREEN}7 CWHITE 
, 10SPACE IU.C2SPACE IOC 17SPACE }.L" ; 

1450 PRINT"0C2SPACEIU.CCYAN}JSJLCWHITE}UOOO 


<227> 


<016> 


< 1B9> 


<03B> 

<233> 

<243> 

< 189> 

<046> 

<203> 










1460 PRINT"J i C20SPACE}JO.C20SPACE}i."; 

1470 PR TNT" L i L L L. C25PACE}.LC2SPACE}l.i.L.LU.U.l. 
C2SPACE TU.C6SPACE TOC6SPACE TOC6SPACE } i. 

Listing 2. »Spion« Hauptprogramm (Fortsetzung). Bitte 
verwenden Sie zur Eingabe nur den Checksummer VC 20 
in diesem Heft. 
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Geschicklichkeitsspiele 


VC 20 


J,C6SPACEJi.t6SPACEJi. 7C4SPACEJ.L." ; <l 00 > 

1480 PRINT"i.C6SPACEJi.C6SPACE>A.C6SPACEULI r 
2SPACE> L. L.L.L.L.L.L.L U-.L L L L L L L " - - POKE 5625 , 

76:RETURN <062> 

1490 PRINT" CCLR , WHI TE J J-J-J-J-_L.L L L L L L L L L I ■ ■ ■ ■ . 
üi.C4SPACE JiCSSPACE > i.C5SPACE Ji.C3SPACE 

< 181 > 

1500 PRINT" CCLR.WHITEJ .L-LLI.LII.LLLLLLI 1 , im 
•LLL.C4SPACE Ji.C5SPACE Ji.C5SPACE Ji.C3SPACE 

<191> 

1510 PRINT"i.£20SPACEJü.C20SPACEJi."; <253> 

1520 PR I NT "i.C7SPACE J.L.C5SPACE >.L C6SPAnFJ L L L I 
ii.C2SPACE JÜÜ.C2SPACE JÜÜ.C2SPACE J L L L 
“l <255> 

1530 PR I NT “i.112SPACE , CYAN JiCWH I TE , 7SPACE Ji. 

i.{ 12SPACE, CYAN Ji CWHITE, 7SPACE Ji."; < 181 > 

1540 PR INT "i.C 12SPACE, CYAN JiCWH I TE , 7SPACE Ji. 

i.£2SPACEJi."; 

1550 PRINT"i.{2SPACEJi.£ 17SPACE JÜ.C2SPACE} L £ 
17SPACE>i."s 

1560 PR I NT " i.C2SPACE Ji.t 17SPACE JÜ.C2SPACE Ji.t 

1570 PR I NT " i.C2SPACE 3i.I4SPACE Ji.I4SPACEJi.ICY 
AN J£&tWH I TE JJJ< Y C2SPACE JÜ.C2SPACE 3 t C4S 
PACE J i.C4SP ACE JJ, CC Y AN J££ CWH I TE Ji. CBLUE 3 
BC <WH I TE, 2SPACE Ji." ; 

1580 PRINT"i.C2SPACE Ji.C4SPACE 3i.C4SPACEJi.tCY 
ANJJÜ CWHITEJitBLUEJDECWHITE,2SPACEJÜ. 
C2SPACE 3iü.C2SPACE 3iüC2SPACE J U- LIL L t 
2SPACE Ji."; 

1590 PR I NT " i. C4SP ACE J i. 11 5SPACE JJO. C4SPACE J L < 
15SPACE Ji." ; 

1600 PR INT" i.C4SPACE Ji.< 15SPACE Jü. C4SPACE Ji.t 
15SPACE Ji."; 

1610 PR INT" .LJ-. C2SP ACF J L LLLLLlLLLLLllLLf -.p 
OKE 5625,76:RETURN 

1620 FOR U=0 TO 2:B(U)=Y(U):NEXT:A(0)=X(0) 
:Y(0)=19:X(0)=2:Y(1)=1:X(1)=14:Y(2)=1 
9: X(2)=11 

1630 FOR U=1 TO E:DY<0)=1:DX<0)=1:SYS 828: 

T=0 

1640 IF X(0)=2 AND Y(0)=20 THEN:FOR U=0 TO 
2: Y(U)=B<U) :NEXT:X(0)=A(0):SOTO 210 
1650 IF PEEK(251)=152 THEN W=73:G0SUB 1900 
: Y < 0) = Y < 0)—DY(0):GOSUB 2000:GOTO 1690 
1660 IF PEEK <2513 = 148 THEN W=73:G0SUB 1920 
:Y(0)=Y(0)+DY(0):GOSUB 1980:GOTO 1690 
1670 IF PEEK<251>=140 THEN W=73:GOSUB 1940 
:X(0> =X(0)—DX(0):GOSUB 2020:GOTO 1690 
1680 IF PEEK<251>=28 THEN W=73:GOSUB 1960: 

X<0)=X<0>+DX<0):GOSUB 2050 
1690 IF X <0)=X <1)AND Y<0)=Y<1)THEN 2320 
1700 IF X <0> =X <2)AND Y<0>=Y<2)AND D=2 THEN 
2320 

1710 IF X <0> =14 AND Y <0> =18 THEN GOSUB 221 

0 

1720 NEXT 

1730 FOR T=1 TO D:IF Y<T>=Y<0)THEN 1810 
1740 IF Y <T)<Y(0)THEN 1780 

1750 DY<T>=1:W=75:GOSUB 1900:IF DY<T>=0 TH 
EN 1820 

1760 IF PEEK <S+22* <Y <T)—1> +X <T))=75 THEN P 
RINT A$ <Y<T> > SPC <X<T> >"C2RIGHT,CYAN Ji 
CLEFT,DOWN JiCLEFT,DOWN Ji"; 

1770 Y<T>=Y<T>-DY<T>:GOSUB 2090:GOTO 1890 
1780 DY<T>=1:W=75:GOSUB 1920:IF DY<T)=0 TH 
EN 1820 

1790 IF PEEK(S+22* <Y <T)+3> +X <T> > =75 THEN P 
RINT A* <Y <T> +4)SPC <X <T> >"C2RIGHT,CYAN 
JiCLEFT,DOWN JiCLEFT,DOWN Ji" ; 

1800 Y<T)=Y<T)+DY < T):GOSUB 2080:GOTO 1890 
1810 IF X <T> =X <0)THEN 1890 
1820 IF X<TXX<0> THEN 1860 
1830 DX<T)=1:W=75:GOSUB 1940:IF DX<T>=0 TH 
EN 1860 

1840 IF PEEK(S+22*Y <T> +X <T> —1> =74 THEN PRI 
NT A* < Y < T > > SPC < X < T > -3 > " CUP, CYAN JJUL"; 

1850 X <T> =X <T> —DX <T>:GOSUB 2110:GOTO 1890 
1860 DX<T>=1:W=75:GOSUB 1960:IF DX<T>=0 TH 
EN 1890 

1870 IF PEEK <S+22*Y <T)+X <T)+2)=74 THEN PRI 
NT A*(Y<T> > SPC <X<T>> "CUP,CYAN JJUL”; 

1880 X <T)=X <T)+DX <T):GOSUB 2100 
1890 NEXT:GOTO 1630 

1900 V=S+22*Y <T) +X <T>:IF PEEK<V-22)>W OR P 

EEK CV—21> >W THEN DY<T>=0 <125> 

1910 RETURN <190> 

132 


<031 > 
<085> 

< 119> 

<026> 

<087> 

< 125> 

< 135> 
<047> 

<026> 

<042> 

<025> 

<228> 

< 134> 

< 159> 

<221 > 

< 130> 

<030> 

< 153> 
<206> 
<178> 

< 106> 

<031 > 


<058> 

<032> 

<069> 


<086> 

<024> 

<234> 

<243> 

<253> 

< 137> 
<221 > 

<038> 

< 119> 
<031 > 
<095> 


1920 V=S+22*Y<T>+X<T>: IF PEEK<V+66>>W OR P 
EEK <V+67) >W THEN DY<T>=0 
1930 RETURN 

1940 V=S+22*Y<T)+X<T):IF PEEK<V-1)>W OR PE 
EK <V+21> >W OR PEEK tV+43)>W THEN DX<T> 

=0 

1950 RETURN 

1960 V=S+22*Y<T)+X<T):IF PEEK<V+2>>W OR PE 
EKIV+24JJW OR PEEK<V+46)>W THEN DX<T> 

=0 

1970 RETURN 

1980 IF DY <0)>0 THEN PRINT A*<Y<0>>SPC<X<0 

> >"CUP,2SPACE,2LEFT,DOWN,WHITE J @A C2LE 
FT,DOWN,GREEN JBC C2LEFT,DOWN JDE";: POKE 

SN,254:POKE SN,0 
1990 RETURN 

2000 IF DY <0)>0 THEN PRINT A*<Y<0>>SPC<X<0 

> >"CWHITEJFGC2LEFT,DOWN,GREENJHIC2LEF 
T,DOWNJJKC2LEFT,DOWN,2SPACEJ";: POKE S 
N,254:POKE SN,0 

2010 RETURN 

2020 IF PEEK <P+22* <Y <0)+1)+X <0)> =55 THEN G 
OSUB 2120 

2030 IF DX <0)>0 THEN PRINT A*<Y<0)>SPC<X<0 

> >"tWHITE JLM CSPACE,3LEFT,DOWN,GREEN JN 
0CSPACE,3LEFT,DOWNJPQ ";:POKE SN,254: 

POKE SN,0 

2040 RETURN 

2050 IF PEEK <P+22* <Y <0> +1)+X <0> +1)=55 THEN 
GOSUB 2120 

2060 IF DX<0>>0 THEN PRINT A*<Y<0>)SPC<X<0 

> >"CLEFT,WHITE,SPACE JRS C3LEFT,DOWN,GR 
EEN,SPACE JTUC3LEFT,DOWN,SPACE JVW";:PO 
KE SN,254:POKE SN,0 

2070 RETURN 

2080 PRINT A$ <Y <T> > SPC < X <T>)"CUP,2SPACE,2L 
EFT,DOWN,WHITEJXY C2LEFT,DOWN,REDJBC £2 
LEFT , DOWN JDE" ; : RETURN 
2090 PRINT A$ <Y <T))SPC <X <T)>"CWHITEJZ C C2LE 
FT,DOWN,RED JHIC2LEFT,DOWN JJK C2LEFT,DO 
WN,2SPACEJ";:RETURN 

2100 PRINT A*<Y<T>>SPC<X<T>>"CLEFT,WHITE,S 
PACE J T C2LEFT,DOWN,RED,SPACE JTU C3LEFT, 

DOWN,SPACE JVW";:PRINT"CLEFT,2UP,WHITE 
J"CHR*<34):RETURN 

2110 PRINT AS < Y < T)> SPC < X < T > >"CWHITE}£ 3 CSPA 
CE,3LEFT,DOWN,RED JNO CSPACE,3LEFT,DOWN 
JPG CSPACE,3LEFT,DOWN J";:RETURN 
2120 Z=INT <RND <1)*3):IF Z=1 THEN 2140 
2130 RETURN 

2140 A <2> =1:Z=INT <RND <1)*7) 

2150 IF A <Z+1> =0 THEN A<Z+1)=1:RETURN 
2160 A <7)=0:GOTO 2140 

2170 POKE SL,5:F0R T=1 TO 10:POKE SN,230+1 
NT < RND <1)*20):FOR G=1 TO 15:NEXT 
2180 FOR H=25 TO 1 STEP-l:POKE SL,0:NEXT:P 
OKE SL,4:NEXT:POKE SN,0:POKE SL,11 
2190 IF N=1 THEN N=0:RETURN 
2200 N=l:RETURN 
2210 IF A <3> =0 THEN 2240 
2220 IF A <6)=1 THEN 2280 
2230 RETURN 

2240 PRINT AS <14)SPC(17>"CWHITEJ£3 C2LEFT,D 
OWN,BLUE JNO C2LEFT,DOWN JPQ";:POKE SN,2 
00 

2250 PRINT" C3UPJJULC2LEFT,DOWNJÜC2LEFT,DOW 
N J JULC2LEFT, DOWN JÜC2LEFT, DOWN JJUS.C8LEF 
T . DOWN J .J_J.J_J_a_J J.3 C8LEFT T mWN J K K K K K K K K " • <205> 
2260 PRI NT " C8LEFT , DOWN J .JJJJJ.JJ J CHI FFT , DOWN 
JJUUUUUUUL"; : FOR T=ll TO 0 STEP-l:POKE 
SL,T:NEXT:POKE SN,0 

2270 POKE SL,11:FOR T=1 TO 6000:NEXT:GOTO 
2320 

2280 POKE 36869,208:PRINT"CCLRJ"A$<4)"C3RI 
GHT,YELLOW JCONGRATULATIONS!":M=1 
2290 PRINT A$<6>"NOW LEAVE THE EMBASSY!“:F 
OR T=1 TO 3000:NEXT:POKE 36869,220:GO 
SUB 1490:RETURN 
2300 IF E>2 THEN E=E-2 

2310 FOR T=1 TO 5000:NEXT:M=0:N=0:D=2:FOR 
T=1 TO 6:A(T)=0:NEXT:GOTO 180 
2320 FOR T=128 TO 255:P0KE SN,T:POKE SM,T 
2330 NEXT:POKE SM,0:POKE SN,0:O=O-1 
2340 IF 0=0 THEN POKE 36869,208:PRINT"CCLR 

,2D0WN,WHITEJEND OF YOUR MISSION":END <006> 
_ 2350 GOTO 180 <120> 

Listing 2. »Spion« (Schluß). Bitte verwenden Sie zur 
Eingabe nur den Checksummer VC 20 in diesem Heft. 


<091 > 
< 210 > 


< 202 > 

<230> 


< 155> 
<250> 


<152> 

<014> 


< 126> 
<034> 

<214> 


< 193> 
<064> 

<229> 


<252> 

<096> 


<054> 


< 112 > 


<078 > 


< 131 > 
<086> 

< 156> 
<229 > 

< 150> 
<009> 

<048> 

<047> 

<013> 

< 115> 
<150> 
<065> 
< 000 > 


< 187> 


<061 > 
< 153> 


< 159> 


< 174> 
<203> 

<086> 

<099> 

<226> 


Q3t3fc 


















C 64 


Geschicklichkeitsspiele 




Little-Blue 

Ein Spiel, bei dem es nicht um 
das Schießen geht, sondern um 
Geschicklichkeit und Reaktionsver¬ 
mögen. 

Dieses Programm ist nur auf der Leser-Service-Diskette 
erhältlich. Ihre Aufgabe besteht darin, einen kleinen Commo- 
dore Computer rechts oben auf dem Bildschirm zusammen¬ 
zusetzen. Dazu sind alle Originaldisketten einzusammeln. Sie 
müssen darauf achten, keine Kopien zu erwischen, denn 
dann werden Sie an die Ausgangsposition zurückgesetzt. 
Das gleiche geschieht, wenn Sie mit einer Mauer Zusammen¬ 
stößen. Außerdem treibt eine Raubkopie ihr Unwesen. Kom¬ 
men Sie mit ihr in Berührung, so wird Ihre Plattform, auf der Sie 


sich bewegen, zerstört. Die Anzahl der noch vorrätigen Platt¬ 
formen wird durch die gelben Punkte auf der rechten Bild¬ 
schirmseite dargestellt. Für Ihre Plattform steht eine 
bestimmte Menge Energie zur Verfügung. Die Energiemenge 
ist an der grünen Säule zu erkennen. 

Sind alle Disketten eingesammelt, so entsteht rechts oben 
auf dem Bildschirm der Computer und Sie gelangen in den 
nächsten Level. Geht Ihnen die Energie aus oder haben Sie 
keine Plattform mehr, ist das Spiel beendet und es erscheint 
eine Highscore-Tabelle. 

Das Spiel kann mit der RUN/STOP-Taste angehalten wer¬ 
den. Ein weiterer Druck auf diese Taste setzt das Spiel fort. 
Mit der RETURN-Taste wird das Spiel neu gestartet. 

»Little-Blue« besteht aus 30 verschiedenen Bildern. Um 
das Spiel zu starten, laden Sie bitte »Little-Blue« von der Dis¬ 
kette und starten es mit RUN. Zuerst wird das Hauptpro¬ 
gramm geladen. Anschließend werden weitere sechs Unter¬ 
programmroutinen nachgeladen. Um in den ersten Spiellevel 
zu gelangen, drücken Sie bitte den Feuerknopf am Joystick, 
den Sie zuvor in Port 2 gesteckt haben. Alle weiteren Level 
werden genauso gestartet. 

(U.P. Heinemann / ah) 


Hot Food — 

Ein Spiel für 
Feinschmecker 

Spielen Sie mit Ihren dritten Zähnen. 
Versuchen Sie alles zu essen, was 
über den Bildschirm fliegt. Dieses 
Spiel ist nicht nur ein kulinarischer 
Genuß. 

Hot Food besteht zu 100% aus Maschinensprache und ist 
für den C 64 mit 1541 Disketten-Laufwerk oder Datasette 
geschrieben. Erforderlich ist ein Joystick, der in Controllport 
2 gesteckt werden muß. Nach dem Laden wird das Programm 
mit RUN gestartet. Es erscheint eine Grafik auf dem Bild¬ 
schirm, die allgemeine Bedienungshinweise enthält. Wird der 
Feuerknopf des Joysticks gedrückt, beginnt das Spiel. Ziel ist 
es, alle vorbeifliegenden Gegenstände mit einem »Gebiß« 
aufzufangen. Bekommt das Gebiß eine Zitrone zu fassen, 
klappt eins von den unten links angezeigten Gebissen zu, und 


es wird ein »BURB« auf dem Bildschirm ausgegeben. Hat man 
mehrere Zitronen »gefressen« und sämtliche Gebisse sind 
zugeklappt, ist das Spiel beendet. Ist die eigene Punktzahl 
höher als der Highscore, darf man sich mit dem Joystick unter 
dem neuen Highscore eintragen. 

Das Spiel hat insgesamt 12 Level. Nach jedem dritten Level 
fliegen neue Gegenstände über den Bildschirm. Pro Gegen¬ 
stand h" rammt man 20 Punkte und für eine Bonusfrucht 
1000. Im ersten Level ist zum Beispiel die Melone eine der 
vielen Früchte, für die es 1000 Punkte gibt. Die Anzahl der 
Früchte, die geschnappt werden müssen um in das nächste 
Level zu gelangen, erhöht sich jeweils um fünf. Natürlich 
erhöht sich in jedem weiteren Level auch die Geschwindigkeit 
der Gegenstände. 

Am Anfang eines jeden Leveis wird unten rechts auf dem 
Bildschirm ein Bonus von 3000 Punkten angezeigt. Verfehlt 
man Gegenstände, werden vom Bonus 100 Punkte abgezo¬ 
gen. Ist der Bonus auf null Punkte zusammengeschrumpft, ist 
das Spiel beendet. Schafft man den Level, bevor der Bonus 
null Punkte erreicht hat, wird der noch übrig gebliebene 
Bonus zur Punktezahl hinzuaddiert. Sollte es jemandem 
gelingen, 100000 Punkte zu erreichen, bekommt er ein extra 
Gebiß. 

Das Programm belegt die Funktionstasten wie folgt: 

Fl = Warmstart 
F3 = Hält das Spiel an 
F5 = Setzt das Spiel fort 
F7 = RESET des Computers 

(Volker Wiewer / ah) 
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00 

d0 

12 

ee 
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89 
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00 
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00 
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00 
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00 
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27 

89 

ad 

96 
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27 

89 
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05 
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ea 
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00 

4b 

1949 


8d 

27 

89 

a9 

00 

8d 

0d 

d0 

44 

1951 


8d 

0f 

d0 

a9 

00 

8d 

0c 

d0 

0d 

1959 


a9 

19 

8d 

0e 

d0 

a9 

c5 

Bd 

40 

1961 


fe 

07 

8d 

ff 

07 

a9 

ff 

8d 

lf 

1969 


lc d0 

ad 

lf 

89 

c9 

01 

f0 

09 

1971 


0c 

ad 

10 

89 

c9 

01 

f0 

01 

f 3 

1979 


60 

ee 

lf 

89 

60 

ce 

lf 

89 

55 

19B1 


60 

cf 

3d 

ff 

bf 

3f 

58 

20 

b0 

1989 


44 

e5 

a9 

00 

Sd 

20 

d0 

8d 

62 

1991 


21 

d0 

a9 

00 

a2 

d8 

Sd 

f 7 

9c 

1999 


00 

8e 
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00 

a9 

01 

a2 

00 

4c 
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00 

91 

f 7 

c8 
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00 

d0 

d9 
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ee 
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00 
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03 

d0 

9b 

19b 1 


fl 
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00 
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00 

db 

eB 
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eb 
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d0 
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le 

8d 

18 

d0 

cd 

19c 1 


a2 

00 

a0 

53 

Be 

f 7 

00 

Bc 

b8 

19c9 


f 8 

00 

a0 

04 

Se 

f 9 

00 

Bc 

3c 

19dl 


fa 

00 

a0 

00 

bl 

f 7 

91 

f 9 

08 

19d9 
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00 

d0 

f 7 
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ee 
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90 

19el 


00 

ee 

fa 

00 

e0 

04 

d0 

ea 

5e 

19e9 


a9 

00 

8d 

2a 

89 

Bd 

2b 

89 

00 

19f 1 


a9 

f0 

Bd 

15 

d0 

a9 

00 

Bd 

8e 

19f 9 


2f 

89 

8d 

30 

89 

Bd 

31 

89 

33 
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a9 

00 

8d 

45 

B9 

a0 

03 

8d 

7b 

la09 


46 

89 

20 

50 

25 

ea 

ad 

15 

b0 

lall 


d0 

09 

01 

8d 

15 

d0 

a9 

5a 

8b 

lal9 


Bd 

01 

d0 

a 9 

5a 

8d 

00 

d0 

44 
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20 

45 

51 
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00 

8d 

2b 

89 

9a 

la29 


Bd 

2c 

89 

Bd 

2d 

89 

Bd 

2e 

92 

la31 


89 

78 

a9 

ff 

a2 

09 

8d 

14 

31 

la39 


03 

8e 

15 

03 

a9 

01 

8d 

2b 

58 
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Geschicklichkeitsspiele 


C 64 


Ia41 
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d0 
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d0 

8d 

9e 

la49 


2e 

dB 

ad 

19 

d0 

Bd 

19 

d0 

ed 
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le 
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04 
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31 
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89 
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85 
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07 
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00 
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47 

89 
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05 

de 
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00 
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48 
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89 
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40 
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07 

de 
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48 

03 
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06 
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00 
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00 

62 
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: 
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01 
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de 
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00 
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18 
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00 
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00 
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08 

79 
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00 

d4 
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00 
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: 

Bd 

47 

89 
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60 

ld 
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00 

44 

ea 
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00 

ff 
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d0 
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19 

8d 

02 

d0 
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32 

f8 
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: 

8d 

04 

d0 

a9 

4b 

8d 

06 

d0 

84 

lab9 

3 

a9 

64 

Bd 

08 

d0 

a9 

7d 

Bd 

64 

lacl 

: 

0a 

d0 

a9 

96 

8d 

0c 

d0 

a9 

40 

lac9 

: 

af 

8d 

0e 

d0 

a9 

00 

8d 

00 

ad 

lad 1 
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89 

ad 

02 

89 

a9 

le 

8d 

01 

a6 

lad9 
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89 

a9 

05 

Bd 

03 

89 
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03 

53 

lael 

3 
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05 

89 
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31 

8d 

02 

89 

23 
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00 
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00 
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00 

90 
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laf 1 

8 
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09 
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f 8 
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ff 
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laf 9 
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02 
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25 
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05 

5a 
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26 
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01 

a2 

00 

9d 

6b 

lb09 

: 

28 

d0 

e8 

e0 

06 

d0 

f8 

a9 

0e 
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3 

17 

8d 

51 

89 

a9 

09 

Bd 

52 

32 

lbl9 

3 

89 

a9 

05 

8d 

53 

89 

a9 

17 

C0 

lb21 


8d 

54 

89 

a9 

05 

8d 

55 

89 

95 

lb29 


a9 

12 

8d 

56 

89 

cf 

04 

ea 

06 

lb31 

s 

a9 

00 

a2 

00 

9d 

06 

89 

e8 

85 

lb39 


e0 

05 

d0 

f 8 

a9 

f0 

Bd 

0c 

5f 

lb41 

: 

89 

a9 

00 

8d 

0d 

89 

a9 

00 

14 

lb49 

: 

8d 

11 

89 

a9 

20 

8d 

12 

89 

C0 

IbSl 


a9 

80 

8d 

40 

89 

a9 

0a 

8d 

cf 

lb59 


14 

89 

a2 

00 

a9 

00 

9d 

15 

16 

lb61 


89 

e8 

e0 

07 

d0 

f 8 

a9 

05 

fd 

lb69 


Bd 

le 

89 

a9 

00 

Bd 

20 

89 

9d 

lb71 


a9 

01 

8d 

26 

89 

a9 

01 

Bd 

c8 

lb79 

: 

15 

d0 

a9 

00 

8d 

lf 

89 

a9 

ac 

lbBl 


01 

8d 

29 

89 

60 

ea 

4c 

50 

f 4 

lb89 


29 

cf 
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ea 

c9 

04 

f0 

3e 

b5 

lb91 


c9 

03 

f0 

23 
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02 

f0 

08 

fd 

lb99 
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c9 

01 

f0 
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00 

f0 

fe 

67 
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a9 

44 

8d 
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07 
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45 
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dl 
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99 

07 
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46 

8d 
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07 
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47 
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47 
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cl 

07 
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64 

22 
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d4 

lbb9 


44 
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07 
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45 
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02 
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07 
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46 

8d 
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07 
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47 
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07 
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le 
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44 

14 
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07 
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45 
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46 
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07 
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18 
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07 
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07 
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06 
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: 
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20 
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24 
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00 
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lbf 1 


d0 

18 

69 

10 
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ad 

12 
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3 

01 

d0 

18 

69 

00 

Bd 
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81 

8d 

15 
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00 

a2 

cB 
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00 
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07 
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e0 

58 
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00 
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fb 
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00 
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07 
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00 
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fb 
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00 
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07 
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eB 

fl 
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00 
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fb 
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00 

24 

ea 

ea 

bc 
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3 

a9 

C0 

Bd 

f 8 

07 

ad 

06 

89 

c6 
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3 

38 

ed 

08 

90 

f0 

08 

90 

03 

14 

lc41 


4c 

63 

23 

4c 

ld 

23 

ad 

07 

41 
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89 

38 
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07 

90 

f0 

08 

90 
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63 

23 
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ld 
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ad 
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3 

08 

89 
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05 

90 
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0B 
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3 

90 

03 

4c 

63 

23 

4c 

ld 

23 

42 

lc69 

3 

ad 

09 

89 

38 

ed 

04 

90 

f0 

27 

lc71 

3 

08 

90 

03 

4c 

63 

23 

4c 

ld 

c6 

lc79 

3 

23 

ad 

0a 

89 

38 

ed 

02 

90 

43 

lc81 

3 

f0 

02 

90 

03 

4c 

63 

23 

4c 

fc 

lcB9 

3 

ld 

23 

4c 

ld 

23 

ad 

02 

90 

b7 

lc91 

3 

c9 

00 

f0 

0f 

ad 

06 

89 

38 

la 

lc99 


ed 

08 

90 

90 

03 

4c 

63 

23 

27 

lcal 
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4c 

ld 

23 

ad 

02 

90 

Bd 

0a 

e9 

lca9 

3 

89 

18 

69 

30 

8d 

3d 

04 

ad 

cd 

lcbl 

3 

04 

90 

8d 

09 

89 

18 

69 

30 

el 

lcb9 

3 

Bd 
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04 

ad 

05 

90 

8d 

08 

36 

lccl 

3 

89 

18 

69 

30 

8d 

3b 

04 

ad 

d5 
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3 

07 

90 

8d 

07 

89 

18 

69 

30 

bc 

lcdl 

3 

8d 

3a 

04 

ad 

08 

90 

8d 

06 

79 

lcd9 


89 

18 

69 

30 

8d 

39 

04 

ea 

57 

lcel 


20 

b0 

19 

4c 

6e 

lc 

20 

a0 

b3 

lce9 


19 

a9 

00 

8d 

15 

dB 

a2 

00 

eb 

lef 1 

3 

bd 

00 

5b 

9d 

f0 

05 

e8 

e0 

d5 
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3 

09 

d0 

f 5 
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00 

Be 

21 

89 

48 

ld01 


a0 

00 

c8 

C0 

00 

d0 

fb 

e8 

34 

ld09 


e0 

00 

d0 

f 4 

ee 

21 

89 

ad 

35 

1dl 1 


21 

89 

c9 

08 

dB 

ea 

ad 

10 

a5 

ldl9 


89 

c9 

01 

f0 

0e 

ad 

0d 

de 

21 
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ld21 


a9 

00 

Bd 

15 

d0 

58 

4c 

89 

e4 

ld29 


27 

ea 

ea 

a2 

00 

a9 

20 

9d 

dd 

ld31 


f0 

05 

e8 
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09 

dB 

f 8 
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48 
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01 
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d0 
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04 
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la 
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00 
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68 
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16 
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00 
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12 
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89 

ad 
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89 

c9 

b9 
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05 
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08 
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00 
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89 
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4c 

70 

24 

4c 

81 
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78 

4e 
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00 

8d 
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d0 
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07 
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24 
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2e 

d0 

8d 

10 

dB 

a9 

C0 

Bd 

f 5 

ld89 


fB 

07 

a9 

0f 

8d 

18 

d4 

a9 

91 

ld91 


19 

8d 

05 

d4 

Bd 

0c 

d4 

8d 

f 4 

ld99 


13 

d4 

a9 

44 

8d 

06 

d4 

Bd 

81 

ldal 


0d 

d4 

Bd 

14 

d4 

a9 

04 

Bd 

C4 

lda9 


01 

d4 

8d 

08 

d4 

8d 

0f 

d4 

18 

ldbl 


a9 

5a 

8d 

00 

d4 

8d 

07 

d4 

6a 

ldb9 


8d 

0e 

d4 

a9 

81 

8d 

04 

d4 

f 6 

ldcl 


8d 

0b 

d4 

8d 

12 

d4 

60 

bf 

83 

ldc9 


05 
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df 

42 

ea 

ea 

a9 

c8 

8d 

5d 

3301 


00 

77 

4c 

df 

42 

ea 

ea 

a9 

46 

3309 


dl 

ad 

00 

77 

4c 

df 

42 

ea 

32 

3311 


ea 

a9 

d9 

8d 

00 

77 

4c 

df 

a5 

3319 


42 

ea 

ea 

a9 

e2 

8d 

00 

77 

4a 

3321 


4c 

df 

42 

cf 

03 

ea 

ff 

ff 

6f 

3329 


82 

df 

ff 

ff 

86 

8f 

80 

f 7 

71 

3331 


82 

82 

a2 

00 

ad 

00 

77 

9d 

91 

3339 


00 

75 

18 

69 

01 

e8 

e0 

0a 

16 

3341 


d0 

f 5 

4c 

48 

49 

bf 

0a 

91 

06 

3349 


00 

91 

bf 

00 

00 

a2 

97 

a0 

b6 

3351 


45 

8e 

10 

71 

8c 

11 

71 

a9 

7a 

3359 


00 

cf 

03 

ea 

8d 

04 

70 

a2 

5f 

3361 


00 

a0 

00 

c8 

C0 

00 

d0 

fb 

12 

3369 


eB 

ec 

05 

89 

d0 

f 3 

a2 

00 

71 

3371 


eB 

ec 

40 

89 

dB 

fa 

4c 

f 6 

15 

3379 


47 

ff 

82 

ff 

a2 

el 

cf 

04 

el 

3381 


ff 

82 

df 

ff 

ff 

86 

8f 

80 

2c 

3389 

s 

f 7 

cf 

03 

82 

bf 

08 

80 

00 

b7 


Listing »Hot Food« (Fortsetzung). 
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C 64 


Geschicklichkeitsspiele 


3391 

: 

00 

82 

bf 

0 b 

82 

bf 

05 

82 

63 

3399 


00 

00 

02 

bf 

0 c 

80 

00 

80 

d8 

33a 1 


a 0 

bf 

0 f 

cf 

09 

ff 

cf 

01 

b0 

33a9 


cf 

ff 

ae 

82 

c6 

ff 

80 

80 

e3 

33b 1 


cf 

0 c 

ff 

8 f 

ff 

ff 

af 

cf 

d6 

33b 9 


03 

ff 

82 

80 

cf 

07 

ff 

82 

a 7 

33c 1 


ff 

a 2 

el 

cf 

04 

ff 

82 

df 

Be 

33c9 


ff 

ff 

86 

8 f 

80 

f 7 

cf 

03 

68 

33dl 


82 

bf 

08 

80 

00 

00 

82 

bf 

cf 

33d9 


0 b 

82 

bf 

05 

82 

00 

00 

02 

e2 

33el 


bf 

0 c 

80 

00 

80 

a 0 

bf 

0 f 

fl 

33e9 


ad 

04 

de 

f 8 

cf 

04 

4a 

8 d 

50 

33f 1 


0 e 

89 

c9 

09 

f0 

03 

4c 

e0 

71 

33f 9 


32 

a9 

01 

Bd 

0 e 

89 

4c 

e0 

12 

3401 


32 

04 

4c 

e0 

32 

03 

4c 

11 

f 3 

3409 


45 

4c 

e 0 

32 

ee 

03 

70 

a2 

01 

3411 


00 

ee 

00 

70 

e8 

e0 

20 

d0 

4e 

3419 


fB 

4c 

la 

45 

60 

cf 

09 

ff 

0 f 

3421 


dB 

a9 

12 

Bd 

00 

70 

a2 

00 

12 

3429 


a0 

00 

a9 

ff 

8 d 

01 

70 

ad 

32 

3431 


04 

de 

29 

fc 

c8 

ee 

01 

70 

76 

3439 


cc 

00 

70 

f0 

0 b 

cd 

01 

70 

43 

3441 


f0 

03 

4c 

53 

45 

4c 

7d 

45 

68 

3449 


ee 

04 

70 

a2 

00 

ee 

00 

70 

02 

3451 


e8 

e0 

13 

d0 

f 8 

4c 

5c 

45 

76 

3459 


00 
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bf 

04 

ad 

04 

70 
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4a 
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ff 

e8 

dd 
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ee 

9d 
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71 

ee 
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71 

ee 

10 

71 

al 
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82 

45 

6 c 

10 

71 

4c 

dd 

57 

3479 


45 

4c 

fd 

45 

4c 

ld 

46 

4c 

6 c 

3481 


3d 

46 

4c 

5d 

46 

4c 

7d 

46 

e9 

3489 


4c 

9d 

46 

4c 

bd 

46 

4c 

dd 

ba 

3491 


46 

4c 

fd 

46 

4c 

ld 

47 

4c 

a9 

3499 


3d 

47 

4c 

5d 

47 

4c 

7d 

47 

94 

34a 1 


cf 

03 

ea 

4c 

c4 

45 

4c 

c7 

6 d 

34a9 


45 

bf 

03 

ad 

00 

78 
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00 

2 f 

34b 1 


d0 

19 

ee 

00 

78 

ee 

01 

78 

bd 

34b9 


ee 

02 

78 

ae 

00 

76 
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5a 

ab 

34c 1 
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00 
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00 
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90 

84 
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47 
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ea 

ad 

01 

78 
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00 

fl 
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ee 
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ee 
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02 
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46 
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ee 
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90 
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47 

00 
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ad 

03 

78 
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19 

ee 
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ee 

04 

78 
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78 

ae 

00 

76 
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72 

bd 
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00 

dB 
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00 
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4c 

90 

e4 

3529 


47 

00 

00 

ad 

04 

78 

c9 

00 

51 

3531 
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19 

ee 

04 

78 

ee 

05 

78 

ce 

3539 


ee 

06 

78 

ae 

00 

76 

a9 

7a 

6 e 

3541 


9d 

00 

d0 

9d 

00 
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90 

04 
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47 

00 

00 

ad 
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78 
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90 

44 
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47 
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78 
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76 
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00 
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00 
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47 
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12 
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08 
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ee 

09 

78 

df 
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ee 
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76 
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00 
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9d 

00 

7d 
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90 

84 
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47 

00 
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09 

78 
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09 
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78 
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76 
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78 
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72 
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78 

67 
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78 

ae 
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91 
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00 
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00 
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90 
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00 
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ad 
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78 
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00 

a2 

3611 
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ee 
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78 

ee 
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78 

ab 
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ee 
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78 

ae 

00 

76 
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41 
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00 
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00 
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90 

e4 
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47 

00 

00 

ad 
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78 
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00 
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ee 
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ef 
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ee 
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78 
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00 
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04 
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ad 
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00 
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ee 
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ee 
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00 
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00 
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90 

24 
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47 
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90 

47 

00 

00 

ee 
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89 

ad 
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00 
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00 

65 
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00 

44 

bf 

59 

ce 

02 
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84 

3681 


ad 

02 
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ff 
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10 

ce 

02 

3689 


02 

d0 

ad 

02 

d0 
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ff 

f0 

de 
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06 

cf 

03 

ea 

4c 

36 

48 

ee 

12 

3699 


08 

79 

ad 

08 

79 

c9 

02 

f0 

9a 

36a 1 


0 b 

ad 

10 

d0 

29 

fd 

8 d 

10 

7a 

36a9 


d0 

4c 

36 

48 

4c 

70 

28 

29 

71 

36b 1 


fd 

8 d 

15 

d0 

20 

13 

28 

cf 

af 

36b 9 


06 

ea 

ce 

04 

d0 

ad 

04 

d0 

95 

36c 1 


c9 

ff 

f0 

10 

ce 

04 

d0 

ad 

74 

36c 9 


04 

dB 

c9 

ff 

f0 

06 

cf 

03 

2 c 

36dl 


ea 

4c 

76 

48 

ee 

09 

79 

ad 

00 

36d9 


09 

79 
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02 

f0 

0 b 

ad 

10 

90 

36el 


d0 

29 

fb 

Bd 

10 

d0 

4c 

76 

9c 

36e9 


48 

4c 

Bd 

28 

29 

fb 

8 d 

15 

93 

36f 1 


d0 

20 

13 

28 

cf 

06 

ea 

ce 

12 

36f 9 


06 

d0 

ad 

06 

d0 

c9 

ff 

f0 

dl 

3701 


10 

ce 

06 

d0 

ad 

06 

d0 

c9 

f 6 

3709 


ff 

f0 

06 

cf 

03 

ea 

4c 

b6 

22 

3711 


48 

ee 

0 a 

79 

ad 

0 a 

79 

c9 

27 

3719 


02 

f0 

0 b 

ad 

10 

d0 

29 

f 7 

28 

3721 


8 d 

10 

d0 

4c 

b6 

48 

4c 

ac 

ac 

3729 


28 

29 

f 7 

8 d 

15 

d0 

20 

13 

14 

3731 


28 

cf 

06 

ea 

ce 

08 

d0 

ad 

eb 

3739 


08 

d0 

c9 

ff 

f0 

10 

ce 

08 

f 6 

3741 


dB 

ad 

08 

d0 

c9 

ff 

f0 

06 

70 

3749 


cf 

03 

ea 

4c 

f 6 

48 

ee 

0 b 

61 

3751 


79 

ad 

0 b 

79 

c9 

02 

f0 

0 b 

19 

3759 


ad 

10 

d0 

29 

ef 

Bd 

10 

d0 

b5 

3761 


4c 

f 6 

48 

4c 

c9 

28 

29 

ef 

26 

3769 


8 d 

15 

d0 

20 

13 

28 

cf 

06 

77 

3771 


ea 

ce 

0 a 

d0 

ad 

0 a 

d0 

c9 

61 

3779 


ff 

f0 

10 

ce 

0 a 

d0 

ad 

0 a 

C0 

3781 


d0 

c 9 

ff 

f0 

06 

cf 

03 

ea 

14 

3789 


4c 

36 

49 

ee 

0 c 

79 

ad 

0 c 

7c 

3791 


79 

c9 

02 

f0 

0 b 

ad 

10 

d0 

8 d 

3799 


29 

df 

8 d 

10 

d0 

4c 

36 

49 

f 2 

37a 1 


4c 

e6 

28 

29 

df 

8 d 

15 

d0 

f0 

37a9 


20 

13 

28 

cf 

06 

ea 

ce 

0 c 

62 

37b 1 


d0 

ad 

0 c 

d0 

c9 

ff 

f0 

10 

f 5 

37b9 


ce 

0 c 

d0 

ad 

0 c 

d0 

c9 

ff 

e6 

37c 1 


f0 

06 

cf 

03 

ea 

4c 

6 d 

49 

62 

37c9 


ee 

0 d 

79 

ad 

0 d 

79 

c9 

02 

la 

37dl 


f0 

0 b ad 

10 

d0 

29 Cr 

01 

4c 

37d9 


bf 

8 d 

10 

d0 

4c 

6 d 

49 

ad 

2 e 

37el 


15 

d0 

29 

cf 

01 

bf 

8 d 

15 

11 

37e9 


d0 

cf 

09 

ea 

ce 

0 e 

d0 

ad 

3c 

37f 1 


0 e 

d0 

c9 

ff 

f0 

10 

ce 

0 e 

C0 

37f9 


d0 

ad 

0 e 

d0 

c9 

ff 

f0 

06 

aa 

3801 


cf 

03 

ea 

4c 

00 

45 

ee 

0 e 

98 

3809 


79 

ad 

0 e 

79 

c9 

02 

f0 

0 b 

92 

3811 


ad 

10 

d0 

29 

7f 

8 d 

10 

d0 

66 

3819 


4c 

00 

45 

ad 

15 

d0 

29 

7f 

e8 

3821 


8 d 

15 

d0 

4c 

00 

45 

c9 

00 

48 

3829 


f0 

fe 

4c 

00 

45 

a2 

00 

bd 

90 

3831 


b9 

49 

9d 

ea 

05 

e8 

e 0 

08 

7f 

3B39 


f0 

f 5 

4c 

c4 

49 

bf 

00 

bf 

e 2 

3841 


00 

bf 

00 

bf 

00 

bf 

00 

bf 

96 

3849 


00 

bf 

29 

4c 

b8 

50 

4c 

c2 

cl 

3851 


50 

bf 

04 

a0 

00 

ee 

00 

7b 

04 

3859 


ea 

bd 

03 

7d 

c 9 

5a 

f0 

39 

38 

3861 


c9 

62 

f0 

3f 

c9 

6 a 

f0 

45 

be 

3869 


c9 

72 

f0 

4b 

c9 

7a 

f0 

51 

e8 

3871 
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82 

f0 

57 
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12 

3879 


c9 

92 
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63 
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69 

3c 

3881 


c9 
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6 f 
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aa 

f0 

75 

66 

3889 
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f0 

7b 

c9 

ba 

f0 

b9 

00 

3891 


c9 
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f0 

bB 

8 d 

00 

7c 

60 

9a 

3899 


f 7 

8 c 

00 

78 

Bc 

01 

78 

8 c 

bl 

38a 1 


02 

78 

60 

8 c 

01 

78 

8 c 

02 

93 

38a9 


78 

Bc 

03 

78 

60 

8 c 

02 

78 

9b 

38b 1 


8 c 

03 

78 

8 c 

04 

78 

60 

8 c 

0 d 

38b 9 


03 

7B 

8 c 

04 

78 

8 c 

05 

78 

Bd 

38c 1 


60 
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04 

78 

8 c 

05 

78 

8 c 

63 

38c 9 


06 

78 

60 

Bc 

05 

78 

Bc 

06 

07 

38dl 


78 
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07 

78 

60 
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06 

78 

d4 

38d9 
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07 

78 
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08 

78 

60 

8 c 

77 

38el 


07 

78 
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08 

78 
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09 

78 

49 
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60 
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09 
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60 
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09 

78 
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78 

60 
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78 
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78 
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78 
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78 
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78 

60 
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78 
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78 
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70 

00 

ff 
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3929 
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bf 
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40 

00 
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00 

ff 
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ff 

bf 

03 

ff 

00 

25 

00 
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3939 


ef 

f 5 
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ff 
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41 
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41 

00 
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82 

00 

00 
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03 
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41c9 : 33 05 36 05 3a 05 36 05 5c 

41dl : 33 05 28 05 33 05 3B 05 78 

41d9 : 3c 05 38 05 33 05 28 05 4d 

41el : 33 05 36 05 3a 05 36 05 74 

41e9 : 33 05 28 05 33 05 36 05 B8 

41fl i 3a 05 36 05 33 05 2b 05 ee 

41f9 : 33 05 36 05 3b 05 36 05 9c 
4201 : 33 05 28 05 33 05 38 05 a8 
4209 : 3c 05 38 05 33 05 28 05 7d 
4211 : 33 05 36 05 3a 05 36 05 a4 
4219 s 33 05 28 05 33 05 36 05 bS 
4221 : 3a 05 36 05 33 05 28 05 12 

4229 s 33 05 36 05 3a 04 36 05 b4 
4231 s 33 05 28 05 33 05 38 05 d8 
4239 : 3c 05 3B 05 33 05 23 08 9+ 

4241 : 25 05 26 08 28 05 29 08 d3 
4249 : 2a 05 2b 08 31 05 23 09 9c 
4251 ■ 2B 05 28 05 28 05 28 05 fc 
4259 : 28 05 28 05 28 05 28 05 04 

4261 : 28 05 18 01 28 01 18 01 lf 
4269 s 28 01 18 01 2B 01 18 01 25 

4271 3 28 01 18 01 28 01 18 01 2d 
4279 : 28 01 18 01 28 01 18 01 35 

4281 : 28 01 18 01 28 01 18 01 3d 
4289 s 28 01 18 01 28 01 18 01 45 

4291 s 28 01 36 05 35 05 33 97 e0 
4299 s 45 09 2c 09 2a 09 28 09 2d 
42a1 s 26 09 25 09 23 09 21 09 c7 
42a9 3 29 09 28 09 26 09 28 09 df 
42b 1 3 31 09 31 05 31 05 31 05 5e 
42b9 s 31 0c 00 00 41 0a 35 02 2e 
42c1 s 35 02 35 02 35 0a 41 02 32 

42c9 3 41 02 41 20 41 05 38 05 B7 
42dl 3 46 05 48 05 46 05 41 05 e8 
42d9 3 41 05 38 05 46 05 48 05 03 

42el 3 46 05 41 05 48 05 46 05 6b 
42e9 s 41 05 48 05 46 05 41 05 fb 
42-fl s 48 05 46 05 41 05 38 06 17 

42f9 3 3B 03 38 03 38 0c 41 0c 22 
4301 s 3a 09 45 0c 45 09 3a 09 2a 
4309 s 45 0c 45 09 36 09 3c 0c 7c 
4311 8 36 09 38 0c 38 0c 41 09 56 

4319 s 46 09 41 09 45 09 41 09 09 

4321 s 46 09 41 09 38 05 41 05 18 

4329 s 48 05 36 09 33 0c 33 09 15 

4331 s 31 0c 3a 06 36 06 36 06 30 

4339 : 36 06 36 09 36 09 36 09 b8 
4341 s 36 09 31 0c 3a 06 36 06 82 

4349 s 36 06 36 06 43 09 3b 09 4c 
4351 s 3c 09 38 07 38 03 31 0c 79 
4359 s 3a 06 3a 06 36 06 36 06 5e 
4361 s 36 09 36 09 36 09 38 07 65 

4369 s 38 03 49 08 48 05 46 08 4c 
4371 s 44 05 43 08 41 05 3b 08 43 

4379 s 39 05 41 09 31 05 31 05 b0 
4381 s 31 05 2c 09 2c 06 2c 06 11 

4389 s 31 0a 31 06 3a 09 3c 09 bb 
4391 s 45 09 48 09 45 09 38 09 le 
4399 s 3a 09 48 09 46 09 4c 09 7b 
43a 1 3 44 09 49 09 49 09 48 09 ed 
43a9 3 31 09 31 05 31 05 31 05 56 

43b 1 s 31 0c bf 03 cf 0b 01 cf 32 
43b9 3 0b 02 cf 05 03 cf 08 04 31 

43c1 s cf 03 05 cf 03 06 07 07 d8 
43c9 s cf 06 08 09 09 0a 0a 0b de 
43dl s 0c 0c 0d 0e 0f cf 04 10 88 

43d9 s 11 11 12 13 14 15 16 18 cc 
43el s 19 lb lc le cf 04 20 22 35 

43e9 s 22 24 26 28 2b 2d 30 33 ef 
43f1 s 36 39 3e cf 04 40 44 44 29 

43f9 3 48 4c 51 56 5b 60 66 6c b2 
4401 b 73 7a cf 04 81 89 89 91 d3 
4409 3 99 a3 ac b7 cl 12 12 23 dl 
4411 8 34 46 Sa 6e 84 8b b3 cd de 
4419 s e9 cf 04 06 25 25 45 68 0d 
4421 : 8c b3 de 08 36 67 9b d2 72 
4429 s cf 04 0c 49 49 8b d0 19 8d 
4431 s 67 b9 10 6c ce 35 a3 cf cb 
4439 s 04 17 93 93 15 9f 32 cd d3 
4441 s 72 20 dB 9c 6b 46 cf 04 bd 
4449 s 2f 25 25 2a 3f 64 9a e3 e3 
4451 3 3f bl 38 d6 8d cf 04 5e 76 
4459 s 4b 4b 55 7e cB 34 c6 7f b7 
4461 s 61 6f ac la cf 04 bc 95 23 

4469 s 95 a9 fc Bf 69 8c fe c2 80 
4471 3 df 58 34 cf 04 78 2b 2b 8a 
4479 s 53 f7 lf d2 00 00 00 ff ea 


Listing »Hot Food« (Schluß). 
Bitte mit dem MSE eingeben. 
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Geschicklichkeitsspiele 


Kampf um 
Libra — 
ein Höhlen¬ 
abenteuer mit 
gefährlichen 
Hindernissen 

Versuchen Sie Ihren tresanischen 
Raumer durch ein todbringendes 
Höhlensystem zu steuern. Viele Hin¬ 
dernisse machen Ihren Auftrag zu 
einer lebensgefährlichen Aufgabe. 


Das Programm »Libra« ist für Disketten- und Kassetten¬ 
betrieb geschrieben worden. Benötigt wird ein Joystick, der 
in Controll-Port 2 zu stecken ist. Bei diesem Spiel geht es um 
die Unabhängigkeit des Sonnensystems »Libra«. Die Ausein¬ 
andersetzungen zwischen der intergalaktischen Föderation 
und den Raumrittern des Planeten Tresed haben ein er¬ 
schreckendes Ausmaß erreicht. Um einen drohenden Angriff 
zu verhindern, wurden Sie mit Ihrem Raumkreuzer in das 
Zentrum der geheimnisvollen Welt »Arbil« gebeamt, dem der¬ 
zeitigen Stationierungspunkt des feindlichen Kampfsterns. 

Nachdem es Ihnen gelungen ist, den Reaktor zu zerstören, 
versuchen Sie in einem »tresanischen« Raumer unerkannt 
durch ein todbringendes Höhlensystem zu entkommen. 

Kollidieren Sie mit feindlichen Objekten, der Höhlenwand 
oder überschreiten das in den Bildern 1 und 3 gesetzte Zeit¬ 
limit, so wird Ihr Raumer, von dem es in jedem Spiel nur neun 
gibt, zerstört. Am Ende jeder Höhle befindet sich ein Durch¬ 
gang, in dem Sie so weit wie möglich nach oben fliegen 
müssen, um das nächste Bild zu erreichen. 

Bild 2 beinhaltet unter anderem eine permanente Sperre, 
die sich nur öffnet, wenn Sie das schußfeste Geschütz Ihres 
Gegners, eine Energiesonde, vernichten. Dieses Geschütz 
läßt sich nur durch 20 Treffer beseitigen. 

Sollten Sie alle vier Höhlen gemeistert haben, beginnt das 
Spiel mit erhöhtem Schwierigkeitsgrad von neuem. 

Doch Vorsicht, eine mutierte Riesenpflanze und ein Dra¬ 
chen werden Ihnen das Leben erschweren. Dieses Spiel ist 
auf der heftbegleitenden Diskette enthalten. 

(Christian Wurzer / ah) 





















Marktübersicht Spiele 


Marktübersicht 

Spiele 

Oft erreichen uns in der Redaktion Anfragen, wo ein Spiel 
zu welchem Preis zu haben ist. Deshalb haben wir uns ent¬ 
schlossen, eine Marktübersicht über die derzeit erhältlichen 
Spiele mit ihren Preisen und Bezugsquellen zu veröffent¬ 
lichen. Die hier aufgeführten Angaben sind aus den entspre¬ 
chenden Händlerlisten direkt übernommen worden. Hieraus 
ergeben sich auch eventuelle Unterschiede in der Schreib¬ 
weise. Die Unterlagen von Joysoft erreichten uns erst nach 
Redaktionsschiuß und konnten nicht mehr alphabetisch ein¬ 
geordnet werden. Die Spiele dieser Firma sind an das Ende 
der Marktübersicht angefügt. 

Die Marktübersicht beruht auf den Angaben der Herstel¬ 
ler/Anbieter und erhebt keinen Anspruch auf Vollständigkeit. 

(rg) 


Mastertronic, Riga Ring 6.4770 Soest 
Teleton (02921)14138-39 

Rushware GmbH, 4044 Kaarst 2, An der Gümpgesbrücke 24, 

Teleton (021 01)68499 

Thorn Eml, Widdersdorfer StraBe 236-240,6000 Köln 30, 

Teleton (0221) 583067 

Ariolasott, Postfach 1350,4830 Gütersloh 1, 

Teleton (05241)80-51 65 

Thomas Müller Computer-Service, Postfach 2526,7600 Ottenburg, 

Telefon (0781) 72004 

Hans Dieter Weisel EDV-Servlce, Königsberger Straße 20, Postfach 505, 

5412 Ransbach-Baumbach, Telefon (02623) 3627 

Teledienst, Mainzer-Tor-Anlage 45,6360 Friedberg, 

Telefon (06031)91650 

Micro-Händler, Computer Software GmbH, Robert-Koch-StraBe 1, 

4050 Mönchengladbach 1, Telefon (021 61) 651368 

Kingsoft »Pia» it agaln», Fritz Schäfer, Schnakebusch 4, 

5106 Roetgen, Telefon (0 24 08) 8319 

Dynamics Marketing GmbH, GroBe BackorstraBe 11, 2000 Hamburg 1, 

Teleton (040) 366147 

Markt&Tochnik Verlag AG, Happy-Sottware, 

Hans-Plnsel-Straße 2, 8013 Haar bei München, Telefon (089) 4613-0 

Europa-Spiele, Miller International Schallplatten GmbH, Justus-von-Uebig-Ring 2-4, 
2085 Qulckbom, Telefon (041 06) 5001 

Otto Maler Verlag, Abt. Computer-Software, Postfach 1860, 

7980 Ravensburg. Telofon (07 51) 861 

Funtastlc, ExpreB-Versand, SonnenstraBe 9, 8000 München 2, 

Telefon (089) 93 98 94 

Joysoft, Humboldtstraße 84, 4000 Düsseldorf 1, 

Telefon (0211) 6801403 


Artikelbezeichnung 

Preis 

Anbieter 

1985 The Day After (cass) 

11.95 

Mastertronic 

1985 The Day After (d) 

28.95 

Mastertronic 

3-D Ant attack 

39.00 

Micro-Händler 

3-D Glooper 

39.00 

Micro-Händler 

4 Spiele für Kinder 

39.00 

Micro-Händler 

Asylum 

128.00 

Computer-Service 

Action on Protection 

59.00 

Micro-Händler 

Adventure Constr. Set (d) 

139.00 

Funtastic 

Adventure Constr. Set (d) 

159.00 

Teledienst 

Adventure Construction Set (d) 

159.00 

Ariolasoft 

Adventureland (cass) 

38.00 

Teledienst 

Adventureland (cass) 

39.90 

Rushware 

Air Line (d) 

49.00 

Funtastic 


Artikelbezeichnung 

Preis 

Anbieter 

Airwolf (cass) 

36.90 

Rushware 

Alice im Videoland (dass) 

39.90 

Rushware 

Alice im Videoland (cass) 

38.00 

Teledienst 

Alice in Videoland (Cass) 

19.90 

Micro-Händler 

Alien 

49.00 

Micro-Händler 

Alien (cass) 

29.00 

Funtastic 

Alien (cass) 

42.90 

Rushware 

Alley Cat (cass) 

49.00 

Ariolasoft 

Alley Cat (d) 

69.00 

Ariolasoft 

Altair 4 

39.00 

Micro-Händler 

Amazon (d) 

99.90 

Rushware 

Amazon (d) 

99.00 

Funtastic 

Amazon (d) 

88.00 

Teledienst 

Anclpital 

39.00 

Micro-Händler 

Android 2 

29.00 

Micro-Händler 

Android 2 (cass) 

39.00 

Thorn Emi 

Android II (cass) 

49,00 

Teledienst 

Ape Craze (cass) 

29.00 

Funtastic 

Apple Cider Spider (Modul) 

119.00 

Teledienst 

Apple Cider Spider (d) 

99.00 

Teledienst 

Aqua Plane (d) 

39.00 

Funtastic 

Aqua Racer (cass) 

26.90 

Rushware 

Aquanaut 

29.00 

Micro-Händler 

Aquaplane 

10.00 

Kingsoft 

Aquaplane 

39.00 

Micro-Händler 

Arcadia 

29.00 

Micro-Händler 

Arcadia (cass) 

19.00 

Funtastic 

Archon (cass) 

54.90 

Rushware 

Archon 1 (cass) 

49.00 

Ariolasoft 

Archon II 

88.00 

Teledienst 

Archon II 

89.00 

Funtastic 

Archon II Adept (d) 

69.00 

Ariolasoft 

Armageddon 

10.00 

Kingsoft 

Armageddon 

29.00 

Micro-Händler 

Astro Chase (cass) 

26.90 

Rushware 

As'"' ^hase (cass) 

99.00 

Teledienst 

Astro Chase (d) 

26.90 

Rushware 

Astro Chase (d) 

59.00 

Micro-Händler 

Astro Chase (d) 

38.00 

Teledienst 

Attack of Mutant Camels (cass) 

29.00 

Funtastic 

Attack of the mutant Camels 

39.00 

Micro-Händler 

Attack on Windscale 

39.00 

Micro-Händler 

Axis Assassin (d) 

79.00 

Teledienst 

Aztec (cass) 

38.00 

Teledienst 

Aztec (d) 

48.00 

Markt&Technik 

Aztec (d) 

46.00 

Teledienst 

Aztec Challenge (cass) 

29.00 

Ariolasoft 

Aztec Challenge (cass) 

29.00 

Teledienst 

Aztec Challenge (cass) 

29.00 

Funtastic 

Aztec Challenge (cass) 

39.00 

Micro-Händler 

Aztec Challenge (d) 

35.00 

Teledienst 

Aztec Challenge (d) 

39.00 

Funtastic 

Aztec Challenge (d) 

39.00 

Ariolasoft 

Aztec Challenge (d) 

59.00 

Micro-Händler 

Aztec Tomb 

39.00 

Micro-Händler 

B.C.'s Quest for Tires (cass) 

39.00 

Funtastic 

BC Bill 

39.00 

Micro-Händler 

BMX Racers (cass) 

11.95 

Mastertronic 

BMX Racers (d) 

28.95 

Mastertronic 

Balloon rescue (d) 

19.90 

Micro-Händler 

Baltic '85 

146.00 

Computer-Service 

Bandits (d) 

135.00 

Teledienst 

Bandits (d) 

59.00 

Funtastic 

Bankkonto 

49.00 

Micro-Händler 

Baron 

179.00 

Funtastic 

Baseball 

29.00 

Micro-Händler 

Baseball (cass) 

24.90 

Rushware 

Baseball (d) 

99.00 

Funtastic 

Basis 10 

15.90 

EDV-Service 

Bat Attack 

39.00 

Micro-Händler 

Battle for Midway (cass) 

52.00 

Thorn Emi 

Battle for Midway (cass) 

52.00 

Teledienst 

Battle for Midway (d) 

68.00 

Teledienst 

Battle for Midway (d) 

68.00 

Thorn Emi 

Battle for Normandy (d und cass) 

*69.00 

Computer-Service 

332® 
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Artikelbezeichnung 

Preis 

Anbieter 

Beach Head (cass) 

36.90 

Rushware 

Beach Head (cass) 

38.00 

Teledienst 

Beach Head (d) 

48.00 

Teledienst 

Beach Head (d) 

47.90 

Rushware 

Beach-Head 

69.00 

Micro-Händler 

Beaky & The Egg Snatchers (cass) 

29.00 

Funtastic 

Beaky and the egg snatchers 

39.00 

Micro-Händler 

Beam Rider (cass) 

41.90 

Rushware 

Beam Rider (cass) 

38.00 

Teledienst 

Beam Rider (d) 

78.00 

Teledienst 

Beamrider (cass) 

44.00 

Funtastic 

Beamrider (d) 

75.00 

Funtastic 

Beta Lyrae — der Kampfstern der 
Galaktik 

48.00 

Markt&Technlk 

Beyond Castle Wolfenstein 

119.00 

Computer-Service 

Beyond Castle Wolfenstein (d) 

119.00 

Teledienst 

Big Mac (cass) 

11.95 

Mastertronic 

Big Mac (d) 

28.95 

Mastertronic 

Bigtop Barney (cass) 

28.00 

Teledienst 

Bigtop Barney (cass) 

26.90 

Rushware 

Bilder Puzzle (cass) 

10.00 

Europa-Spiele 

Bilderregen (Steckmodul) 

69.00 

Otto Maier Verlag 

Bird Mother (cass) 

49.00 

Teledienst 

Bird Mother (cass) 

39.00 

Thorn Emi 

Black Hawk (cass) 

39.00 

Thorn Emi 

Black Hawk (cass) 

49.00 

Teledienst 

Black Thunder 

39.00 

Micro-Händler 

Blackout (cass) 

10.00 

Europa-Spiele 

Blagger goes to Hollywood 

39.00 

Kingsoft 

Blagger goes to Hollywood (cass) 

41.90 

Rushware 

Blaze 

39.00 

Micro-Händler 

Blockade (cass) 

10.00 

Europa-Spiele 

Blue Max (cass) 

33.00 

Funtastic 

Blue Max (cass) 

49.00 

Ariolasoft 

Blue Max (cass) 

39.00 

Teledienst 6'<ER 

Blue Max (cass) 

36.90 

Rushware 

Blue Max (d) 

59.90 

Rushware 

Blue Max (d) 

58.00 

Teledienst 

Blue Max 2001 (d) 

69.00 

Ariolasoft 

Blue Thunder (cass) 

49.00 

Teledienst 

Blue Thunder (cass) 

39.00 

Thorn Emi 

Bongo 

25.00 

Kingsoft 

Bongo (cass.) 

29.00 

Micro-Händler 

Bongo (d) 

39.90 

Rushware 

Bongo (d) 

49.00 

Micro-Händler 

Bonzo 

29.00 

Micro-Händler 

Booga Boo (cass) 

38.00 

Teledienst 

Booga boo (the Flee) 

39.00 

Micro-Händler 

Booga boo (cass) 

24.00 

Funtastic 

Boulder Dash (cass) 

32.00 

Funtastic 

Boulder Dash (cass) 

38.00 

Teledienst 

Boulder Dash (cass) 

36.90 

Rushware 

Boulder Dash (d) 

26.90 

Rushware 

Boulder Dash (d) 

38.00 

Teledienst 

Boulderdash 

49.00 

Micro-Händler 

Bounty Bob Shikes Back (cass) 

41.90 

Rushware 

Brands 

39.00 

Micro-Händler 

Break Dana (cass) 

46.90 

Rushware 

Break Fever (cass) 

26.90 

Rushware 

Break Fever 

39.00 

Micro-Händler 

Break Fever (cass) 

28.00 

Teledienst 

Breakthrough in the Ardennes 

159.00 

Computer-Service 

Brian Jacks Superstar 

39.00 

Kingsoft 

Bristles 

49.00 

Micro-Händler 

Bristles (cass) 

34.90 

Rushware 

Bristles (cass) 

39.00 

Teledienst 

Bristles (d) 

38.00 

Teledienst 

Bristles (d) 

26.90 

Rushware 

Broadsides 

159.00 

Computer-Service 

Bruce Lee (cass) 

36.90 

Rushware 

Bruce Lee (cass) 

39.00 

Funtastic 

Bruce Lee (cass) 

45.00 

Teledienst 

Bruce Lee (d) 

69.00 

Micro-Händler 

Bruce Lee (d) 

49.00 

Funtastic 


Artikelbezeichnung 

Preis 

Anbieter 

Bruce Lee (d) 

99.00 

Teledienst 

Bruce Lee (d) 

54.90 

Rushware 

Buck Rogers 

69.00 

Micro-Händler 

Buck Rogers (Modul) 

129.00 

Teledienst 

Buck Rogers (cass) 

36.90 

Rushware 

Buck Rogers (cass) 

38.00 

Teledienst 

Builder Ben 

39.00 

Micro-Händler 

Bumping Buggies 

29.00 

Micro-Händler 

Burger Time (d) 

35.00 

Funtastic 

Burgerchase 

39.00 

Micro-Händler 

Burgertime (d) 

39,00 

Micro-Händler 

Burnin Rubber 

29.00 

Kingsoft 

Burnin Rubber 

39.00 

Micro-Händler 

Börse 

21.90 

EDV-Service 

Cad Cam Warrior (cass) 

39.00 

Funtastic 

Cad Cam Warrior (cass) 

39.90 

Rushware 

Cad Cam Warrior (d) 

39.90 

Rushware 

Cad Cam Warrior 

49.00 

Micro-Händler 

Caissa (d) 

79.00 

Teledienst 

Caissa-Schachprogramm 

79.00 

Dynamics 

California Gold Rush 

19.90 

Micro-Händler 

Canaster 

32.90 

EDV-Service 

Cannonball Blitz (Modul) 

139.00 

Teledienst 

Carrier Force 

208.00 

Computer-Service 

Castle Wolfenstein 

99.00 

Computer-Service 

Castle Wolfenstein (d) 

95.00 

Teledienst 

Castle of Dr. Creep (d) 

89.00 

Ariolasoft 

Castle of Dr. Creep (d) 

79.00 

Funtastic 

Castle of Dr. Creep (d) 

79.00 

Teledienst 

Castle of Terror 

69.00 

Micro-Händler 

Cataclysm 

39.00 

Micro-Händler 

Catacombs 

39.00 

Micro-Händler 

Catacombs (cass) 

29.00 

Funtastic 

Catacombs (cass) 

24.90 

Rushware 

Catastror' - . (d) 

49.00 

Funtastic 

Cavelon (cass) 

39.00 

Thorn Emi 

Cavelon (cass) 

49.00 

Teledienst 

Cavern of Sillahc (cass ) 

26.90 

Rushware 

Cavern of Sillahc (cass) 

28.00 

Teledienst 

Caverns iof Callisto (d) 

119.00 

Teledienst 

Caverns of Kafka (cass) 

29.00 

Ariolasoft 

Caverns of Kafka (d) 

39.00 

Ariolasoft 

Caverns of Khafka (cass) 

29.00 

Teledienst 

Caverns of Khafka (cass) 

29.00 

Funtastic 

Caverns of Khafka (cass) 

28.90 

Rushware 

Caverns of Khafka (d) 

39.00 

Funtastic 

Caverns of Khafka (d) 

35.00 

Teledienst 

Caverns of Khafka (d) 

37.90 

Rushware 

Celkl Defense (d) 

79.00 

Funtastic 

Cesar the Cat (d) 

49.00 

Funtastic 

Challenger (cass) 

11.95 

Mastertronic 

Challenger (d) 

28.95 

Mastertronic 

Championship Loderunner (d) 

79.00 

Funtastic 

Championship Loderunner (d) 

89.00 

Ariolasoft 

Character Editor 

59.00 

Micro-Händler 

Checkers (d) 

179.00 

Teledienst 

Chess (d) 

249.00 

Teledienst 

Chiller (cass) 

11.95 

Mastertronic 

Chiller (d) 

28.95 

Mastertronic 

China Miner (cass.) 

29.00 

Micro-Händler 

Chines Juggler (cass) 

38.00 

Teledienst 

Chinese Juggler 

29.00 

Micro-Händler 

Chinese Juggler (cass) 

24.90 

Rushware 

Chip Factory 

39.00 

Micro-Händler 

Choplifter (Modul) 

49.00 

Funtastic 

Choplifter (Modul) 

49.00 

Teledienst 

Choplifter (d) 

89.00 

Teledienst 

Chuckie egg 

39.00 

Micro-Händler 

Ciphoid 9 (cass) 

42.90 

Rushware 

City Fighter (cass) 

11.95 

Mastertronic 

City Fighter (d) 

28.95 

Mastertronic 

Classic Adventure 

39.00 

Micro-Händler 

Classic Adventure (cass) 

24.00 

Funtastic 

Classic Adventure (cass) 

24.90 

Rushware 
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Artikelbezeichnung 

Preis 

Anbieter 

Cliff Hanger 

39.00 

Micro-Händler 

Colossus 2-0 (cass) 

39.00 

Teledienst 

Colossus 2-0 (d) 

49.00 

Teledienst 

Colossus Chaess 2-0 (d) 

49.90 

Rushware 

Colossus Chess (cass) 

49.00 

Micro-Händler 

Colossus Chess 2-0 (cass) 

37.90 

Rushware 

Colossus Chess 2.0 

49.00 

Funtastic 

Combat Leader 

79.00 

Micro-Händler 

Combat Leader (cass) 

68.00 

Teledienst 

Combat Leader (d und cass) 

*69.00 

Computer-Service 

Combat Leader (d) 

139.00 

Teledienst 

Combat Leader (d) 

139.00 

Funtastic 

Combat Lynx (cass) 

36.90 

Rushware 

Comp. Football Strategy (cass) 

59.00 

Teledienst 

Condor (cass) 

24,00 

Funtastic 

Congo Bongo 

49.00 

Micro-Händler 

Congo Bongo (Modul) 

129.00 

Teledienst 

Congo Bongo (cass) 

39.00 

Teledienst 

Congo Bongo (cass) 

36.90 

Rushware 

Congo Bongo (d) 

48.00 

Teledienst 

Congo Bongo (d) 

47.90 

Rushware 

Connect 4 

29.00 

Micro-Händler 

Cosmic Balance 

159.00 

Computer-Service 

Cosmic Convoy 

15.00 

Kingsoft 

Cosmic Convoy 

29.00 

Micro-Händler 

Cosmic Tunnels (d) 

46.00 

Teledienst 

Countdown in Meldtown (cass) 

49.00 

Teledienst 

Countdown in Meldtown (cass) 

39.00 

Thorn Emi 

Crazy Balloon 

39.00 

Micro-Händler 

Crazy Caveman (d) 

35.00 

Funtastic 

Crazy Kong (cass) 

29.00 

Micro-Händler 

Crazy Kong (d) 

35.00 

Funtastic 

Crisis Mountain (Modul) 

119.0 

Teledienst 

Crossfire (d) 

109.00 

Teledienst 

Crush. Crumble'n Chomp (d) 

99.00 

Funtastic 

Crystals of Zong (cass) 

25.00 

Funtastic 

Cuddly Cuburt (cass) 

29.00 

Micro-Händler 

Curse of Ra (cass) 

39.00 

Funtastic 

Cutthroats 

119.00 

Computer-Service 

Cybotron 

19.00 

Kingsoft 

Daley's Decathlon (cass) 

38.00 

Teledienst 

Dallas (d) 

59.00 

Funtastic 

Dallas Quest (d) 

58.00 

Teledienst 

Dame 

18.90 

EDV-Service 

Danger Mouse 1 (cass) 

29.00 

Funtastic 

Danger Mouse II (cass) 

29.00 

Funtastic 

Danger Mouse in Double Trouble (cass) 39.00 

Thorn Emi 

Danger Mouse in Forest (cass) 

38.00 

Teledienst 

Danger Mouse in Double Trouble (cass) 

37.90 

Rushware 

Danger Mouse In Trouble (cass) 

38.00 

Teledienst 

Danger Mouse in black Forest (cass) 

37.90 

Rushware 

Danger Mouse in the black 



Forest Chateau 

39.00 

Thorn Emi 

Dare Devil Dennis (cass) 

25.00 

Funtastic 

Dark Star (cass) 

11.95 

Mastertronic 

Dark Star (d) 

28.95 

Mastertronic 

Deadline 

119.00 

Computer-Service 

Deadline (d) 

119.00 

Funtastic 

Death in Caribbean (cass) 

109.00 

Teledienst 

Decathlon 

59.00 

Micro-Händler 

Decathlon (Activision) (cass) 

41.90 

Rushware 

Decathlon (Ocean) (cass) 

41.90 

Rushware 

Decathlon (cass) 

38.00 

Teledienst 

Decathlon (cass) 

44.00 

Funtastic 

Decathlon (cass) 

49.00 

Ariolasoft 

Decathlon (d) 

69.00 

Funtastic 

Decathlon (d) 

69.00 

Ariolasoft 

Defender (d) 

39.00 

Micro-Händler 

Derby day 

29.00 

Micro-Händler 

Diamond code & Supermind 

29.00 

Micro-Händler 

Didac (d) 

82.90 

Rushware 

Die Kristallgrotte (d) 

49.00 

Funtastic 

Die Spürnasen (d) 

69.00 

Otto Maier Verlag 

Die verflixte Karotte (cass) 

39.00 

Otto Maier Verlag 
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Artikelbezeichnung 

Preis 

Anbieter 

Dig Dug (Modul) 

49.00 

Funtastic 

Dinky Doo 

39.00 

Micro-Händler 

Dino Eggs (d) 

59.00 

Funtastic 

Domino 

15.90 

EDV-Service 

Dragon Hawk (cass) 

49.00 

Teledienst 

Dragon Hawk (d) 

109.00 

Funtastic 

Dragon Hawk (d) 

69.00 

Teledienst 

Dragonriders of Pern (d) 

139.00 

Teledienst 

Dragonriders of Pern (d) 

139.00 

Funtastic 

Dragonriders of Pern (cass) 

139.00 

Teledienst 

Dragonworld (d) 

99.90 

Rushware 

Dragonworld (d) 

99.00 

Funtastic 

Drelbs 

49,00 

Micro-Händler 

Drelbs (cass) 

38.00 

Teledienst 

Drelbs (cass) 

36.90 

Rushware 

Drelbs (d) 

55.00 

Teledienst 

Drelbs (d) 

79.00 

Funtastic 

Drelbs (d) 

54.90 

Rushware 

Duck Shoot (cass) 

11.95 

Mastertronic 

Duck Shoot (d) 

28.95 

Mastertronic 

Egbert 

29.00 

Micro-Händler 

Empire of Karn (cass) 

26.90 

Rushware 

Empire of Karn (cass) 

29.00 

Teledienst 

Enchanter 

173.00 

Computer-Service 

Enchanter (d) 

179.00 

Funtastic 

Encounter (cass) 

38.00 

Teledienst 

Encounter (cass) 

39.00 

Funtastic 

Encounter (d) 

47.90 

Rushware 

Encounter (d) 

48.00 

Teledienst 

Encounter(cass) 

36.20 

Rushware 

Eric the Vicing (c) 

48.00 

Teledienst 

Eric the Viking (cass) 

49.00 

Funtastic 

Eureka (cass) 

61.90 

Rushware 

Eureka (d) 

61.90 

Rushware 

Evei, st Ascent 

39.00 

Micro-Händler 

Expedition Amazon (d) 

109.00 

Teledienst 

Exterminator 

29.00 

Micro-Händler 

Exterminator 

10.00 

Kingsoft 

F 15 Strike Eagle (cass) 

54.90 

Rushware 

F 15 Strike Eagle (d) 

54.90 

Rushware 

F-15 Strike Eagle (cass) 

49.00 

Teledienst 

Fl 5 Strike Eagle 

79.00 

Micro-Händler 

Fl 5 Strike Eagle (d) 

49.00 

Teledienst 

F.T. Apocalypse (cass) 

39.00 

Teledienst 

FT. Apocalypse (d) 

48.00 

Teledienst 

Fabules Wanda 

39.00 

Micro-Händler 

Fahrenheit 451 (d) 

79.00 

Teledienst 

Fahrenheit 451 (d) 

99.00 

Funtastic 

Fahrenheit 451 (d) 

99.90 

Rushware 

Falcon Patrol (cass) 

29.00 

Funtastic 

Falcon Patrol 2 (cass 

37.90 

Rushware 

Falcon Patrol II 

29.00 

Funtastic 

Falcon Patrol II (cass) 

29.00 

Teledienst 

Fantic Freddy 

19.90 

Micro-Händler 

Fast Eddie (d) 

39.00 

Funtastic 

Field of Fire 

159.00 

Computer-Service 

Fighter Pilot (cass) 

49.00 

Teledienst 

Fighter Pilot (d) 

49.00 

Thorn Emi 

Fighter Pilot (d) 

49.00 

Teledienst 

Fire Ant 

39.00 

Micro-Händler 

Fire Quest (cass) 

29.00 

Funtastic 

Fische fischen (cass) 

10.00 

Europa-Spiele 

Flak (cass) 

38.00 

Teledienst 

Flak (cass) 

36.90 

Rushware 

Flight 747 (cass) 

49.00 

Teledienst 

Flight Pat 737 (cass) 

29.00 

Funtastic 

Flight Pat 737 (d) 

45.00 

Teledienst 

Flight Path 737 

29.00 

Kingsoft 

Flight Path 737 (cass) 

35.00 

Teledienst 

Flight Path 737 (cass) 

29.90 

Rushware 

Flight Path 737 (d) 

49.00 

Micro-Händler 

Flight Path 737 (d) 

32.90 

Rushware 

Flight Simulator 2 (cass) 

165.90 

Rushware 

Flight Simulator II 

169.00 

Computer-Service 
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Artikelbezeichnung 

Preis 

Anbieter 

Flightpath 737 (cass) 

39.00 

Thorn Emi 

Ghostbusters (d) 

39.00 

Funtastic 

Flightsimulator II (cass) 

145.00 

Teledienst 

Ghostbusters (d) 

69.00 

Ariolasoft 

Flightsimulator II (d) 

155.00 

Teledienst 

Gilligans Gold (cass) 

49.00 

Teledienst 

Flightsimulator II (d) 

181.90 

Rushware 

Gilligans Gold (cass) 

39.00 

Thorn Emi 

Fllgth Path 737 (d) 

39.00 

Funtastic 

Give my Regards to Broad Street 



Flip 8 Flop (cass) 

49.00 

Micro-Händler 

(cass) 

31.90 

Rushware 

Flip 8 Flop (d) 

59.00 

Micro-Händler 

Glider Pilot (cass) 

41.90 

Rushware 

Flip + Flop (cass) 

26.90 

Rushware 

Glücksritter (cass) 

55.00 

Teledienst 

Flip + Flop (cass) 

99.00 

Teledienst 

Glücksritter (d) 

65.00 

Teledienst 

Flip + Flop (d) 

26.90 

Rushware 

Golf (d) 

139.00 

Funtastic 

Flip + Flop (d) 

48.00 

Teledienst 

Gordon Saga (d) 

39.00 

MarktSTechnik 

Flugsimulator 11 (cass) 

139.00 

Funtastic 

Graff (d) 

52.90 

Rushware 

Flugsimulator II (d) 

179.00 

Funtastic 

Graff (d) 

48.00 

Teledienst 

Flyer Fox 

49.00 

Micro-Händler 

Grandmaster 

39.00 

Kingsoft 

Flyer Fox (cass) 

39.00 

Teledienst 

Grandmaster Chess (cass) 

29.00 

Micro-Händler 

Flyer Fox (cass) 

39.90 

Rushware 

Grandmaster Chess (d) 

39.00 

Micro-Händler 

Flying Ace (cass) 

99.00 

Teledienst 

Grandprix 

15.90 

EDV-Service 

Flying Feathers 

29.00 

Micro-Händler 

Gridrunner 

29.00 

Micro-Händler 

Flying Feathers (cass) 

25.00 

Funtastic 

Grldrunner (Modul) 

29.00 

Funtastic 

Football Manager 

35.00 

Kingsoft 

Grog's Revenge (cass) 

41.90 

Rushware 

Football Manager (cass) 

31.90 

Rushware 

Gryphon 

39.00 

Micro-Händler 

Forbidden Forest (cass) 

29.00 

Teledienst 

Guardian (cass) 

24.90 

Rushware 

Forbidden Forest (cass) 

29.00 

Funtastic 

Gun Dogs (cass) 

39.00 

Funtastic 

Forbidden Forest (cass) 

29.00 

Ariolasoft 

Gyropod 

15.00 

Kingsoft 

Forbidden Forest (cass) 

39.00 

Micro-Händler 

H.E.R.O. (cass) 

35.00 

Teledienst 

Forbidden Forest (d) 

39.00 

Ariolasoft 

H.E.R.O. (cass) 

41.90 

Rushware 

Forbidden Forest (d) 

59.00 

Micro-Händler 

H.E.R.O. (cass) 

49.00 

Ariolasoft 

Forbidden Forest (d) 

39.00 

Funtastic 

H.E.R.O. (cass) 

44.00 

Funtastic 

Forbidden Forest (d) 

37.90 

Rushware 

H.E.R.O. (d) 

75.00 . 

Funtastic 

Forbidden Forest (d) 

39.00 

Teledienst 

H.E.R.O. (d) 

69.00 

Teledienst 

Fort Apocalypse (cass) 

39.00 

Funtastic 

H.E.R.O. (d) 

69.00 

Ariolasoft 

Fort Apocalypse (cass) 

36.90 

Rushware 

HES Games (d) 

109.00 

Teledienst 

Fort Apocalypse (d) 

44.00 

Funtastic 

Halma 

21.90 

EDV-Service 

Fort Apocalypse (d) 

47.90 

Rushware 

Hamstead 

49.00 

Micro-Händler 

Fort Apokalypse (cass) 

49.00 

Micro-Händler 

Hart Hat' - k (cass) 

49.00 

Ariolasoft 

Fort Apokalypse (d) 

69.00 

Micro-Händler 

Havoc (cass) 

31.90 

Rushware 

Frac (cass) 

38.00 

Teledienst 

Havoc (cass) 

38.00 

Teledienst 

Frak 

49.00 

Micro-Händler 

Hellgate 

29.00 

Micro-Händler 

Frak (cass) 

36.90 

Rushware 

Hexenküche (cass) 

29.90 

Rushware 

Fratzenschneider (Steckmodul) 

69.00 

Otto Maier Verlag 

Hexpert (cass) 

29.00 

Micro-Händler 

Fred 

39.00 

Micro-Händler 

Hexpert (d) 

49.00 

Micro-Händler 

Frogger (Modul) 

169.00 

Teledienst 

Hideous Bill 8 The Giants (cass) 

29.00 

Funtastic 

Frogger (cass) 

119.00 

Teledienst 

High Noon 

39.00 

Micro-Händler 

Frogger (cass) 

39.00 

Funtastic 

High Noon (cass) 

24.90 

Rushware 

Frogger (cass) 

29.00 

Micro-Händler 

High Noon (cass) 

36.00 

Teledienst 

Frogger (d) 

39.00 

Micro-Händler 

Hitchhikers Guide to the Galaxy 

119.00 

Computer-Service 

Frogger (d) 

119.00 

Teledienst 

Hitman 

29.00 

Micro-Händler 

Galaxy 

25.00 

Kingsoft 

Hobbit 

49.00 

Kingsoft 

Galaxy (cass) 

39.00 

Micro-Händler 

Hobbit (cass) 

49.00 

Funtastic 

Games Creator (cass) 

37.90 

Rushware 

Hobbit 64 

69.00 

Micro-Händler 

Gandalf (cass) 

39.90 

Rushware 

House Jack Built (cass) 

25.00 

Funtastic 

Gandalf (cass) 

38.00 

Teledienst 

House of Usher 

29.00 

Kingsoft 

Gangster 

19.90 

Micro-Händler 

House of Usher (cass) 

29.00 

Teledienst 

Gas Kit (cass) 

69.00 

Micro-Händler 

House of Usher (cass) 

29.00 

Funtastic 

Gas Kit (d) 

79.00 

Micro-Händler 

House of Usher (cass) 

39.00 

Micro-Händler 

Gateway to Asphai (Modul) 

99.00 

Teledienst 

House of Usher (cass) 

28.90 

Rushware 

Geisterhaus (cass) 

19.90 

Micro-Händler 

House of Usher (d) 

39.00 

Funtastic 

Geisterhaus (d) 

19.90 

Micro-Händler 

House of Usher (d) 

39.90 

Rushware 

Gemstone Warrior 

159.00 

Computer-Service 

House of Usher (d) 

38.00 

Teledienst 

Genesis (d) 

99.00 

Teledienst 

House of Usher (d) 

49.00 

Micro-Händler 

Geopolitique 1990 

159.00 

Computer-Service 

Houver Bouver (cass) 

19.00 

Funtastic 

Geschichtenschreiber (d) 

69.00 

Otto Maier Verlag 

Hover Bover 

29.00 

Micro-Händler 

Get off my Garden (d) 

35.00 

Funtastic 

How about Chess (d) 

99.00 

Teledienst 

Get off my Garden 

39.00 

Micro-Händler 

Hulk (cass) 

39.00 

Funtastic 

Ghost Busters (cass) 

41.90 

Rushware 

Hulk (cass) 

42.90 

Rushware 

Ghost Manor (d) 

49.00 

Funtastic 

Hulk (cass) 

38.00 

Teledienst 

Ghost Manor / Spikes Peak (d) 

88.00 

Teledienst 

Hulk (d) 

49.00 

Funtastic 

Ghostbusters 

39.00 

Kingsoft 

Hulk (d) 

48.00 

Teledienst 

Ghostbusters (cass) 

49.00 

Thorn Emi 

Hunchback 

29.00 

Micro-Händler 

Ghostbusters (cass) 

35.00 

Teledienst 

Hunchback 

25.00 

Kingsoft 

Ghostbusters (cass) 

49.00 

Ariolasoft 

Hunchback 2 

39.00 

Micro-Händler 

Ghostbusters (cass) 

35.00 

Funtastic 

Hunchback II (cass) 

34.00 

Teledienst 

Ghostbusters (cass) 

49.00 

Micro-Händler 

Hunchback at the Olympics (cass) 

29.90 

Rushware 

Ghostbusters (d) 

79.00 

Micro-Händler 

Hunchbank (cass) 

25.00 

Funtastic 
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Hunchbank II (cass) 

Hungry Horace 
Hustler 
Hustler 
Hustler (cass) 

Hyper Biker (cass) 

Hyper Biker (cass) 

Hypercircuit (cass) 

Höhlenkerle (d) 

Ice Hunter 
Ice Hunter (cass) 

Ice Hunter (d) 

Impossible Mission 
Imposslble Mission 
Impossible Mission (cass) 
Impossible Mission (cass) 
Impossible Mission (cass) 
Impossible Mission (d) 

Indian Attack (cass) 

Indiana Jones 
Indiana Jones (cass) 

Indiana Jones (cass) 

Infidel 
Infidel (d) 

Int. Basketball 
International Baseball (cass) 
International Soccer II (Modul) 
Jack & the Beanstalk 
Jack + the Beanstalk (cass) 
Jammin 
Jammin (cass) 

Jammin (d) 

Jammin (d) 

Java Jim (cass) 

Jawbreaker (Modul) 

Jawbreaker (d) 

Jet Set Willy (cass) 

Jet Set Willy (cass) 

Jet Set Willy (cass) 

Jet Set Willy (cass) 

Jonny 8 the Jimpeys 
Jinn Genie 

Jonny + the Jimpies (cass) 

Jonny and the Jimpies (cass) 

Juice 

Juice (d) 

Juice'(d) 

Juice (d) 

Jump Challenge (cass) 

Jump Challenge (cass) 

Jump Man jr. (Modul) 

Jumpman (cass) 

Jumpman (d) 

Jumpman jr. (Modul) 

Kaiser (d) 

Kaiser (d) 

Kaktus 
Kami-Kaze 
Karateka (d) 

Kegeln 

Ken Uston's Black Jack (d) 

Kick Off 
Killer Watt 

Kindercomp (Steckmodul) 

Knight’s in the Desert (d und cass) 

Knightmare 

Knights of Desert (d) 

Knights of the Desert (cass) 
Kokotoni Wilf (cass) 

Kokotoni Wilf 

Kong 

Kong 

Kong strikes back 
Kong strikes back (cass) 


28.90 

Rushware 

29.00 

Micro-Händler 

19.00 

Kingsoft 

29.00 

Micro-Händler 

24.00 

Funtastic 

49.00 

Teledienst 

39.00 

Thorn Emi 

31.90 

Rushware 

48.00 

MarktSTechnlk 

10.00 

Kingsoft 

39.00 

Micro-Händler 

49.00 

Micro-Händler 

39.00 

Kingsoft 

59.00 

Micro-Händler 

47.90 

Rushware 

45.00 

Teledienst 

49.00 

Funtastic 

59.00 

Funtastic 

22.00 

Funtastic 

49.00 

Micro-Händler 

39.90 

Rushware 

39.00 

Teledienst 

173.00 

Computer-Service 

179.00 

Funtastic 

29.00 

Kingsoft 

26.90 

Rushware 

49.00 

Teledienst 

39.00 

Micro-Händler 

28.90 

Rushware 

15.00 

Kingsoft 

29.00 

Micro-Händler 

35.00 

Funtastic 

39.00 

Micro-Händler 

39.00 

Thorn Emi 

129.00 

Teledienst 

119.00 

Teledienst 

28.00 

Teledienst 

39.00 

Thorn Emi 

29.00 

Funtastic 

29.90 

Rushware 

39.00 

Micro-Händler 

39.00 

Micro-Händler 

24.90 

Rushware 

25.00 

Funtastic 

39.00 

Micro-Händler 

119.00 

Teledienst 

49.00 

Funtastic 

59.90 

Rushware 

49.00 

Teledienst 

39.00 

Funtastic 

59.00 

Funtastic 

48.00 

Teledienst 

139.00 

Teledienst 

98.00 

Teledienst 

79.00 

Teledienst 

75.00 

Funtastic 

39.00 

Micro-Händler 

39.00 

Micro-Händler 

89.00 

Ariolasoft 

24.90 

EDV-Service 

119.00 

Funtastic 

29.00 

Micro-Händler 

39.00 

Micro-Händler 

59.00 

Otto Maier Verlag 

•69.00 

Computer-Service 

39.00 

Micro-Händler 

139.00 

Teledienst 

139.00 

Teledienst 

32.90 

Rushware 

49.00 

Micro-Händler 

29.00 

Kingsoft 

49.00 

Micro-Händler 

35.00 

Kingsoft 

28.90 

Rushware 


Kong strikes back (cass) 
KrystaJs of Zong 
Krystals of Zong (cass) 

Krytals of Zong (cass) 

Kunibert 8 Kunigunde 
Kunibert und Kunigunde (cass) 
Kunibert und Kunigunde (cass) 
Lady Tut (d) 

Lady Tut (d) 

Las Vegas 
Laser Zone 
Last Gladiator (d) 

Lazy Jones 
Loco 

Lode Runner (Modul) 

Lode Runner I (Modul) 

Lode Runner II (d) 

Logo 

Lonely Rider (d) 

Lords of Midnight 
Lords of Time 

Lords of the Midnight (cass) 
Lunar Leeper (Modul) 

Lunar Outpost (d) 

M.U.L.E. (d) 

Macbeth (Doppelpackung) 
Macbeth (cass) 

Macbeth (cass) 

Magic Carpet (cass) 

Magic Carpet (d) 

Manie Miner (cass) 

Manie Miner (cass) 

Manie Minner (cass) 

Mask of the Sun 
1"- ; of the Sun (d) 

Mask of the Sun (deutsch) (d) 
Mask of the Sun (englisch) (d) 
Mask of the Sun (englisch) (d) 
Master of the Lamps (cass) 
Masters of Time (d) 

Matchpoint (d) 

Matrix 
Mau-Mau 
Megahawk 
Megahawk (cass) 

Memory 
Menschärgere 
Metro Blitz (cass) 

Metro Blitz (cass) 

Metroblitz 

Micro Olympics (cass) 

Midway Campaign 
Millionaire (d) 

Millionaire (d) 

Mind Control (cass) 

Mind Control (d) 

Mind Shadow (d) 

Missile Command (cass) 

Missile Command (d) 

Mission Asteroid (d) 

Mission Asteroid (d) 

Moby Dick (cass) 

Mond 
Monopoly 
Monopoly (cass) 

Monopoly (cass) 

Monster Munch 
Monty Mole (cass) 

Monty Mole (cass) 

Moon Buggy (cass) 

Moon Cresta (cass) 

Moon Shuttle (d) 

Moon Shuttle (d) 

Mothership 


34.00 

Teledienst 

39.00 

Micro-Händler 

39.00 

Thorn Emi 

49.00 

Teledienst 

39.00 

Micro-Händler 

29.00 

Funtastic 

39.00 

Teledienst 

49.00 

Funtastic 

99.00 

Teledienst 

39.00 

Micro-Händler 

25.00 

Kingsoft 

79.00 

Funtastic 

39.00 

Micro-Händler 

39.00 

Micro-Händler 

49.00 

Funtastic 

49.00 

Teledienst 

88.00 

Teledienst 

49.00 

Micro-Händler 

48.00 

MarktSTechnik 

49.00 

Micro-Händler 

49.00 

Micro-Händler 

48.00 

Teledienst 

49.00 

Funtastic 

139.00 

Teledienst 

88.00 

Teledienst 

59.00 

Thorn Emi 

69.00 

Teledienst 

59.00 

Funtastic 

11.95 

Mastertronic 

28.95 

Mastertronic 

49.00 

Teledienst 

29.00 

Funtastic 

39.00 

Thorn Emi 

129.00 

Computer-Service 

89.00 

Funtastic 

88.00 

Teledienst 

99.00 

Ariolasoft 

98.00 

Teledienst 

46.90 

Rushware 

69.00 

Teledienst 

38.00 

Teledienst 

39.00 

Micro-Händler 

15.90 

EDV-Service 

29.00 

Micro-Händler 

24.00 

Funtastic 

15.90 

EDV-Service 

21.90 

EDV-Service 

39.00 

Thorn Emi 

49.00 

Teledienst 

39.00 

Micro-Händler 

24.00 

Funtastic 

59.00 

Computer-Service 

189.00 

Teledienst 

179.00 

Funtastic 

11.95 

Mastertronic 

28.95 

Mastertronic 

82.90 

Rushware 

29.00 

Micro-Händler 

39.00 

Micro-Händler 

39.00 

Funtastic 

109.00 

Teledienst 

39.00 

Teledienst 

15.90 

EDV-Service 

24.90 

EDV-Service 

56.00 

Teledienst 

56.00 

Thorn Emi 

29.00 

Micro-Händler 

28.90 

Rushware 

28.00 

Teledienst 

39.00 

Micro-Händler 

31.90 

Rushware 

99.00 

Teledienst 

49.00 

Funtastic 

39.00 

Micro-Händler 
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Mothership (cass) 

89.00 

Teledienst 

Paint Magic (d) 

59.00 

Markt&Technik 

Mothership (d) 

109.00 

Teledienst 

Panic (cass) 

29.00 

Micro-Händler 

Motor Cross 

39.00 

Micro-Händler 

Panic (d) 

39.00 

Micro-Händler 

Motor Mania 

11.00 

Micro-Händler 

Party Nonsense (d) 

65.00 

Teledienst 

Motorcross (d) 

119.00 

Teledienst 

Past Finder (cass) 

44.00 

Funtastic 

Mr. Cool (Modul) 

139.00 

Teledienst 

Pastfinder (cass) 

48.00 

Teledienst 

Mr. Cool (Modul) 

49.00 

Funtastic 

Pastfinder (cass) 

44.90 

Rushware 

Mr. Robot & His Robot Fa (d) 

46.00 

Teledienst 

Pastfinder (d) 

79.00 

Teledienst 

Mr. Robot (cass) 

48.00 

Teledienst 

Pastfiner (cass) 

49.00 

Ariolasoft 

Mr. Robot (d) 

48.00 

Markt&Technik 

Pastfiner (d) 

69.00 

Ariolasoft 

Mr. TNT (Modul) 

88.00 

Teledienst 

Pensate (d) 

79.00 

Teledienst 

Mr. TNT (Modul) 

29.00 

Funtastic 

Pensate (d) 

69.00 

Funtastic 

Mr. Wimpy 

29.00 

Micro-Händler 

Pesky Painter 

39.00 

Micro-Händler 

Mr. Wimpy 

25.00 

Kingsoft 

Petch 

25.00 

Kingsoft 

Mr. Wimpy (cass) 

24.00 

Funtastic 

Petch (cass) 

39.00 

Micro-Händler 

Multisound Synthesizer (cass) 

47.90 

Rushware 

Petch (d) 

36.00 

Funtastic 

Murder by the Dozen (d) 

119.00 

Teledienst 

Petch (d) 

49.00 

Micro-Händler 

Murder of the Zinderneuf (d) 

89.00 

Funtastic 

Pferde 

15.90 

EDV-Service 

Murder of the Zinderneuf (d) 

69.00 

Ariolasoft 

Pharao’s Curse (d) 

88.00 

Teledienst 

Murder on the Zinderneuf (d) 

66.90 

Rushware 

Pharao’s Curse (cass) 

88.00 

Teledienst 

Murder on the Zinderneuf (d) 

88.00 

Teledienst 

Pilot 64 (cass) 

24.00 

Funtastic 

Murphy 

39.00 

Micro-Händler 

Pinball Constr. Set (d) 

88.00 

Teledienst 

Musical Movie Madness (d) 

79.00 

Teledienst 

Pipeline (cass) 

29.00 

Funtastic 

Mystic Manson (cass) 

38.00 

Teledienst 

Pipeline (d) 

36.00 

Funtastic 

Mühle 

19.90 

EDV-Service 

Pirat Adventure (cass) 

44.00 

Funtastic 

Nato Commander (cass) 

47.90 

Rushware 

Pitfall (cass) 

41.90 

Rushware 

Nato Commander (cass) 

44.00 

Funtastic 

Pitfall (cass) 

48.00 

Teledienst 

Nato Commander (d) 

49.00 

Funtastic 

Pitfall 1 

49.00 

Micro-Händler 

Nato Commander (d) 

47.90 

Rushware 

Pitfall II (cass) 

49.00 

Ariolasoft 

Neoclyps 

39.00 

Micro-Händler 

Pitfall II (cass) 

49.00 

Funtastic 

Neoclyps (cass) 

39.00 

Thorn Emi 

Pitfall II (cass) 

39.00 

Teledienst 

Neoclyps (cass) 

38.00 

Teledienst 

Pitfall II (d) 

79.00 

Teledienst 

Neoclypse (cass) 

29.00 

Funtastic 

Pitfall II (d) 

69.00 

Ariolasoft 

Neptun’s Daugther (cass) 

29.00 

Funtastic 

Pitfall II (d) 

75.00 

Funtastic 

Neutral Zone (cass) 

119.00 

Teledienst 

Pitfall II (0® ■ 

34.90 

Rushware 

Neutral Zone (d) 

119.00 

Teledienst 

Pitstop 

39.00 

Kingsoft 

New York City (cass) 

68.00 

Teledienst 

Pitstop (Modul) 

98.00 

Teledienst 

New York City (cass) 

49.00 

Ariolasoft 

Pitstop 2 

66.90 

Rushware 

New York City (cass) 

69.00 

Funtastic 

Pitstop II (cass) 

49.00 

Funtastic 

New York City (d) 

69.00 

Ariolasoft 

Pitstop II (cass) 

48.00 

Teledienst 

New York City (d) 

88.00 

Teledienst 

Pitstop II (cass) 

42.90 

Rushware 

New York City (d) 

79.00 

Funtastic 

Pitstop II (d) 

59.00 

Funtastic 

Night Mission Pinball (cass) 

109.00 

Teledienst 

Planetfall 

173.00 

Computer-Service 

Night Mission Pinball (d) 

119.00 

Teledienst 

Planetfall (d) 

179.00 

Funtastic 

Night Mission Pinball (d) 

129.00 

Funtastic 

Plumb Crazy 

39.00 

Micro-Händler 

O'Rileys Mine 

49.00 

Micro-Händler 

Pogo Joe (cass) 

39.00 

Funtastic 

O'Rileys Mine (cass) 

38.00 

Teledienst 

Pogo Joe (d) 

39.00 

Funtastic 

O'Rileys Mine (d) 

99.00 

Teledienst 

Pole Position 

69.00 

Micro-Händler 

Odesta Chess (d) 

99.00 

Funtastic 

Pole Position (cass) 

38.00 

Teledienst 

Odin (d) 

179.00 

Teledienst 

Pole Position (cass) 

36.90 

Rushware 

Oll’s Well (Modul) 

119.00 

Teledienst 

Pool Challenge (Modul) 

109.00 

Teledienst 

Oll’s Well (d) 

109.00 

Teledienst 

Pooyan(cass) 

99.00 

Teledienst 

Oii’s Well (Modul) 

59.00 

Funtastic 

Pooyan (d) 

69.00 

Micro-Händler 

Olympic (cass) 

29.00 

Funtastic 

Popeye (Modul) 

169.00 

Teledienst 

Olympic Skier 

29.00 

Micro-Händler 

Poster Paster (cass) 

28.90 

Rushware 

Omega Race (Modul) 

39.00 

Funtastic 

Poster Paster (cass) 

28.00 

Teledienst 

On Court Tennis (cass) 

48.00 

Teledienst 

Potty Pigeon 

39.00 

Micro-Händler 

On Court Tennis (d) 

78.00 

Teledienst 

Protector II (cass) 

88.00 

Teledienst 

On-Court-Tennis (cass) 

49.00 

Ariolasoft 

Protector II (d) 

88.00 

Teledienst 

On-Court-Tennis (d) 

69.00 

Ariolasoft 

Psytron 

59.00 

Micro-Händler 

One on One (d) 

89.00 

Funtastic 

Psytron (cass) 

48.00 

Teledienst 

One on One (d) 

88.00 

Teledienst 

Punchy(cass) 

39.00 

Funtastic 

One-On-One (cass) 

49.00 

Ariolasoft 

Purple Turtles 

10.00 

Kingsoft 

One-On-One (d) 

69.00 

Ariolasoft 

Purple Turtles 

39.00 

Micro-Händler 

Operation Swardfish (cass) 

32.90 

Rushware 

Pyramid (d) 

29.00 

Micro-Händler 

Operation Whirlwind 

109.00 

Computer-Service 

Q-Bert (Modul) 

169.00 

Teledienst 

Operation Whirlwind (d) 

139.00 

Teledienst 

Q-Bert (Modul) 

59.00 

Funtastic 

Operation Whirlwind (d) 

139.00 

Funtastic 

Quango 

39.00 

Micro-Händler 

Orbitron (cass) 

11.95 

Mastertronic 

Quari (cass) 

19.00 

Funtastic 

Orbitron (d) 

28.95 

Mastertronic 

Quasar 

29.00 

Micro-Händler 

Orc Attack (cass) 

39.00 

Thorn Emi 

Quasar (cass) 

25.00 

Funtastic 

Crc Attack (cass) 

49.00 

Teledienst 

Quasimodo (cass) 

49.00 

Ariolasoft 

PC Fuzz 

39.00 

Micro-Händler 

Quasimodo (d) 

69.00 

Ariolasoft 

'PSI Warrior 

59.00 

Micro-Händler 

Quest (d) 

118.00 

Teledienst 
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Artikelbezeichnung 

Preis 

Anbieter 

Quest for Tires (Modul) 

129.00 

Teledienst 

Secret Mission (cass) 

38.00 

Teledienst 

Quest for Tires (cass) 

29.90 

Rushware 

Secret Mission (cass) 

39.00 

Funtastic 

Quest for Tires (cass) 

39.00 

Teledienst 

Seeschlacht (cass) 

10.00 

Europa-Spiele 

Quest for Tires (d) 

119.00 

Teledienst 

Select 1 

59.00 

Micro-Händler 

Quest for the Garden of Eden 

39.00 

Micro-Händler 

Select One (12-Spiele-Pack, cass) 

49.90 

Rushware 

Quest for the Garden of Eden (cass) 

29.00 

Funtastic 

Sentinel (cass) 

39.00 

Teledienst 

Questron 

173.00 

Computer-Service 

Sentinel (cass) 

36.90 

Rushware 

Questron (d) 

169.00 

Funtastic 

Sentinel (d) 

79.00 

Funtastic 

Quick Tinking (d) 

49.00 

Funtastic 

Sentinel (d) 

54.90 

Rushware 

Quintic Warrior 

10.00 

Kingsoft 

Sentinel (d) 

58.00 

Teledienst 

Quintic Warrior 

39.00 

Micro-Händler 

Serpentine (Modul) 

49.00 

Funtastic 

Quinx 

39.00 

Micro-Händler 

Serpentine (Modul) 

49.00 

Teledienst 

Quo Vadis (cass) 

32.90 

Rushware 

Seven Cities of Gold (d) 

89.00 

Funtastic 

Quo Vadis (cass) 

38.00 

Teledienst 

Shades (cass) 

32.90 

Rushware 

R-Nest 

10.00 

Kingsoft 

Shadow Fax (cass) 

25.00 

Funtastic 

Raid in Bungeling Bay (cass) 

58.00 

Teledienst 

Shadowfire (cass) 

41.90 

Rushware 

Raid in Bungeling Bay (d) 

58.00 

Teledienst 

Shamus Case II (cass) 

49.00 

Ariolasoft 

Raid on Bungeling Bay (cass) 

39.00 

Funtastic 

Shamus Case II (d) 

79.00 

Funtastic 

Raid on Bungeling Bay (d) 

49.00 

Funtastic 

Shamus Case II (d) 

69.00 

Ariolasoft 

Raid over Moscow (d) 

47.90 

Rushware 

Shamus 1 (cass) 

65.00 

Teledienst 

Raid over Moscow (cass) 

39.00 

Funtastic 

Shamus 1 (d) 

88.00 

Teledienst 

Raid over Moscow (d) 

49.00 

Funtastic 

Shamus II (cass) 

65.00 

Teledienst 

Raid over Moskow (cass) 

36.90 

Rushware 

Shamus II (d) 

89.00 

Teledienst 

Raid over bungeling Bay (cass) 

47.90 

Rushware 

Sheep in Space 

29.00 

Micro-Händler 

Raid over bungeling Bay (d) 

54.90 

Rushware 

Sherlock Holmes 

69.00 

Micro-Händler 

Rasenmäher (cass) 

10.00 

Europa-Spiele 

Ship of the Line 

39.00 

Micro-Händler 

Rattler 

29.00 

Micro-Händler 

Ship on the Line (d) 

39.00 

Funtastic 

Realm of Impossibility (d) 

69.00 

Ariolasoft 

Show Jumping (cass) 

25.00 

Funtastic 

Realm of Impossibility (d) 

88.00 

Teledienst 

Showjumping (cass) 

35.00 

Teledienst 

Rendezvous with Rama (d) 

89.00 

Teledienst 

Ski Weltcup (d) 

75.00 

Funtastic 

Renaissance 

29.00 

Micro-Händler 

Ski-Weltcup (d) 

69.00 

Ariolasoft 

Rendezvous with Rama (d) 

99.90 

Rushware 

Ski-Weltcup (d) 

75.00 

Teledienst 

Rendezvous with Rama (d) 

99.00 

Funtastic 

Skramble 

29.00 

Kingsoft 

Repton (d) 

59.00 

Funtastic 

Skramble (d) 

49.00 

Micro-Händler 

Rescue Squad (d) 

39.00 

Funtastic 

feKui' 

39.00 

Micro-Händler 

Revenge of the Mutant Camels 

39.00 

Micro-Händler 

Skull (d) 

35.00 

Funtastic 

Richard Petty's Rennzirkus (cass) 

39.00 

Ariolasoft 

Slalom (d) 

49.00 

Funtastic 

Richard Petty's Rennzirkus (d) 

49.00 

Ariolasoft 

Slam Ball (d) 

49.00 

Funtastic 

Ripper (d) 

49.00 

Funtastic 

Slapshot 

59.00 

Micro-Händler 

River Raid (cass) 

38.00 

Teledienst 

Slapshot 

35.00 

Kingsoft 

River Raid (cass) 

44.00 

Funtastic 

Slapshot (cass) 

28.00 

Teledienst 

River Raid (d) 

69.00 

Teledienst 

Slapshot (cass) 

29.90 

Rushware 

River Rescue (cass) 

49.00 

Teledienst 

Slapshot (d) 

38.00 

Teledienst 

River Rescue (cass) 

39.00 

Thom Emi 

Slapshot (d) 

36.90 

Rushware 

Robbers of last Tomb (cass) 

89.00 

Teledienst 

Slinky (d) 

39.00 

Ariolasoft 

Robotron (modul) 

49.00 

Funtastic 

Slinky (cass) 

29,00 

Teledienst 

Rocket Ball 

39.00 

Micro-Händler 

Slinky (cass) 

29.00 

Ariolasoft 

Rocket Ball (cass) 

32.90 

Rushware 

Slinky (cass) 

28.90 

Rushware 

Rocketball 

35.00 

Kingsoft 

Slinky (cass) 

39.00 

Micro-Händler 

Rollerball 

29.00 

Micro-Händler 

Slinky (cass) 

29.00 

Funtastic 

Roulett 

24.90 

EDV-Service 

Slinky (d) 

39.00 

Funtastic 

Roundabout (cass) 

99.00 

Teledienst 

Slinky (d) 

38.00 

Teledienst 

Roundabout (d) 

99.00 

Teledienst 

Slinky (d) 

49.00 

Micro-Händler 

Run for the Money (d) 

139.00 

Teledienst 

Slurpy (cass) 

49.00 

Teledienst 

S-Games (d) 

79.00 

Ariolasoft 

Slurpy (cass) 

39.00 

Funtastic 

Sag's der Schildkröte (d) 

79.00 

Otto Maier Verlag 

Slurpy (cass) 

39.00 

Thom Emi 

Sam's Jam 

39.00 

Micro-Händler 

Snake Bite (d) 

39.00 

Funtastic 

Sammy Lightfoot (d) 

109.00 

Teledienst 

Snokle (cass) 

36.90 

Rushware 

Sammy Lightfoot (Modul) 

139,00 

Teledienst 

Snokie (cass) 

38.00 

Teledienst 

Sammy Lightfoot (Modul) 

49.00 

Funtastic 

Snokie (cass) 

29.00 

Funtastic 

Sargon III (d) 

179.00 

Teledienst 

Snokie (d) 

119.00 

Teledienst 

Save New York (Modul) 

49.00 

Funtastic 

Solo Flight (cass) 

54.90 

Rushware 

Save New York (Modul) 

119.00 

Teledienst 

Solo Flight (cass) 

48.00 

Teledienst 

Schuss 

15.90 

EDV-Service 

Solo Flight (d) 

69.00 

Micro-Händler 

Scuba Dive 

29.00 

Micro-Händler 

Solo Flight (d) 

48.00 

Teledienst 

Seafox (Modul) 

49.00 

Funtastic 

Solo Flight (d) 

54.90 

Rushware 

Seafox (Modul) 

49.00 

Teledienst 

Sorcerer 

173.00 

Computer-Service 

Seaside Special (cass) 

25.00 

Funtastic 

Sorcerer (cass) 

39.90 

Rushware 

Seaside Special (cass) 

28.00 

Teledienst 

Sorcerer (cass) 

38.00 

Teledienst 

Seaside Special (d) 

39.90 

Rushware 

Sorcerer (d) 

48.00 

Teledienst 

Seastalker 

139.00 

Computer-Service 

Sorcerer (d) 

49.90 

Rushware 

Seastalker (d) 

149.00 

Teledienst 

Sorcerer (d) 

179.00 

Funtastic 

Seastalker (d) 

139.00 

Funtastic 

Sorcerer of Claym. Castle (cass) 

49.00 

Funtastic 

Secret Mission (d) 

48.00 

Teledienst 

Sorcerer of Claym. Castlg (d) 

49.00 

Funtastic 
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Artikelbezeichnung 

Preis 

Anbieter 

Artikelbezeichnung 

Preis 

Anbieter 

Sorcerer’s Aprentice (cass) 

32.00 

Funtastic 

Starfire / Fire one 

49.00 

Micro-Händler 

Sorcery (cass) 

29.00 

Teledienst 

Starfire/Fire One (cass) 

37.90 

Rushware 

Sorcery (cass) 

29.00 

Funtastic 

Starfire/Fire One (cass) 

139.00 

Teledienst 

Space Pilot 

29.00 

Kingsoft 

Stealth (d) 

88.00 

Teledienst 

Space Pilot (cass) 

39.00 

Micro-Händler 

Stella 7 (cass) 

39.90 

Rushware 

Space Pilot (cass) 

28.00 

Teledienst 

Stella 7 (d) 

47.90 

Rushware 

Space Pilot (cass) 

39.00 

Thorn Emi 

Stellar 7 (cass) 

39.00 

Teledienst 

Space Pilot (cass) 

29.00 

Funtastic 

Stellar 7 (d) 

48.00 

Teledienst 

Space Pilot (cass) 

28.90 

Rushware 

Sting 

39.00 

Micro-Händler 

Space Pilot (d) 

39.00 

Funtastic 

Sting 64 

39.00 

Funtastic 

Space Pilot (d) 

48.00 

Teledienst 

Stix 

29.00 

Kingsoft 

Space Pilot (d) 

39.90 

Rushware 

Story House (cass) 

49.00 

Teledienst 

Space Shuttle (cass) 

49.00 

Ariolasoft 

Story House (cass) 

39.00 

Thorn Emi 

Space Shuttle (cass) 

49.00 

Funtastic 

Streng geheim (d) 

69.00 

Otto Maier Verlag 

Space Shuttle (cass) 

49.00 

Teledienst 

Strip Poker 

69.00 

Micro-Händler 

Space Shuttle (cass) 

41.90 

Rushware 

Strip Poker (cass) 

39.00 

Teledienst 

Space Shuttle (d) 

69.00 

Ariolasoft 

Strip Poker (cass) 

36.90 

Rushware 

Space Shuttle (d) 

79.00 

Teledienst 

Strip Poker (d) 

48.00 

Teledienst 

Space Shuttle (d) 

75.00 

Funtastic 

Strip Poker (d) 

47.90 

Rushware 

Space Walk (cass) 

11.95 

Mastertronic 

Stunt Bike 

39.00 

Micro-Händler 

Space Walk (d) 

28.95 

Mastertronic 

Stunt Bike (cass) 

24.90 

Rushware 

Spacepilot (cass) 

29.00 

Funtastic 

Styx 

39.00 

Micro-Händler 

Spare Change (d) 

79.00 

Funtastic 

Suicidä Express (cass) 

24.90 

Rushware 

Spare Change (d) 

88.00 

Teledienst 

• Suicide Strike (d) 

119.00 

Teledienst 

Spartial Billard (d) 

49.00 

Funtastic 

Summer Games (cass) 

47.90 

Rushware 

Special Delivery 

39.00 

Thorn Emi 

Summer Games (cass) 

49.00 

Teledienst 

Special Delivery (cass) 

49.00 

Teledienst 

Summer Games (cass) 

49.00 

Funtastic 

Spelunker (d) 

79.00 

Funtastic 

Summer Games (d) 

99.90 

Rushware 

Spelunker (d) 

84.00 

Teledienst 

Summer Games (d) 

59.00 

Funtastic 

Spelunker (d) 

89.00 

Ariolasoft 

Summer Games (d) 

99.00 

Micro-Händler 

Spider & the Fly 

29.00 

Micro-Händler 

Summer Games (d) 

78.00 

Teledienst 

Spider Man (cass) 

49.00 

Funtastic 

Super Bunny — Der Heid von 



Spider Man (d) 

49.00 

Funtastic 

Rabbitville (d) 

48.00 

Markt&Technik 

Spiderman (cass) 

47.90 

Rushware 

Super Cassette 

39.00 

Micro-Händler 

Spiderman (cass) 

38.00 

Teledienst 

Su, ir Catcha Troopa 

39.00 

Micro-Händler 

Spielautomat 

15.90 

EDV-Service 

Super Cuda (cass) 

29.00 

Funtastic 

Spiele-Pack (cass) 

39.90 

EDV-Service 

Super Games 

49.00 

Kingsoft 

Spitball (Modul) 

119.00 

Teledienst 

Super Gridder 

39.00 

Micro-Händler 

Spitball (Modul) 

49.00 

Funtastic 

Super Gridder (cass) 

29.00 

Funtastic 

Spitfire Ace (cass) 

39.00 

Funtastic 

Super Gärtner (cass) 

10.00 

Europa-Spiele 

Spitfire Ace (cass) 

88.00 

Teledienst 

Super Huey 

39.00 

Kingsoft 

Spitfire Ace (cass) 

47.90 

Rushware 

Super Huey (cass) 

79.00 

Micro-Händler 

Spitfire Ace (d) 

47.90 

Rushware 

Super Huey (cass) 

45.00 

Teledienst 

Spitfire Ace (d) 

44.00 

Funtastic 

Super Huey (cass) 

44.90 

Rushware 

Spitfire Ace (d) 

49.00 

Teledienst 

Super Huey (d) 

69.00 

Ariolasoft 

Sportcontrol 

59.00 

Micro-Händler 

Super Pipeline (cass) 

29.00 

Micro-Händler 

Springteufel (Steckmodul) 

69.00 

Otto Maier Verlag 

Super Pipeline (d) 

49.00 

Micro-Händler 

Spriteman 

29.00 

Micro-Händler 

Super Pipeline 2 

39.00 

Kingsoft 

Spriteman (d) 

39.00 

Micro-Händler 

Super Snake (cass) 

10.00 

Europa-Spiele 

Spy Hunter (cass) 

39.00 

Teledienst 

Super Spy 

29.00 

Micro-Händler 

Spy Hunter (cass) 

39.90 

Rushware 

Super Spy (cass) 

19.00 

Funtastic 

Spy Hunter (cass) 

49.00 

Micro-Händler 

Superpipeline (cass) 

29.90 

Rushware 

Spy Hunter (d) 

47.90 

Rushware 

Superpipeline (d) 

39.90 

Rushware 

Spy Hunter (d) 

48.00 

Teledienst 

Superstar Challenge (cass) 

36.90 

Rushware 

Spy Strikes Back (d) 

89.00 

Teledienst 

Surviver (cass) 

88.00 

Teledienst 

Spy vs. Spy 

49.00 

Micro-Händler 

Surviver (d) 

79.00 

Funtastic 

Spy vs. Spy (cass) 

48.00 

Teledienst 

Surviver (d) 

88.00 

Teledienst 

Spy's Demise (d) 

75.00 

Funtastic 

Suspect (d) 

179.00 

Funtastic 

Sqash a Frog 

39.00 

Micro-Händler 

Suspended 

119.00 

Computer-Service 

Squirm (cass) 

11.95 

Mastertronic 

Suspended (d) 

41.90 

Rushware 

Squirm (d) 

28.95 

Mastertronic 

Sword of Fargoal (cass) 

109.00 

Teledienst 

Squish'em (d) 

119.00 

Teledienst 

Sword of Fargoal (d) 

99.00 

Funtastic 

Staff of Karnal (cass) 

49.00 

Thorn Emi 

Sword of Fargoal (d) 

109.00 

Teledienst 

Staff of Karnath (cass) 

39.90 

Rushware 

Swords and Sorcery (cass) 

69.00 

Teledienst 

Staff of Karnath (cass) 

39.00 

Teledienst 

Swords and Sorcery (cass) 

52.00 

Thorn Emi 

Starfire/Fire One (d) 

139.00 

Teledienst 

Swords and Sorcery (d) 

68.00 

Thorn Emi 

Standing Stones (d) 

89.00 

Funtastic 

Swords and Sorcery (d) 

79.00 

Teledienst 

Star Trek (cass) 

29.00 

Micro-Händler 

Tales of Arab. Nights (cass) 

29.00 

Teledienst 

Star Trek (Modul) 

129.00 

Teledienst 

Tales of Arabian Night (d) 

35.00 

Funtastic 

Star Trooper (cass) 

24.90 

Rushware 

Tales of Arabian Nights (cass) 

39.00 

Thorn Emi 

Starace (cass) 

11.95 

Mastertronic 

Tales of Arabian Nights (cass) 

26.90 

Rushware 

Starace (d) 

28.95 

Mastertronic 

Tapper (cass) 

49.00 

Micro-Händler 

Starcross 

110.00 

Funtastic 

Tapper (cass) 

39.00 

Funtastic 

Starcross 

119.00 

Computer-Service 

Tapper (cass) 

36.90 

Rushware 
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Anbieter 

Tapper (cass) 

39.00 

Teledienst 

Tapper (d) 

47.90 

Rushware 

Tapper (d) 

48.00 

Teledienst 

Tapper (d) 

49.00 

Funtastic 

Tazz 

39.00 

Micro-Händler 

Telengard (cass) 

79.00 

Teledienst 

Telengard (d) 

99.00 

Teledienst 

Temple of Apshai (cass) 

139.00 

Teledienst 

Temple of Apshai (d) 

79.00 

Teledienst 

Terrorist (cass) 

29.00 

Teledienst 

The Dallas Quest (d) 

54.90 

Rushware 

The Heist (d) 

119.00 

Teledienst 

The Hobbit (cass) 

48.00 

Teledienst 

The Hobbit (d) 

54.90 

Rushware 

The Hobbit (incl. engl. Buch) (cass) 

57.90 

Rushware 

The House Jack bullt (cass) 

31.90 

Rushware 

The House Jack built (cass) 

48.00 

Teledienst 

The Last Gladiator (d) 

88.00 

Teledienst 

The Pit (Modul) 

119.00 

Teledienst 

The Pit (Modul) 

29.00 

Funtastic 

The Quill 

69.00 

Micro-Händler 

The Snowman 

39.00 

Micro-Händler 

The Sorcerers Apprentice 

39.00 

Micro-Händler 

The Standing Stones (d) 

88.00 

Teledienst 

The Standing Stones (d) 

69.00 

Ariolasoft 

The World Gr. Baseball (d) 

139.00 

Teledienst 

This is E.F. Iges (d) 

49.00 

Ariolasoft 

This is E.F. Iges (d) 

49.00 

Teledienst 

Threshold (Modul) 

129.00 

Teledienst 

Threshold (Modul) 

39.00 

Funtastic 

Thrusta 

39.00 

Micro-Händler 

Thunderbombs 

59.00 

Funtastic 

Tigers in the Snow (cass) 

139.00 

Teledienst 

Tigers in the Snow (d und cass) 

*69.00 

Computer-Service 

Tigers in the Snow (d) 

139.00 

Teledienst 

Time Bound (Modul) 

129.00 

Teledienst 

Time Bound (cass) 

109.00 

Teledienst 

Time Runner (cass) 

109.00 

Teledienst 

Time Runner (d) 

109.00 

Teledienst 

Tir Na Nog (cass) 

37.90 

Rushware 

Titans 

39.00 

Micro-Händler 

Token of Ghali 

29.00 

Micro-Händler 

Token of Ghali (cass) 

39.00 

Funtastic 

Token of Ghali (d) 

35.00 

Funtastic 

Token of Ghali (d) 

39.00 

Micro-Händler 

Tom 

29.00 

Kingsoft 

Tom (cass) 

26.90 

Rushware 

Tom (d) 

32.90 

Rushware 

Tom (d) 

39.00 

Teledienst 

Toy Bizarre 

59.00 

Micro-Händler 

Toy Bizarre (cass) 

44.00 

Funtastic 

Toy Bizarre (cass) 

48.00 

Teledienst 

Toy Bizarre (d) 

75.00 

Funtastic 

Toy Bizarre (d) 

79.00 

Teledienst 

Toy Bizzare (cass) 

41.90 

Rushware 

Tracer Sanction (d) 

82.90 

Rushware 

Transsylvanian Tower (d) 

39.00 

Funtastic 

Trashman 

39.00 

Micro-Händler 

Trashman (cass) 

39.00 

Thorn Emi 

Trashmann (cass) 

49.00 

Teledienst 

Trax 

39.00 

Micro-Händler 

Tribble Trouble (cass) 

39.00 

Funtastic 

Trollie Wallie (d) 

36.00 

Funtastic 

Trollie Wallie (d) 

39.90 

Rushware 

Trulol 

10.00 

Europa-Spiele 

Turbo 64 

49.00 

Micro-Händler 

Turbo 64 (cass) 

28.90 

Rushware 

Turmoil (d) 

59.00 

Funtastic 

Twin Kingdom Valley (cass) 

32.90 

Rushware 

Tycoon (d) 

179.00 

Funtastic 

Ugh! 

39.00 

Micro-Händler 

Ultima II 

109.00 

Funtastic 

Ultima III 

179.00 

Funtastic 

Ultima III (Exodus) 

195.00 

Computer-Service 




Artikelbezeichnung 

Preis 

Anbieter 

Ultima III (d) 

179.00 

Teledienst 

Ultisynth 

69.00 

Micro-Händler 

Ulysses (d) 

59.00 

Funtastic 

Union Pacific (d) 

79.00 

Otto Maier Verlag 

Union Pacific (d) 

85.00 

Funtastic 

Up'n Down (cass) 

38.00 

Teledienst 

Up’n Down (cass) 

36.90 

Rushware 

Urban Upstart (d) 

39.00 

Funtastic 

Valhalla 

69.00 

Micro-Händler 

Valkerie 17 (cass) 

42.90 

Rushware 

Valkerie 17 (cass) 

48.00 

Teledienst 

Valkyrie (cass) 

29.00 

Funtastic 

Value Pack 

69.00 

Micro-Händler 

Vasco da Gama (d) 

79.00 

Otto Maier Verlag 

Vegas Jackpot (cass) 

11.95 

Mastertronic 

Vegas Jackpot (d) 

28.95 

Mastertronic 

Visible Sloar System (Modul) 

39.00 

Funtastic 

Voodoo Castle (cass) 

32.90 

Rushware 

Voodoo Castle (cass) 

38.00 

Teledienst 

Voodoo Castle (cass) 

39.00 

Funtastic 

Vortex Raider 

10.00 

Kingsoft 

Vortex Raider (cass) 

29.00 

Micro-Händler 

Vortex Raider (d) 

39.00 

Micro-Händler 

Vortex Raider (d) 

35.00 

Funtastic 

Vultures 64 

29.00 

Micro-Händler 

Wally Goes to Rhymeland (cass) 

29.00 

Funtastic 

Wally goes to Rhymeland (cass) 

29.00 

Micro-Händler 

Wanda (cass) 

25.00 

Funtastic 

Warlock (cass) 

31.90 

Rushware 

Warlock (cass) 

29.00 

Funtastic 

Warlock (d) 

39.90 

Rushware 

Warlock (d) 

48.00 

Teledienst 

Warlok (cass) 

49.00 

Micro-Händler 

Waterline (d) 

119.00 

Teledienst 

Wavy Navv..)) 

59.00 

Funtastic 

Way Out (d) 

129.00 

Teledienst 

Way out (d) 

49.00 

Funtastic 

Weltraumkolonie (Stechmodul) 

69.00 

Otto Maier Verlag 

West (cass) 

32.90 

Rushware 

Where's my Bone (cass) 

49.00 

Teledienst 

Where’s my Bone (cass) 

39.00 

Thorn Emi 

Where's my Bone 

29.00 

Micro-Händler 

Whistler's Brother (d) 

89.00 

Ariolasoft 

Whistler's Brother (d) 

88.00 

Teledienst 

Whistler’s Brother (d) 

79.00 

Funtastic 

Widows Revenge 

29.00 

Micro-Händler 

Wilder Westen (cass) 

10.00 

Europa-Spiele 

Wildfire 

39.00 

Micro-Händler 

Wing Commander (cass) 

39.00 

Thorn Emi 

Wing Commander (cass) 

49.00 

Teledienst 

Witch Switch (cass) 

38.00 

Teledienst 

Wltch Switch (cass) 

24.00 

Funtastic 

Witch Switch (cass) 

39.90 

Rushware 

Witness 

173.00 

Computer-Service 

Witness (d) 

159.00 

Funtastic 

Wizzard and Princess (d) 

49,00 

Funtastic 

Wizzard of War (Modul) 

39.00 

Funtastic 

World Cup (cass) 

26.90 

Rushware 

World Cup (cass) 

24.00 

Funtastic 

World Cup Football (cass) 

43.00 

Teledienst 

World Cup Football (cass) 

43.00 

Thorn Emi 

Xerons 

39.00 

Micro-Händler 

Xyphus (d) 

119.00 

Teledienst 

Zaga 

29.00 

Kingsoft 

Zaga (cass) 

29.00 

Funtastic 

Zaga (d) 

39.00 

Funtastic 

Zaga Mission (cass) 

26.90 

Rushware 

Zaga Mission (cass) 

29.00 

Teledienst 

Zaga Mission (d) 

32.90 

Rushware 

Zaxxon (Modul) 

129.00 

Teledienst 

Zaxxon (cass) 

39.00 

Funtastic 

Zaxxon (cass) 

59.00 

Micro-Händler 

Zaxxon (cass) 

38.00 

Teledienst 

Zaxxon (cass) 

35.90 

Rushware 


151 







Marktübersicht Spiele 




Artikelbezeichnung 
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Anbieter 

Zaxxon (d) 

49.00 

Funtastic 

Zaxxon (d) 

58.00 

Teledienst 

Zaxxon (d) 

69.00 

Ariolasoft 

Zaxxon (d) 

54.90 

Rushware 

Zeitmaschine (d) 

75.00 

Funtastic 

Zeitmaschine (d) 

69.00 

Teledienst 

Zenji 

69.00 

Ariolasoft 

Zenji 

59.00 

Micro-Händler 

Zenji (cass) 

49.00 

Funtastic 

Zenji (cass) 

46.00 

Teledienst 

Zenji (cass) 

41.90 

Rushware 

Zenji (d) 

75.00 

Funtastic 

Zeppelin (cass) 

88.00 

Teledienst 

Zeppelin (d) 

88.00 

Teledienst 

Zeppelin Rescue (cass) 

68.00 

Teledienst 

Zeppelin Rescue (d) 

39.00 

Funtastic 

Zeppelin Rescue (d) 

66.90 

Rushware 

Zeppelin Rescue (d) 

68.00 

Teledienst 

Zim Zala Bim (cass) 

32.90 

Rushware 

Zim Zala Bim 

39.00 

Micro-Händler 

Zodiac 

29.00 

Kingsoft 

Zodiac 

49.00 

Micro-Händler 

Zoids 

39.00 

Micro-Händler 

Zone Ranger (cass) 

78.00 

Teledienst 

Zone Ranger (d) 

78.00 

Teledienst 

Zork 1 (d) 

41.90 

Rushware 

Zork 2 (d) 

41.90 

Rushware 

Zork 3 (d) 

41.90 

Rushware 

Zork 1 (d) 

129.00 

Teledienst 

Zork 1 (d) 

110.00 

Funtastic 

Zork II (d) 

119.00 

Teledienst 

Zork II (d) 

110.00 

Funtastic 

Zork III 

119.00 

Computer-Service 

Zork III (d) 

110.00 

Funtastic 

Zork III (d) 

Commodore 64-Kassetten 

119.00 

Teledienst 

646R Ont_l 

Agent U.S.A. 

33.00 

Joysoft 

Air Wolf 

33,00 

Joysoft 

Alice in Videoland 

35.00 

Joysoft 

American Football 

44.00 

Joysoft 

Android II 

29.90 

Joysoft 

Archon 1 

49.00 

Joysoft 

Artstar 

49.90 

Joysoft 

Astrochase 

38.00 

Joysoft 

Aztec Challenge 

32.00 

Joysoft 

Baseball 

39.00 

Joysoft 

Battle for Normandy 

49.00 

Joysoft 

Battle of the Midway 

39.00 

Joysoft 

Battle through Time 

39.00 

Joysoft 

BCI 1 Brogs Revenge 

39.00 

Joysoft 

Beach Head 

38.00 

Joysoft 

Beam Rider 

39.00 

Joysoft 

Blagger goes to Hollywood 

39.00 

Joysoft 

Blue Max 

39.00 

Joysoft 

Bongo 

29.00 

Joysoft 

Boulderdash 

34.90 

Joysoft 

Bounty Bob Strikes Back 

39.00 

Joysoft 

Bristles 

39.00 

Joysoft 

Broad Street 

36.00 

Joysoft 

Bruce Lee 

39.00 

Joysoft 

Buck Rogers 

49.00 

Joysoft 

Castle of Terror 

39.00 

Joysoft 

Catacombs 

33.00 

Joysoft 

Cavelon 

29.90 

Joysoft 

Caverns of Khafka 

32.00 

Joysoft 

Chart Busters 

39.00 

Joysoft 

Choc-A-Block Charlie 

33.00 

Joysoft 

Chuckie Egg 

33.00 

Joysoft 

Colossal Adventure 

39.00 

Joysoft 

Colossus Chess 2.0 

39.00 

Joysoft 

Combat Leader 

49.00 

Joysoft 

Combat Lynx 

44.00 

Joysoft 

Dam Busters 

152 
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Death Pit 

32.00 

Joysoft 

Death Star Interceptor 

38.00 

Joysoft 

Decathlon 

39.00 

Joysoft 

Deus Ex Machina 

59.00 

Joysoft 

Dungeon Adventure 

39.00 

Joysoft 

Encounter 

39.00 

Joysoft 

Entombed (Ultimate) 

39.00 

Joysoft 

Eureka! (deutsch) 

59.00 

Joysoft 

Everyone’s a Wally 

39.00 

Joysoft 

F-15 Strike Eagle 

49.00 

Joysoft 

Fighter Pilot 

39.00 

Joysoft 

Flak 

39.00 

Joysoft 

Flight Path 737 

33.00 

Joysoft 

Flight Simulator II 

135.00 

Joysoft 

Flip & Flop 

33.00 

Joysoft 

Football Manager 

39.00 

Joysoft 

Forbidden Forest 

32.00 

Joysoft 

Fort Apocalypse 

39.00 

Joysoft 

Front Line 

33.00 

Joysoft 

G.A.S. Kit 

49.00 

Joysoft 

Gandalf 

39.00 

Joysoft 

Gates of Dawn 

39.00 

Joysoft 

Ghostbusters 

39.00 

Joysoft 

Giiigans Gold 

29.90 

Joysoft 

Gribbly's Day out 

34.00 

Joysoft 

H.E.R.O. 

39.00 

Joysoft 

Hampstead 

39.00 

Joysoft 

Havoc 

39.00 

Joysoft 

Henry’s House 

39.00 

Joysoft 

Hexenküche 

35.00 

Joysoft 

High Noon 

39.00 

Joysoft 

House of Usher 

29.00 

Joysoft 

Hulk 

38.00 

Joysoft 

Hunchback at the Olympics 

39.00 

Joysoft 

Hunchback II 

33.00 

Joysoft 

1 iyjnr-Bike 

34.00 

Joysoft 

Ice Pallace 

39.00 

Joysoft 

Indiana Jones 

39.00 

Joysoft 

International Basketball 

39.00 

Joysoft 

Jet Set Willy 

33.00 

Joysoft 

Jinn Genie 

36.00 

Joysoft 

Juice 

29.90 

Joysoft 

Kokotoni Wilf 

32.00 

Joysoft 

Las Vegas 

31.00 

Joysoft 

Lateinische Deklination 

32.00 

Joysoft 

Lateinische Konjugation 

32.00 

Joysoft 

Loco 

33.00 

Joysoft 

Lords of Midnight 

39.00 

Joysoft 

Lords of Time 

39.00 

Joysoft 

Macbeth 

39.00 

Joysoft 

Manie Miner 

33.00 

Joysoft 

Master of the Lamp 

49.00 

Joysoft 

Matchpoint 

34.00 

Joysoft 

Mission Impossible 

49.00 

Joysoft 

Morsetrainer 

39.00 

Joysoft 

Mr. Robot 

34.90 

Joysoft 

Multisound Synthesizer 

49.00 

Joysoft 

My Chess II 

49.00 

Joysoft 

Mystic Mansion 

35,90 

Joysoft 

Nato Commander 

39.00 

Joysoft 

Olympic Skier 

29.90 

Joysoft 

On Court Tennis 

49.00 

Joysoft 

Operation Whirlwind 

59.00 

Joysoft 

Pascal (Oxford) 

69.00 

Joysoft 

Past Finder 

39.00 

Joysoft 

Pitfall 

38.00 

Joysoft 

Pitfall II , 

39.00 

Joysoft 

Pole Position 

39.00 

Joysoft 

Poster Paster 

32.00 

Joysoft 

Psi Warrior 

39.00 

Joysoft 

Psytron 

39.00 

Joysoft 

Quasimodo 

39.00 

Joysoft 

Quest for Tires 

49.00 

Joysoft 

Raid over Bungeling Bay 

45.00 

Joysoft 

Raid over Moskow 

39.00 

Joysoft 
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Return to Eden 

39.00 

Joysoft 

Computer-Selbstlernkurs 

99.00 

Joysoft 

River Raid 

39.00 

Joysoft 

Conan 

55.00 

Joysoft 

River Rescue 

39.00 

Joysoft 

Congo Bongo 

49.00 

Joysoft 

Rock'N'Bolt 

39.00 

Joysoft 

Dragonworld 

89.00 

Joysoft 

Rolands Rat Race 

34.00 

Joysoft 

Drelbs 

49.00 

Joysoft 

Schreibmaschinenkurs 

39.00 

Joysoft 

Encounter 

49.00 

Joysoft 

Scuba Dive 

29.90 

Joysoft 

Eureka! (deutsch) 

59.00 

Joysoft 

Sentinel 

39.00 

Joysoft 

Fl 5 Strike Eagle 

49.00 

Joysoft 

Shades 

39.00 

Joysoft 

Fahrenheit 451 

89.00 

Joysoft 

Shadowtire 

39.00 

Joysoft 

Flak 

49.00 

Joysoft 

Sheep in Space 

33.00 

Joysoft 

Flight Simulator II 

145.00 

Joysoft 

Sherlock Holmes 

49.00 

Joysoft 

Fort Apocalypse 

49.00 

Joysoft 

Showjumping 

34.00 

Joysoft 

Ghostbusters 

59.00 

Joysoft 

Snapshot 

38.00 

Joysoft 

Graphics Library 

79.00 

Joysoft 

Snokie 

39.00 

Joysoft 

Hes Games 

99.00 

Joysoft 

Softaid 

39.00 

Joysoft 

House of Usher 

39.00 

Joysoft 

Solo Flight 

49.00 

Joysoft 

Hulk 

49.00 

Joysoft 

Sorceror of Claym. Castle 

39.00 

Joysoft 

Kaiser 

79.00 

Joysoft 

Space Shuttle 

39.00 

Joysoft 

Mask of the Sun 

99.00 

Joysoft 

Spirit of the Stone 

59.00 

Joysoft 

Masters of Time 

79.00 

Joysoft 

Spitfire 40 

49.00 

Joysoft 

Mind Shadow 

79.00 

Joysoft 

Spitfire ACE 

39.00 

Joysoft 

Mission Impossible 

59.00 

Joysoft 

Super Huey 

45.00 

Joysoft 

Morsetrainer 

49.00 

Joysoft 

Spy Hunter 

39.00 

Joysoft . 

Mule 

99.00 

Joysoft 

Spy vs. Spy 

39.00 

Joysoft 

Murder of the Zinderneuf 

59.00 

Joysoft 

Squash 

39.00 

Joysoft 

Mystic Mansion 

44.00 

Joysoft 

Staff of Karnath 

39.00 

Joysoft 

Nato Commander 

49.00 

Joysoft 

Stella 7 

39.00 

Joysoft 

On Court Tennis 

89.00 

Joysoft 

Stringer 

32.00 

Joysoft 

One on One 

99.00 

Joysoft 

Strip Poker 

39.00 

Joysoft 

Pascal (Oxford) 

159.00 

Joysoft 

Suicide Express 

34.00 

Joysoft 

Past Finder 

89.00 

Joysoft 

Suicide Strike 

29.90 

Joysoft 

Pinball Construction Set 

99.00 

Joysoft 

Summer games 

49.00 

Joysoft 

Pitfall II 

59.00 

Joysoft 

Superstar Challenge 

39.00 

Joysoft 

Pitstop II 

59.00 

Joysoft 

Survivor 

89.00 

Joysoft 

Podyan 

45.00 

Joysoft 

Tales of the Arabian Night 

39.00 

Joysoft R . fF , 

Print Slw 

139.00 

Joysoft 

Talladega 

34.00 

Joysoft 

Raid over Bungeling Bay 

49.00 

Joysoft 

Tapper 

44.00 

Joysoft 

Raid over Moskow 

49.00 

Joysoft 

The Hobbit 

49.00 

Joysoft 

Realm of Impossibility 

99.00 

Joysoft 

The Quill 

59.00 

Joysoft 

Rendezvous with Rama 

89.00 

Joysoft 

Theatre Europe 

39.00 

Joysoft 

River Raid 

59.00 

Joysoft 

Tir Na Nog 

39.00 

Joysoft 

Schreibmaschinenkurs 

49.00 

Joysoft 

Tom Thumb 

29.00 

Joysoft 

Sentinel 

49.00 

Joysoft 

Toy Bizarre 

39.00 

Joysoft 

Seven Citys of Gold 

99.00 

Joysoft 

Trashman 

39.00 

Joysoft 

Shamus Case II 

89.00 

Joysoft 

Ultisynth 

48.00 

Joysoft 

Ski-Weltcup 

79.00 

Joysoft 

Up’N’Down 

49.00 

Joysoft 

Slapshot 

39.00 

Joysoft 

Valhalla 

49.00 

Joysoft 

Solo Flight 

49.00 

Joysoft 

Vokabeltrainer 

39.00 

Joysoft 

Space Shuttle 

59.00 

Joysoft 

West 

39.00 

Joysoft 

Spelunker 

89.00 

Joysoft 

Where's my Bone 

29.00 

Joysoft 

Spirit of the Stone 

49.00 

Joysoft 

White Lightning 

89.00 

Joysoft 

Spitfire 40 

49.00 

Joysoft 

Wing Commander 

39.00 

Joysoft 

Spitfire ACE 

49.00 

Joysoft 

World Cup 

32.00 

Joysoft 

Spy Hunter 

49.00 

Joysoft 

Zaga Mission 

29.00 

Joysoft 

Spy vs. Spy 

49.00 

Joysoft 

Zaxxon 

39.00 

Joysoft 

Star Cross 

39.00 

Joysoft 

Zenji 

39.00 

Joysoft 

Strip Poker 

49.00 

Joysoft 

Zeus Assembler 

89,00 

Joysoft 

Summer Games 

59.00 

Joysoft 

Zim Zala Bim 

39,00 

Joysoft 

Super Huey 

45.00 

Joysoft 

Commodore 64-Disketten 



Superstar Challenge 

49.00 

Joysoft 




Suspended 

49.00 

Joysoft 

Adventure Land 

49.00 

Joysoft 

Tapper 

49.00 

Joysoft 

Amazon 

89.00 

Joysoft 

The Dallas Quest 

49.00 

Joysoft 

Archon II 

99.00 

Joysoft 

The Last Gladiator 

89.00 

Joysoft 

Aztec Challenge 

39.00 

Joysoft 

The Standing Stones 

99.00 

Joysoft 

Battle for Normandy 

49.00 

Joysoft 

Tracer Sanction 

79.00 

Joysoft 

Beach Head 

49.00 

Joysoft 

Whistler’s Brother 

89.00 

Joysoft 

Beam Rider 

49.00 

Joysoft 

White Lightning 

99.00 

Joysoft 

Blue Max 

49.00 

Joysoft 

Zaga Mission 

39.00 

Joysoft 

Bongo 

39.00 

Joysoft 

Zaxxon 

49.00 

Joysoft 

Bruce Lee 

49.00 

Joysoft 

Zenji 

59.00 

Joysoft 

Castle of Dr. Creep 

89.00 

Joysoft 

Zeppelin 

89.00 

Joysoft 

Caverns of Khafka 

39.00 

Joysoft 

Zorkl 

49.00 

Joysoft 

Championship Loderunner 

89.00 

Joysoft 

Zork II 

49.00 

Joysoft 

Combat Leader 

59.00 

Joysoft 

Zork III 

49.00 

Joysoft 
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